xco2air.for (File 3)

This file contains a FORTRAN 77 data-retrieval routine to read and print xco2air.txt file File 13). 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 xco2air.txt file.

c****************************************************************
c* FORTRAN 77 data retrieval routine to read and print the files
c* named "xco2air.txt" (File 13)                  
c****************************************************************

c*Defines variables*

    CHARACTER date*10, time*8, lab*1
    REAL latdcm, londcm, xco2
    OPEN (unit=1, file='xco2air.txt')
    OPEN (unit=2, file='xco2air.dat')
    write (2, 5)
    
c*Writes out column labels*
   
 5   format (5X,'DATE',9X,'TIME',4X,'LATITUDE',2X,'LONGITUDE',
   1 2X,'xCO2_AIR',1X,'LAB',/,5X,'GMT',10X,'GMT',7X,
   3 'DEG N',6X,'DEG E',5X,'PPMV',4X,'NO',/,
   5 2X,'DD.MM.YYYY',4X,'HH:MM:SS')
   
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) date, time, latdcm, londcm, xco2, lab
   
 10  format (2X, A10, 4X, A8, 4X, F6.3, 4X, F7.3, 4X, F6.2, 
   1 3X, A1)
   
     write (2, 20) date, time, latdcm, londcm, xco2, lab
   
 20  format (2X, A10, 4X, A8, 4X, F6.3, 4X, F7.3, 4X, F6.2, 
   1 3X, A1)

     GOTO 7
999  close(unit=1)  
     close(unit=2)
     stop
     end