CHARACTER FLAG*1
      INTEGER YEAR,MONTH,DAY,JULIAN
      REAL DECYR,CO2               
      OPEN(UNIT=5,FILE='alert.co2') 
      OPEN(UNIT=6)
      WRITE(6,5)
  5   FORMAT(17X,'JULIAN',5X,'DECIMAL',14X,'CO2',/,1X,'YEAR',
     1 1X,'MONTH',1X,'DAY',3X,'DATE',8X,
     2 'YEAR',7X,'CONCENTRATION (PPMV)',2X,'FLAG',/)
  1   CONTINUE                                                            
      READ(5,10,END=99) YEAR,MONTH,DAY,JULIAN,DECYR,CO2,FLAG 
 10   FORMAT(I2,1X,I2,1X,I2,1X,I3,1X,F16.13,1X,F8.4,1X,A1)     
      WRITE(6,20) YEAR,MONTH,DAY,JULIAN,DECYR,CO2,FLAG 
 20   FORMAT(2X,I2,4X,I2,3X,I2,3X,I3,3X,F16.13,7X,F8.4,9X,A1)     
      GO TO 1                                                         
 99   CONTINUE 
      CLOSE(UNIT=5)
      CLOSE(UNIT=6)                                                               
      STOP                                                            
      END