a08dat.for (File 3)

This file contains a FORTRAN 77 data retrieval routine to read and print a08.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 a08.dat.

    c********************************************************************
    c* FORTRAN 90 data retrieval routine to read and print the file
    c* named "a08.dat" (File 5).
    c********************************************************************

           CHARACTER qualt*11
           INTEGER sta, cast, samp, bot
           REAL pre, ctdtmp, ctdsal, theta, sal, oxy, silca, nitrat
           REAL cfc11, cfc12, tcarb, fCO2eq, eqtmp, fCO2, pCO2
           OPEN (unit=1, file='a08.dat')
           OPEN (unit=2, file='a08.data')
           write (2, 5)

     5     format (2X,'STNNBR',2X,'CASTNO',2X,'SAMPNO',2X,'BTLNBR',2X,
         1 'CTDPRS',2X,'CTDTMP',2X,'CTDSAL',3X,'THETA',4X,'SALNTY',2X,
         2 'OXYGEN',2X,'SILCAT',1X,'NO2+NO3',3X,'CFC-11',3X,'CFC-12',
         3 2X,'TCARBN',4X,'FCO2',3X,'EQTMP',4X,'FCO2',4X,'PCO2',7X,
         4 'QUALT',/,
         5 36X,'DBAR',2X,'ITS-90',2X,'PSS-78',2X,'ITS-90',4X,'PSS-78',
         6 1X,3('µmol/KG',1X),1X,'PMOL/KG',2X,'PMOL/KG',1X,'µmol/KG',
         7 2X,'PPM@EQ',3X,'DEG_C',1X,'PPM@20C',1X,'UAT@20C',11X,'*',/,
         8 25X,'*******',17X,'*******',11X,4('*******',1X),1X,'*******',
         7 2X,3('*******',1X),16X, '*******',11X,'*')

           read (1, 6)
     6     format (//////////)

     7     CONTINUE
           read (1, 10, end=999) sta, cast, samp, bot, pre, ctdtmp,
         1 ctdsal, theta, sal, oxy, silca, nitrat, cfc11, cfc12,
         2 tcarb, fCO2eq, eqtmp, fCO2, pCO2, qualt

     10    format (5X, I3, 5X, I3, 4X, I4, 5X, I3, 1X, F7.1, 1X, F7.4,
         1 1X, F7.4, 1X, F7.4, 1X, F9.4, 1X, F7.1, 1X, F7.2, 1X, F7.2,
         2 1X, F8.3, 1X, F8.3,1X, F7.2, 1X, F7.2, 1X, F7.1, 1X, F7.2,
         3 1X, F7.2, 1X, A11)

           write (2, 20) sta, cast, samp, bot, pre, ctdtmp,
         1 ctdsal, theta, sal, oxy, silca, nitrat, cfc11, cfc12,
         2 tcarb, fCO2eq, eqtmp, fCO2, pCO2, qualt

     20    format (5X, I3, 5X, I3, 4X, I4, 5X, I3, 1X, F7.1, 1X, F7.4,
         1 1X, F7.4, 1X, F7.4, 1X, F9.4, 1X, F7.1, 1X, F7.2, 1X, F7.2,
         2 1X, F8.3, 1X, F8.3,1X, F7.2, 1X, F7.2, 1X, F7.1, 1X, F7.2,
         3 1X, F7.2, 1X, A11)
           GOTO 7
     999   close(unit=1)
           close(unit=2)
           stop
           end