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
Last modified: 2024-09-03T18:01:04Z