C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE 205 STATION C MONTHLY PRECIPITATION FILE (FILE 16 ON THE MAGNETIC TAPE). C INTEGER STANUM,YEAR,P(12) CHARACTER*1 RFLAG, PFLAG(12) C C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS OUTPUT. NREC = 0 C 1 CONTINUE C READ (5,100,END=99) STANUM, YEAR, RFLAG, + (P(I),PFLAG(I), I=1,12) 100 FORMAT(2I6,1X,A1,12(I6,1X,A1)) C C WRITE OUT A HEADER ON EACH PAGE OF THE LISTING. IF (MOD(NREC,58).EQ.0) WRITE(6,200) C WRITE(6,100) STANUM, YEAR, RFLAG, + (P(I),PFLAG(I), I=1,12) C NREC = NREC + 1 C 200 FORMAT('1','STNUM YR FL JAN FEB MAR APR ', + ' MAY JUN JUL AUG SEP OCT NOV ', + ' DEC',/) C GO TO 1 99 CONTINUE STOP END