PDA

View Full Version : use repeat*value for namelist output


BHaskell
10-23-2009, 03:48 PM
L/F Fortran 95 Express Release L6.20e (linux)

real a(5)
data a / 5*1.2 /
namelist / d / a
write( 6, nml=d )
stop
end

generates a file similar to:
&d
a = 1.2, 1.2, 1.2, 1.2, 1.2
/

would prefer the second line to be:
a = 5*1.2