C**************************************************************                 
C A FORTRAN program to read and print the surface water and                     
C   atmospheric carbon dioxide and nitrous oxide data.                          
C**************************************************************                 
      CHARACTER SAMPTYP, HEADER*77, DATEMO*3, LATHEM, LONHEM                    
      INTEGER DATEDA, DATEYR, TIME                                              
      REAL LAT, LON, PRESS, H2OTMP, XN2O, XCO2                                  
      READ (5,500) SAMPTYP, HEADER                                              
      WRITE (6,500) SAMPTYP, HEADER                                             
   10 READ (5,600,END=800) DATEDA, DATEMO, DATEYR, TIME, LAT,                   
     1  LATHEM, LON, LONHEM, PRESS, H2OTMP, XN2O, XCO2                          
      WRITE (6,650) DATEDA, DATEMO, DATEYR, TIME, LAT,                          
     1  LATHEM, LON, LONHEM, PRESS, H2OTMP, XN2O, XCO2                          
      GOTO 10                                                                   
  500 FORMAT (A1,2X,A77)                                                        
  600 FORMAT (I2,1X,A3,1X,I2,3X,I4,3X,F7.3,1X,A1,3X,F8.3,1X,A1,                 
     1        3X,F6.1,3X,F5.2,3X,F5.1,3X,F5.1)                                  
  650 FORMAT (I2,1X,A3,1X,I2,3X,I4.4,3X,F7.3,1X,A1,3X,F8.3,1X,                  
     1        A1,3X,F6.1,3X,F5.2,3X,F5.1,3X,F5.1,'      ')                      
  800 STOP                                                                      
      END