cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      program fldel
c      Deletes a flightlines...

      character id*8,fltline(100)*6
      real post(8)

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

      print *,' '
      print *,' Give flightline ids in apostrophes (6 chars)'
      print *,'   as they appear in output from flspecs option...'
      print *,' For example,  960 E is '' 960 E''...'
      print *,' Answer ''END'' when all ids have been entered...'

      do 20 idel=1,100
      print '(/a$)', ' One flight line id [''xxxxxx'']: '
      read *, fltline(idel)
      if(fltline(idel).eq.'END'.or.fltline(idel).eq.'end') go to 40
 20   continue
      
 40   idel=idel-1
      nobs=0
 50   call getpost (21, id, post, *90)
       do 60 i=1,idel
 60    if(id(1:6).eq.fltline(i)) go to 50
      nobs=nobs+1
      call putpost (22, id, post)
      go to 50

 90   close(21)
      call closeblp (22)

      print *,'     NUMBER OF OBS OUTPUT =', nobs

      stop ' '
      end
