C This Fortran 77 program was written by VZ to read and write
C Nydal and Lovseth's C14 measurements 
      character labref*9, samdat*13, flag13*1
      real delC14, delC13, corC14
      open(unit=5,file='F.asc')
      open(unit=6)
      read(5,10)
 10   format(///////////////)
 13   continue
      read (5,15, end=99) labref,week,samdat,delC14,delC13,flag13,
     1  corC14,sigma
 15   format(A9,1X,I4,2X,A13,4X,F6.1,2X,F5.1,A1,2X,F6.1,4X,I2)
      write(6,20) labref,week,samdat,delC14,delC13,flag13,
     1  corC14,sigma
 20   format(A9,1X,I4,2X,A13,4X,F6.1,2X,F5.1,A1,2X,F6.1,4X,I2)
      goto 13   
 99   continue
      close(unit=5)
      close(unit=6)
      stop
      end