Fortran90 and NAMELIST (285 Views)
Reply
Occasional Visitor
Don Leonard
Posts: 5
Registered: ‎05-17-1998
Message 1 of 9 (285 Views)

Fortran90 and NAMELIST

We are moving from F90 version 2.6 to version 3.1. A namelist feature allowing a scalar subscript but multiple values no longer works, although HP's sample program and the Release Notes say it should. Example:

j(8) = 6, 7, 8

Is there a patch for this? So far I can't find any.
Occasional Visitor
DSN Rao
Posts: 3
Registered: ‎03-13-2008
Message 2 of 9 (285 Views)

Re: Fortran90 and NAMELIST


Hi Don,
can you pls let me know you are on whcih platform PA/IPF.
And let me know the library version that you are using.

Thanks,
satya
Occasional Visitor
Don Leonard
Posts: 5
Registered: ‎05-17-1998
Message 3 of 9 (285 Views)

Re: Fortran90 and NAMELIST

> can you pls let me know you are on whcih platform PA/IPF.
> And let me know the library version that you are using.

The platform is PA-RISC. For which library are you requesting the version?
Occasional Visitor
DSN Rao
Posts: 3
Registered: ‎03-13-2008
Message 4 of 9 (285 Views)

Re: Fortran90 and NAMELIST

version of libcl.2 is required.

what /usr/lib/libcl.2
Occasional Visitor
Don Leonard
Posts: 5
Registered: ‎05-17-1998
Message 5 of 9 (285 Views)

Re: Fortran90 and NAMELIST

We have tried two versions:

$ what /usr/lib/libcl.2
libcl.2:
Trap Library version UX.11.01.06 - 02/04/16
Unwind Library version UX.11.01.05 - 00/08/15
libIO77 HP HPUX [ Release B.11.23.21 ]
(hp700:hp/ux) Oct 6 2005
Copyright (c) 2001 Hewlett Packard.
HP Port of Compaq Convert RTL V0.0.00
HP Fortran of Alpha RT V0.0.00
Intel Fortran RTL V1.1-929 1+ 1-Aug-2003
fs_amod.s $Revision: 1.9.1.1 $
libcl.sl version B.11.XX.21 - Jun 22 2005
$ swlist -l product | grep -i libcl
PHSS_33901 1.0 LIBCL patch

and:

$ what /usr/lib/libcl.2
libcl.2:
Trap Library version UX.11.01.06 - 02/04/16
Unwind Library version UX.11.01.05 - 00/08/15
libIO77 HP HPUX [ Release B.11.23.22 ]
(hp700:hp/ux) Apr 24 2007
Copyright (c) 2001 Hewlett Packard.
HP Port of Compaq Convert RTL V0.0.00
HP Fortran of Alpha RT V0.0.00
Intel Fortran RTL V1.1-929 1+ 1-Aug-2003
fs_amod.s $Revision: 1.9.1.1 $
libcl.sl version B.11.XX.21 - Apr 24 2007
$ swlist -l product | grep -i libcl
PHSS_34880 1.0 LIBCL patch
Occasional Visitor
DSN Rao
Posts: 3
Registered: ‎03-13-2008
Message 6 of 9 (285 Views)

Re: Fortran90 and NAMELIST

Don,
This problem is fixed, fix will be available in upcoming patch. will update you soon with patch details.

$>f90 tmp.f -Wl,/palib/libcl.2
tmp.f
program TEST_NAMELIST

9 Lines Compiled
$>./a.out
34.54 45.34 87.3

sample program:
---------------
$>cat tmp.f
program test_namelist
character*10 filenm /'input1'/
real ARRAY_A(3)
namelist /ELEM/ ARRAY_A
open(5, file=filenm)
read(5, nml=ELEM)
close(15)
write (*,*),array_a
end program
$>cat input1
&ELEM
ARRAY_A(1)= 34.54, 45.34, 87.3
&END
Occasional Visitor
Don Leonard
Posts: 5
Registered: ‎05-17-1998
Message 7 of 9 (285 Views)

Re: Fortran90 and NAMELIST

A patch would be good news. Any idea what time frame we are talking about?
Occasional Visitor
Don Leonard
Posts: 5
Registered: ‎05-17-1998
Message 8 of 9 (285 Views)

Re: Fortran90 and NAMELIST

We ended up backleveling LIBCL to PHSS_28303.
Occasional Visitor
Satya Narsinga Rao
Posts: 1
Registered: ‎05-28-2008
Message 9 of 9 (285 Views)

Re: Fortran90 and NAMELIST

Hi Don,
You can try with PHSS_37907 libcl patch.

Thanks,
satya
The opinions expressed above are the personal opinions of the authors, not of HP. By using this site, you accept the Terms of Use and Rules of Participation.