Fortran90 and NAMELIST

[Don Leonard]

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.

[DSN Rao]

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

[Don Leonard]

> 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?

[DSN Rao]

version of libcl.2 is required.

what /usr/lib/libcl.2

[Don Leonard]

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

[DSN Rao]

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

[Don Leonard]

A patch would be good news. Any idea what time frame we are talking about?

[Don Leonard]

We ended up backleveling LIBCL to PHSS_28303.

[Satya Narsinga Rao]

Hi Don,
You can try with PHSS_37907 libcl patch.

Thanks,
satya