RosettaCodeData/Task/Literals-String/Fortran/literals-string-1.f
2016-12-05 22:15:40 +01:00

7 lines
154 B
Fortran

DIMENSION ATWT(12)
PRINT 1
1 FORMAT (12HElement Name,F9.4)
DO 10 I = 1,12
READ 1,ATWT(I)
10 PRINT 1,ATWT(I)
END