C
C Variable declarations .....
C
       CHARACTER*67 HEADER, HEADER1, HEADER2, HEADER3, HEADER4,
     +              HEADER5, HEADER6, HEADER7, HEADER8, HEADER9,
     +              HEADER10, HEADER11, HEADER12
       CHARACTER*95 COLUMNID
       INTEGER IYEAR(46)
       REAL MONTH(46,12), ANNUAL(46), FITANN(46)
       OPEN(UNIT=5,FILE='maunaloa.co2')
C
C Read and write header records that identify database, source,
C date of publication, and columns
C
       READ(5,1) HEADER, HEADER1, HEADER2, HEADER3, HEADER4,
     +  HEADER5, HEADER6, HEADER7, HEADER8, HEADER9, HEADER10,
     +  HEADER11, HEADER12, COLUMNID
 1     FORMAT(A67,/,A67,/,A67,/,A67,/,A67,/,A67,/,A67,/,A67,/,A67,
     +  /,A67,/,A67,/,A67,/,A67,/,A95)
       WRITE(6,2) HEADER, HEADER1, HEADER2, HEADER3, HEADER4,
     +  HEADER5, HEADER6, HEADER7, HEADER8, HEADER9, HEADER10,
     +  HEADER11, HEADER12
 2     FORMAT(A67,/,A67,/,A67,/,A67,/,A67,/,A67,/,A67,/,A67,/,A67,
     +  /,A67,/,A67,/,A67,/,A67,/)
       WRITE(6,3)
 3     FORMAT(1X,'YEAR    JAN.   FEB.   MAR.   APR.   MAY    ',
     +   'JUN.   JUL.   AUG.   SEP.   OCT.   NOV.   DEC.    ANNUAL',
     +   '   FITANN',/)
C
C Read and write data records
C
       DO 6 I=1,46
       READ(5,4,END=7) IYEAR(I),(MONTH(I,J),J=1,12),ANNUAL(I),
     +  FITANN(I)
 4       FORMAT(I4,12F7.2,F7.2,F7.2)
       WRITE(6,5) IYEAR(I),(MONTH(I,J),J=1,12),ANNUAL(I),FITANN(I)
 5       FORMAT(1X,I4,2X,12F7.2,2X,F7.2,2X,F7.2)
 6     CONTINUE
 7     CONTINUE
       CLOSE(UNIT=5)
       STOP
       END