met18dat.for (File 3)
This file contains a FORTRAN 77 data retrieval routine to read and print met18.dat (File 6). 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 met18.dat.
c**************************************************************** c* FORTRAN 77 data retrieval routine to read and print the c* file named "met18.dat" (File 6). c**************************************************************** CHARACTER bot*3, qualt*10 INTEGER sta, cast, samp REAL pre, ctdtmp, theta, revtmp, ctdsal, salt, oxygen, silcat REAL nitrat, nitrit, phspht, tcarb, talk OPEN (unit=1, file='met18.dat') OPEN (unit=2, file='met18.data') write (2, 5) 5 format (2X,'STNNBR',2X,'CASTNO',2X,'SAMPNO',2X,'BTLNBR',2X, 1 'CTDPRS',4X,'CTDTMP',3X,'REVTMP',4X,'CTDSAL',5X,'THETA',4X 2 'SALNTY',2X,'OXYGEN',2X,'SILCAT',2X,'NITRAT',2X,'NITRIT',2X, 3 'PHSPHT',2X,'ALKALI',2X,'TCARBN',6X,'QUALT1',/,36X,'DBAR', 4 4X,'ITS-90',3X,'ITS-90',4X,'PSS-78',7X,'DEG',4X,'PSS-78',1X, 5 7('µmol/KG',1X),10X,'*',/,25X,'*******',30X,'*******',13X, 6 8('*******',1X),10X,'*') read (1, 6) 6 format (/////////////) 7 CONTINUE read (1, 10, end=999) sta, cast, samp, bot, pre, ctdtmp, 1 revtmp, ctdsal, theta, salt, oxygen, silcat, nitrat, nitrit, 2 phspht, talk, tcarb, qualt 10 format (5X, I3, 7X, I1, 6X, I2, 5X, A3, 2X, F6.1, 1X, F9.4, 1 1X, F8.3, 1X, F9.4, 1X, F9.4, 1X, F9.4, 2X, F6.1, 1X, F7.2, 2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 2X, A10) write (2, 20) sta, cast, samp, bot, pre, ctdtmp, 1 revtmp, ctdsal, theta, salt, oxygen, silcat, nitrat, nitrit, 2 phspht, talk, tcarb, qualt 20 format (5X, I3, 7X, I1, 6X, I2, 5X, A3, 2X, F6.1, 1X, F9.4, 1 1X, F8.3, 2X, F9.4, 1X, F9.4, 1X, F9.4, 2X, F6.1, 1X, F7.2, 2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 2X, A10) GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2021-03-17T18:30:27Z