USGS InfoBank program -- georef2ids

georef2ids

  Program to convert GEOREF output into ID request files.

       

  Clint Steele    01/23/98


    

          read (90, '(q,a)', end = 99) Length, ALine(1:Length)
          read (90, '(/,q,a)', end = 99) Length, ALine(1:Length)
          read (90, '(/,q,a)', end = 99) Length, ALine(1:Length)
              read (90, '(/,q,a)', end = 99) Length, ALine(1:Length)

              write (91, '(a)') ALine(Colon-2:Length)
              write (ALine, '(1024x)')
          write (91, '(a)') ALine(Colon-2:Length)
          write (91, '(a,//)') 'ID:  '

      call openem (1,-1)
              call stringlen (ALine, Length)
          call stringlen (ALine, Length)