cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      program tiedel
c     Deletes tie lines from a .pos format file

      character id*8, dir1*2, dir2*2
      real post(8)

      print *,'   Give flightline directions to be deleted (2 chars)...'
      write(6,1001)
 1001 format(1x,39h   For example 'E ' or ' E' or 'NW' ...)
      print *, '   Give first direction in apostrophes:   '
      read *, dir1
      print *, '   Give second direction in apostrophes:  '
      read *, dir2

      call getfile2(21,' Infile ','in','unformatted','.pos')
      call getfile2(22,' Outfile ','out','unformatted','.new')

 10   call getpost (21, id, post, *90)
      if(id(5:6).eq.dir1.or.id(5:6).eq.dir2) go to 10
      call putpost (22, id, post)
      go to 10

 90   close(21)
      call closeblp (22)

      stop ' '
      end


   call putpos
