c********************************************************************
c* FORTRAN 77 data retrieval routine to read and print the files    *           
c* named "xco2air.txt" (Files 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