cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      program fltopo
c      Calculates terrain elevation as barom elev (m) minus
c      radar ground clearance (m) and inserts in post option 3.

      character id*8
      real post(8)

      print *,'Calculates terrain elev (m) from barom elev minus'
      print *,' radar ground clearance and inserts in post option 3.'

      call getfile2(10,' Infile ','in','unformatted','.pos')
      call getfile2(11,' Outfile ','out','unformatted','.top')

 10   call getpost (10, id, post, *90)
      post(5)=post(6)-post(5)
c      post option = index minus 2.
      call putpost (11, id, post)
      go to 10

 90   close(10)
      call closeblp (11)

      stop ' '
      end


   call putpost (11, id, post)
      go to 10

 90   close(10)
      call closeblp (11)

      stop ' '
      end
