- #1
- 1
- 0
INTEGER NLINES, NVALUES
PARAMETER(NLINES=7,NVALUES=5)
REAL*8 VAL(NLINES,NVALUES)
OPEN(1,FILE='GUCU.TXT')
DO 5 I=1,NLINES
5 READ(1,*)(VAL(I,J),J=1,NVALUES)
DO 15 I=1,NLINES
15 WRITE(6,'(5F10.3)')(VAL(I,J),J=1,NVALUES)
STOP
END
0.1414607 2.1 12 0.9 0.175
1.607 10 39.2 0 0.255102
35 32 137 0.03990063 0.2335766
8.806 325 -999 0.8399166 -999
-999 -999 -999 0.9591094 -999
INTEGER NLINES, NVALUES
PARAMETER(NLINES=6,NVALUES=2)
CHARACTER*8 VAL(NLINES,NVALUES)
OPEN(1,FILE='CSV.DAT')
DO 5 I=1,NLINES
5 READ(1,*)(VAL(I,J),J=1,NVALUES)
DO 15 I=1,NLINES
15 WRITE(6,'(5A10)')(VAL(I,J),J=1,NVALUES)
STOP
END
A2332110 PLUVI
A2352020 PLUVI
A3301010 NIVAL
A3422010 PLUVI
A3792010 TRANS
A3832010 PLUVI