cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
      program a2blp
c     Converts ascii version back to .POS binary format.

      character id*8
      real post(8)

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

      nerr=0
 10   read(21,101,end=90,err=20) id,post
 101  format(a8,f10.4,f9.4,f8.2,f9.2,3f8.2,f11.3)
      call putpost (22, id, post)
      go to 10

 20   nerr=nerr+1
      go to 10

 90   close(21)
      call closeblp (22)

      if(nerr.gt.0) then
        print *,' WARNING...',nerr,' RECORDS GAVE READ ERRORS...'
        print *,    'THESE RECORDS WERE NOT CONVERTED.'
      endif

      stop ' '
      end


 GAVE READ ERRORS...'
        print *,    'THESE RECORDS WERE NOT CONVERTED.'
      endif

      stop ' '
      end



