C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE STATION C INVENTORY FOR THE 60 STATION DATA SET (FILE 12 ON THE MAGNETIC C TAPE). C INTEGER SEQNUM,STANUM,LATDEG,LATMIN,LONDEG,LONMIN, + BEGYR REAL ELEV CHARACTER*10 STNAME C C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS OUTPUT. NREC = 0 C 1 CONTINUE READ(5,100,END=99)SEQNUM,STNAME,STANUM,LATDEG,LATMIN, + LONDEG,LONMIN,ELEV,BEGYR 100 FORMAT(1X,I2,1X,A10,2X,I5,3X,I2,1X,I2,3X,I3,1X,I2,2X,F6.1,2X,I4) C C WRITE OUT A HEADER ON EACH PAGE OF THE LISTING. C IF (MOD(NREC,58).EQ.0) WRITE(6,200) C WRITE(6,100) SEQNUM,STNAME,STANUM,LATDEG,LATMIN,LONDEG,LONMIN, + ELEV,BEGYR C NREC = NREC + 1 C 200 FORMAT('1',' STATION NO. DEG MIN DEG MIN ELEV(M)', + ' BEG',/) C GO TO 1 99 CONTINUE STOP END