PSS ID Number: 148625
Article Last Modified on 11/2/1999
C Compile options needed: none
MODULE M
NAMELIST /N/ I, J
END MODULE
PROGRAM NAME_LIST
USE M , NN => N, JJ => J
I = 1
JJ = 2
OPEN(UNIT=10,FILE="NAMELST.FIL",DELIM="APOSTROPHE")
WRITE(10, NML=NN)
REWIND 10
READ(10,NN)
WRITE(*,*) 'Got: '
WRITE(*,NN)
WRITE(*,'(" Expected: ",A)') " &NN I = 1, JJ = 2 /"
END PROGRAM NAME_LIST
Got: &N I = 1 J = 2 / Expected: &NN I = 1, JJ = 2 /
Additional query words: 4.00
Keywords: kbLangFortran KB148625
Technology: kbAudDeveloper kbFORTRANPower400NT kbFortranSearch kbZNotKeyword8