CHARACTER TEXT*16 PRINT 1, NODE, TEXT 1 FORMAT (I2, A16)
Example 2: List-directed array:
PRINT *, I, J, (VECTOR(I), I = 1, 5)
INTEGER VECTOR(10) PRINT '(12 I2)', I, J, VECTOR
CHARACTER LABEL*16 REAL QUANTITY INTEGER NODE NAMELIST /SUMMARY/ LABEL, QUANTITY, NODE PRINT SUMMARY