m153dat.for (File 3)

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

     
     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the             
     c* file named "met115.dat" (File 5).                            
     c****************************************************************
     
       INTEGER  stat, cast, samp, bottle
       CHARACTER flag*10
       REAL ctdprs, ctdtmp, ctdsal, theta, btlsal, oxygen, silica
       REAL nitrat, nitrit, phspht, tco2, pco2 
       REAL pco2temp, sigma0
       OPEN (unit=1, file='m115.dat')
       OPEN (unit=2, file='met115.dat')
       write (2, 5)

 5     format (2X,'STNNBR',2X,'CASTNO',2X,'SAMPNO',2X,'BTLNBR',2X,
     2 'CTDPRS',4X,'CTDTMP',4X,'CTDSAL',5X,'THETA',4X,'BOTSAL',2X,
     3 'OXYGEN',2X,'SILCAT',2X,'NITRAT',2X,'NITRIT',2X,'PHSPHT',4X,
     4 'TCO2',4X,'PCO2',1X,'PCO2TMP',2X,'SIGMA0',5X,'QUALT1',/,
     5 36X,'DBAR',4X,'ITS-90',4X,'PSS-78',4X,'ITS-90',4X,'PSS-78',
     6 1X,6('µmol/KG',1X,),3X,'UATM',2X,'ITS-90',3X,'THETA',10X,'*',
     7 /,25X,'*******',21X '*******',13X,8('*******',1X,),25X,'*')


 7     CONTINUE
       read (1, 10,end=999) stat, cast, samp, bottle, ctdprs, ctdtmp,
     1 ctdsal, theta, btlsal, oxygen, silica, nitrat, nitrit, phspht,
     2 tco2, pco2, pco2temp, sigma0, flag  
 10    format (5X,I3,7X,I1,6X,I2,5X,I3,2X,F6.1,1X,F9.4,1X,F9.4,1X,
     1 F9.4,1X,F9.4,2X,F6.1,1X,F7.2,1X,F7.2,1X,F7.2,1X,F7.2,2X,
     2 F6.1,2X,F6.1,1X,F7.2,2X,F6.3,1X,A10)
 
       write (2, 20) stat, cast, samp, bottle, ctdprs, ctdtmp,
     1 ctdsal, theta, btlsal, oxygen, silica, nitrat, nitrit, phspht,
     2 tco2, pco2, pco2temp, sigma0, flag  
 20    format (5X,I3,7X,I1,6X,I2,5X,I3,2X,F6.1,1X,F9.4,1X,F9.4,1X,
     1 F9.4,1X,F9.4,2X,F6.1,1X,F7.2,1X,F7.2,1X,F7.2,1X,F7.2,2X,
     2 F6.1,2X,F6.1,1X,F7.2,2X,F6.3,1X,A10)
       GOTO 7
     
999    CLOSE(unit=5)
       CLOSE(unit=2)
       STOP
       END