USGS InfoBank program -- loadscale

loadscale

  Subroutine to gazette scale names and IDS for GAZ2HTML.


       

          read (91, '(q,a)', end = 409) 
     *        GazLineLength, GazLine(1:GazLineLength)
          read (GazLine(Comma(1)+1:Comma(2)-1), '(i)') ThumbScale
          read (GazLine(Comma(3)+1:GazLineLength), '(i)') FullScale

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