p10dat.for (File 3)

This file contains a FORTRAN 90 data-retrieval routine to read and print p10dat.txt (File 7). 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 p10dat.txt.

     c********************************************************************
     c* FORTRAN 90 data retrieval routine to read and print the file          
     c* named "p10dat.txt" (File 7).                                    
     c********************************************************************
            CHARACTER qualt*12, bot*5
            INTEGER sta, cast, samp
            REAL pre, ctdtmp, ctdsal, ctdoxy, theta, sal, oxy, silca
            REAL nitrat, nitrit, phspht, tcarb, alkali, dc14, c14er 
            OPEN (unit=1, file='p10dat.txt')
            OPEN (unit=2, file='p10.data')
            write (2, 5)
     
     c*Writes out column labels*
      
      5     format (2X,'STNNBR',2X,'CASTNO',2X,'SAMPNO',2X,'BTLNBR',2X,
          1 'CTDPRS',2X,'CTDTMP',2X,'CTDSAL',2X,'CTDOXY',3X,'THETA',4X,
          2 'SALNTY',2X,'OXYGEN',2X,'SILCAT',2X,'NITRAT',2X,'NITRIT',2X,
          3 'PHSPHT',2X,'TCARBN',2X,'ALKALI',2X,'DELC14',2X,'C14ERR',7X,
          4 'QUALT1',/,
          5 36X,'DBAR',2X,'ITS-90',2X,'PSS-78',1X,'µmol/KG',2X,'ITS_90',
          6 4X,'PSS-78',1X,7('µmol/KG',1X),1X,'/MILLE',2X,'/MILLE',12X,
          7 '*',/,
          8 25X,'*******',17X,2('*******',1X),10X,9('*******',1X),
          9 19X,'*')
     
     c*Sets up a loop to read and format all the data in the file*
     
            read (1, 6)
      6     format (//////////)
     
      7     CONTINUE    
            read (1, 10, end=999) sta, cast, samp, bot, pre, ctdtmp,
          1 ctdsal, ctdoxy, theta, sal, oxy, silca, nitrat, nitrit,
          2 phspht, tcarb, alkali, dc14, c14er, qualt
     
      10    format (5X, I3, 7X, I1, 6X, I2, 3X, A5, 1X, F7.1, 1X, F7.4,
          1 1X, F7.4, 1X, F7.1, 1X, F7.4, 1X, F9.4, 1X, F7.1, 1X, F7.2,
          2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 1X, F7.1, 1X, F7.1,
          3 1X, F7.1, 1X, A12)
     
            write (2, 20) sta, cast, samp, bot, pre, ctdtmp,
          1 ctdsal, ctdoxy, theta, sal, oxy, silca, nitrat, nitrit,
          2 phspht, tcarb, alkali, dc14, c14er, qualt
     
      20    format (5X, I3, 7X, I1, 6X, I2, 3X, A5, 1X, F7.1, 1X, F7.4,
          1 1X, F7.4, 1X, F7.1, 1X, F7.4, 1X, F9.4, 1X, F7.1, 1X, F7.2,
          2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 1X, F7.1, 1X, F7.1,
          3 1X, F7.1, 1X, A12)
     
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end