C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE 60 STATION C CLIMATE DATA FILE (FILE 14 ON THE MAGNETIC TAPE). C INTEGER STANUM,YEAR,MON,PRES,MEANT,MEANMX,MEANMN + PRECIP,SUN,CLD,RH,SNOW,WDIR,WSPD,WFREQ,EXMX,EXMN C CHARACTER*1 RECF,PRESF,MEANTF,MXF,MNF,PRECF,SUNF,CLDF, + RHF,SNOWF,WDIRF,WSPDF,WFREQF,EXMXF,EXMNF C C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS OUTPUT. NREC = 0 C 1 CONTINUE C READ(5,100,END=99)STANUM,YEAR,MON,RECF,PRES,PRESF,MEANT, + MEANTF,MEANMX,MXF,MEANMN,MNF,PRECIP,PRECF,SUN,SUNF, + CLD,CLDF,RH,RHF,SNOW,SNOWF,WDIR,WDIRF,WSPD,WSPDF, + FREQ,WFREQF,EXMX,EXMXF,EXMN,EXMNF 100 FORMAT(1X,I5,1X,I4,1X,I2,1X,A1,14(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,MON,RECF,PRES,PRESF,MEANT, + MEANTF,MEANMX,MXF,MEANMN,MNF,PRECIP,PRECF,SUN,SUNF, + CLD,CLDF,RH,RHF,SNOW,SNOWF,WDIR,WDIRF,WSPD,WSPDF, + FREQ,WFREQF,EXMX,EXMXF,EXMN,EXMNF C NREC = NREC + 1 C 200 FORMAT('1','STNUM',' YR MON FL PRES MEANT MEANMX MEANMN', + ' PRECIP SUN CLD RH SNOW WDIR WSPD', + ' WFREQ EXMX EXMN',/) C GO TO 1 99 CONTINUE STOP END