PROGRAM REFORMAT
c
c     This program will reformat the bottle data submitted
c     by P.Mele (LDEO) for cruise DT97, project DOVETAIL,
c     accession # 0000753
c
c     25 July 2002, RAL, OCL/NODC.
c

      real*8 data(9)
      integer ipre, idep
      character*80 cline

      open(unit=9,name='botall',status='old')
      open(unit=12,name='dt97.bot',status='new')


   10 read(9,11,end=30) cline(1:80)
   11 format(A80)

      if ( cline(1:3) .eq. 'B32' ) then
       write(12,33) cline(1:61)
   33 format(A61)
      elseif ( cline(1:3) .eq. '&zc' ) then
       write(12,33) cline(1:61)
      elseif ( cline(1:3) .eq. '@pr' ) then
       write(12,33) cline(1:61)
      else
       backspace(9)
       read(9,*) (data(i), i=1,9)
       inum = data(9)
       write(12,22) (data(i), i=1,8), inum
   22  format(F7.1,2F8.4,5F7.3,I3)
      endif

      goto 10

   30 close(9)
      close(12)

      stop
      end