Open Watcom FORTRAN 77 Language Reference

Language Reference
2.61 NAMELIST Statement
NAMELIST /name/ vlist [[,]/name/ vlist] ...
where:
name
vlist
is the name, enclosed in slashes, of a group of variables. It may not be the same as a variable
or array name.
is a list of variable names and array names separated by commas.
The NAMELIST statement is used to declare a group name for a set of variables so that they may be read or
written with a single namelist-directed READ, WRITE, or PRINT statement.
The list of variable or array names belonging to a NAMELIST name ends with a new NAMELIST name
enclosed in slashes or with the end of the NAMELIST statement. The same variable name may appear in
more than one namelist.
A dummy variable, dummy array name, or allocatable array may not appear in a NAMELIST list. Also, a
variable whose type is a user-defined structure may not appear in a NAMELIST list.
The NAMELIST statement must precede any statement function definitions and all executable statements.
A NAMELIST name must be declared in a NAMELIST statement and may be declared only once. The
name may appear only in input/output statements. The READ, WRITE, and PRINT statements may be used
to transmit data between a file and the variables specified in a namelist.
Example:
CHARACTER*20 NAME
CHARACTER*20 STREET
CHARACTER*15 CITY
CHARACTER*20 STATE
CHARACTER*20 COUNTRY
CHARACTER*10 ZIP_CODE
INTEGER AGE
INTEGER MARKS(10)
NAMELIST /PERSON/ NAME, STREET, CITY, STATE,
+ COUNTRY, ZIP_CODE, AGE, MARKS
OPEN( UNIT=1, FILE=’PEOPLE’ )
LOOP
READ( UNIT=1, FMT=PERSON, END=99 )
WRITE( UNIT=6, FMT=PERSON )
ENDLOOP
99 CLOSE( UNIT=1 )
END
The following example shows another form of a namelist-directed READ statement.
108 NAMELIST Statement