USGS InfoBank program -- loadarea

loadarea

  Subroutine to gazette area names and IDS for GAZ2HTML.


       

          read (91, '(q,a)', end = 409) 
     *        GazLineLength, GazLine(1:GazLineLength)
          read (GazLine(Tab(4)+1:Tab(5)-1), '(a)') GazArea(GazCount)
          read (GazLine(Tab(8)+1:Tab(9)-1), '(a)') GazName(GazCount)

          write (GazArea(GazCount), '(4x)')
          write (GazName(GazCount), '(255x)')

      open (unit = 91,
     *      name = '/infobank/programs/keep/gazette.keep',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')

          call stringlen (GazName(GazCount), 
     *        GazNameLength(GazCount))
          call changecase ('SMALLS', GazArea(GazLoop))