RosettaCodeData/Task/Literals-String/Fortran/literals-string-1.f

8 lines
154 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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