met18dat.for (File 3)

This file contains a FORTRAN 77 data retrieval routine to read and print met18.dat (File 6). The following is a listing of this program. For additional information regarding variable definitions, variable lengths, variable types, units, and codes, please see the description for met18.dat.

     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the         
     c* file named "met18.dat" (File 6).                        
     c****************************************************************
     
            CHARACTER bot*3, qualt*10
            INTEGER sta, cast, samp
            REAL pre, ctdtmp, theta, revtmp, ctdsal, salt, oxygen, silcat
            REAL nitrat, nitrit, phspht, tcarb, talk
            OPEN (unit=1, file='met18.dat')
            OPEN (unit=2, file='met18.data')
            write (2, 5)
     
      5     format (2X,'STNNBR',2X,'CASTNO',2X,'SAMPNO',2X,'BTLNBR',2X,
          1 'CTDPRS',4X,'CTDTMP',3X,'REVTMP',4X,'CTDSAL',5X,'THETA',4X
          2 'SALNTY',2X,'OXYGEN',2X,'SILCAT',2X,'NITRAT',2X,'NITRIT',2X,
          3 'PHSPHT',2X,'ALKALI',2X,'TCARBN',6X,'QUALT1',/,36X,'DBAR',
          4 4X,'ITS-90',3X,'ITS-90',4X,'PSS-78',7X,'DEG',4X,'PSS-78',1X,
          5 7('µmol/KG',1X),10X,'*',/,25X,'*******',30X,'*******',13X,
          6 8('*******',1X),10X,'*')
     
            read (1, 6)
      6     format (/////////////)
        
      7     CONTINUE    
            read (1, 10, end=999) sta, cast, samp, bot, pre, ctdtmp,
          1 revtmp, ctdsal, theta, salt, oxygen, silcat, nitrat, nitrit,
          2 phspht, talk, tcarb, qualt
     
      10    format (5X, I3, 7X, I1, 6X, I2, 5X, A3, 2X, F6.1, 1X, F9.4,
          1 1X, F8.3, 1X, F9.4, 1X, F9.4, 1X, F9.4, 2X, F6.1, 1X, F7.2,
          2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 2X, A10)
            
       
            write (2, 20)  sta, cast, samp, bot, pre, ctdtmp,
          1 revtmp, ctdsal, theta, salt, oxygen, silcat, nitrat, nitrit,
          2 phspht, talk, tcarb, qualt
     
      20    format (5X, I3, 7X, I1, 6X, I2, 5X, A3, 2X, F6.1, 1X, F9.4,
          1 1X, F8.3, 2X, F9.4, 1X, F9.4, 1X, F9.4, 2X, F6.1, 1X, F7.2,
          2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 2X, A10)
      
           GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end