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