N1=20                                                              
             N6=6                                                               
C                                                                               
C      READ AND PRINT FILE CONTAINING CO2 MEASUREMENTS FROM THE                 
C      AUSTRALIAN AIRCRAFT MONITORING PROGRAM - (NDP007.DAT)
C                                                                               
1     CONTINUE
      READ(N1,100,END=99) IDAYS,MONS,IYRS,AIRTYP,FLIGHT,FLASK,ITIME,
     1  ISECT,IDIST,IDIR,IDME,ALT,TR,IDAYA,MONA,IYRA,IPRES,                     
     2  HISPAN,LOSPAN,ANAL,CONC                                                 
100   FORMAT(I2,I2,I3,A4,A5,A4,A5,I3,I5,I3,I4,F6.2,
     1 A3,2X,I2,I3,I3,I5,A3,A3,A4,F6.1)
      WRITE(N6,200) IDAYS,MONS,IYRS,AIRTYP,FLIGHT,FLASK,ITIME,
     1  ISECT,IDIST,IDIR,IDME,ALT,TR,IDAYA,MONA,IYRA,IPRES,                     
     2  HISPAN,LOSPAN,ANAL,CONC                                                 
200   FORMAT(1X,I2,I2,I3,A4,A5,A4,A5,I3,I5,I3,I4,F6.2,A3,
     1  2X,I2,I3,I3,I5,A3,A3,A4,F6.1)
      GO TO 1
99    CONTINUE
      STOP
      END