C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE STATION C INVENTORY FOR THE 205 STATION DATA SET (FILE 13 ON THE C MAGNETIC TAPE) C INTEGER SEQNUM,STANUM,LATDEG,LATMIN,LONDEG,LONMIN, + TBEGYR,PBEGYR REAL ELEV CHARACTER*20 STNAME C C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS OUTPUT. NREC = 0 C 1 CONTINUE C READ(5,100,END=99)SEQNUM,STNAME,STANUM,LATDEG,LATMIN, + LONDEG,LONMIN,ELEV,TBEGYR,PBEGYR 100 FORMAT(1X,I3,1X,A20,1X,I5,2X,I2,1X,I2,2X,I3,1X,I2,2X,F6.1, + 2(2X,I4)) 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) SEQNUM,STNAME,STANUM,LATDEG,LATMIN,LONDEG,LONMIN, + ELEV,TBEGYR,PBEGYR C NREC = NREC + 1 C 200 FORMAT('1',' STATION',15X,'NO. DEG MIN DEG MIN ELEV(M)', + ' TBEG PBEG',/) C GO TO 1 99 CONTINUE STOP END