cgc90dat.for (File 3)

This file contains a FORTRAN 77 data retrieval routine to read and print cgc90.dat (File 5). 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 cgc90.dat.

     
     c****************************************************************
     c*  This is a FORTRAN 77 data retrieval code to read and format 
     c*  the file named "cgc90.dat" (File 5)                             
     c****************************************************************
       
            INTEGER  sta, samp, qcfl
            REAL pres, temp, theta, ctdsal, botsal, sigma, sigmat
            REAL no3, tco2
            OPEN (unit=1, file='cgc90.dat')
            OPEN (unit=2, file='pmel90.dat')
            write (2, 5)
     
      5     format (3X,'STANBR',3X,'SAMPID',3X,'CTDPRS',2X,'CTDTEMP',4X,
          1 'THETA',3X,'CTDSAL',3X,'BOTSAL',4X,'SIGMA',2X,'SIGMA-T',2X,
          2 'NITRATE',4X,'TCARB',3X'QC_FLAG',/,23X'DBAR',3X,'DEG(C)',
          3 3X,'DEG(C)',6X,'PSS',6X,'PSS',4X,'THETA',11X,'µmol/KG',2X,
          4 'µmol/KG',/,56X,'*******',20X,'*******',2X,'*******')
     
      7     CONTINUE
            read (1, 10,end=999) sta, samp, pres, temp, theta, ctdsal,
          1 botsal, sigma, sigmat, no3, tco2, qcfl
     
      10    format (7X,I2,4X,I5,3X,F6.1,3X,F6.3,3X,F6.3,3X,F6.3,1X,F8.3,
          1 3X,F6.3,3X,F6.3,1X,F8.3,2X,F7.1,7X,I3)
      
            write (2, 20) sta, samp, pres, temp, theta, ctdsal,
          1 botsal, sigma, sigmat, no3, tco2, qcfl
     
      20    format (7X,I2,4X,I5,3X,F6.1,3X,F6.3,3X,F6.3,3X,F6.3,1X,F8.3,
          1 3X,F6.3,3X,F6.3,1X,F8.3,2X,F7.1,7X,I3)
            GOTO 7
     
     999    close(unit=1)
            close(unit=2)
            stop
            end