C This Fortran 77 program was written by TAB to read and write
C Nydal and Lovseth's aircraft C14 measurements 
      character sample*6, flag13*1
      real delC13, corC14
      open(unit=5,file='strat.dat')
      open(unit=6)
      read(5,10)
 10   format(///////////////)
      write(6,15)
 15   format('Sample',3X,'Altitude',3X,'Date of Collection',6X,
     1 'delta',6X,'delta',2X,'Corrected',4X,'Sigma',/,11X,'(m)',
     2 6X,'(Year, Month, Day)',7X,'C14',8X,'C13',3X,'delta C14',
     3 /) 
 20   continue
      read (5,25, end=99) sample,alt,samdat,delC14,delC13,flag13,
     1  corC14,sigma
 25   format(A6,4X,I5,11X,I6,12X,I4,4X,F5.1,A1,4X,I4,8X,I2)
      write(6,30) sample,alt,samdat,delC14,delC13,flag13,
     1  corC14,sigma
 30   format(A6,4X,I5,11X,I6,12X,I4,6X,F5.1,A1,4X,I4,8X,I2)
      goto 20   
 99   continue
      close(unit=5)
      close(unit=6)
      stop
      end