C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE 205 STATION C MONTHLY MEAN TEMPERATURE FILE (FILE 15 ON THE MAGNETIC C TAPE). C INTEGER STANUM,YEAR,TEMP(12) CHARACTER*1 RFLAG, TFLAG(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, + (TEMP(I),TFLAG(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, + (TEMP(I),TFLAG(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