i*dat.for (File 3)
This file contains a FORTRAN 90 data-retrieval routine to read and print i*.dat (Files 13-21). 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 i*.dat (Files: 13-21)
c******************************************************************** c* FORTRAN 90 data retrieval routine to read and print the files c* named "i*.dat" (Files 13-21) c******************************************************************** CHARACTER qualt*15, bot*6 INTEGER sta, cast, samp REAL pre, ctdtmp, ctdsal, ctdoxy, theta, sal, oxy, silca REAL nitrat, nitrit, phspht, cfc11, cfc12, tcarb, alkali REAL delc14, c14er, delc13 OPEN (unit=1, file='i08si09s.dat') OPEN (unit=2, file='i08si09s.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',3X,'CFC-11',3X,'CFC-12',2X,'TCARBN',2X,'ALKALI',2X, 4 'DELC14',2X,'C14ERR',2X,'DELC13',10X,'QUALT1',/, 5 36X,'DBAR',2X,'ITS-90',2X,'PSS-78',1X,'µmol/KG', 6 2X,'ITS_90',4X,'PSS-78',1X,5('µmol/KG',1X),1X,'PMOL/KG',2X, 7 'PMOL/KG',1X,2('µmol/KG',1X),1X,3('/MILLE',2X),13X,'*',/, 8 25X,'*******',17X,2('*******',1X),10X,6('*******',1X),1X, 9 '*******',2X,4('*******',1X),8X,"*******",15X,'*') 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, cfc11, cfc12, tcarb, alkali, delc14, c14er, delc13, 3 qualt 10 format (4X, I4, 7X, I1, 6X, I2, 2X, A6, 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, F8.3, 1X, F8.3, 1X, F7.1, 3 1X, F7.1, 1X, F7.1, 1X, F7.1, 1X, F7.1, 1X, A15) write (2, 20) sta, cast, samp, bot, pre, ctdtmp, 1 ctdsal, ctdoxy, theta, sal, oxy, silca, nitrat, nitrit, 2 phspht, cfc11, cfc12, tcarb, alkali, delc14, c14er, delc13, 3 qualt 20 format (4X, I3, 7X, I1, 6X, I2, 2X, A6, 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, F8.3, 1X, F8.3, 1X, F7.1, 3 1X, F7.1, 1X, F7.1, 1X, F7.1, 1X, F7.1, 1X, A15) GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2024-09-03T18:01:04Z