cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      program flget
c      Extracts a given flightline and outputs it...

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

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

      print *,' '
      print *,' Give flightline id in apostrophes (6 chars)'
      print *,'   as it appears in output from flspecs option...'
      print *,' For example,  960 E is '' 960 E''...'
      print '(/a$)', ' Flight line id [''xxxxxx'']: '
      read *, fltline

      nobs=0
 10   call getpost (21, id, post, *90)
      if(id(1:6).ne.fltline) go to 10
      nobs=nobs+1
      call putpost (22, id, post)
      go to 10

 90   close(21)
      call closeblp (22)

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

      stop ' '
      end


   close(21)
      call closeblp (22)

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

      stop '
