cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      program pos2a
c      Converts .pos format to an ascii format for inspection and editing.

      character id*8
      real post(8)

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

 10   call getpost (21, id, post, *90)
      write(22,101)   id,post
 101  format(a8,f10.4,f9.4,f8.2,f9.2,3f8.2,f11.3)
      go to 10

 90   close(21)
      close(22)

      stop ' '
      end
