a10pco2.for (File 4)
This file contains a FORTRAN 77 data retrieval routine to read and print a10pco2.txt (File 7). 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 a10pco2.txt .
c*************************************************************** c* FORTRAN 77 data retrieval routine to read and print the file c* named "a10pco2.txt" (File 7). c*************************************************************** c*Defines variables* REAL jday, latdcm, londcm, sst, salt, airpre, airxco2 REAL airpco2, waterpco2 CHARACTER sect*3, date*10, time*5 OPEN (unit=1, file='a10pco2.txt') OPEN (unit=2, file='a10pco2.dat') write (2, 5) c*Writes out column labels* 5 format (2X,'UNDERWAY MEASUREMENTS R/V METEOR CRUISE 22/5',/, 1 2X,'SECT',9X,'DATE',4X,'TIME',5X,'JULIAN',3X,'LATIT',2X, 2 'LONGIT',3X,'SSTMP',2X,'SALNTY',2X,'ATMPRS',4X,'XCO2',5X, 3 'PCO2AIR',1X,'PCO2WATER',/,8X,'DAY/MO/YEAR',5X,'GMT',7X, 4 'DATE',5X,'DCM',5X,'DCM',3X,'DEG_C',5X,'PSS',4X,'ATM',2X, 5 'DRY_AIR_PPM',3X,'UATM',6X,'UATM',/) 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) sect, date, time, jday, latdcm, londcm, 1 sst, salt, airpre, airxco2, airpco2, waterpco2 10 format (3X, A3, 3X, A10, 3X, A5, 2X, F9.3, 1X, F7.2, 1X, 1 F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 2X, F7.2, 3X, F7.1, 2 3X, F7.1) write (2, 20) sect, date, time, jday, latdcm, londcm, sst, 1 salt, airpre, airxco2, airpco2, waterpco2 20 format (3X, A3, 3X, A10, 3X, A5, 2X, F9.3, 1X, F7.2, 1X, 1 F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.1, 2X, F7.2, 3X, F7.1, 2 3X, F7.1) GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2021-03-17T18:30:27Z