Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- doarea

Skip navigational links
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
  Subroutine to create .html files for each gazette area for GAZ2HTML.

          read (91, '(q,a)', end = 99) 
     *        BLineLength, BLine(1:BLineLength)
          read (BLine(Tab(4)+1:Tab(5)-1), '(a)') Area
          read (BLine(Tab(7)+1:Tab(8)-1), '(i)') DBLevel
          read (BLine(Tab(8)+1:Tab(9)-1), '(a)') AreaName
          write (Area, '(4x)')
          write (AreaName, '(255x)')
          write (DBArea(DBLevel), '(4x)')
          write (DBName(DBLevel), '(255x)')
      open (unit = 91,
     *      name = '/infobank/programs/keep/gazette.keep',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')
          call changecase ('SMALLS', Area)
          call stringlen (Area, AreaLength)
          call stringlen (AreaName, AreaNameLength)
              call doequip (Left, Top, EntityCount,
     *            Length1, Length2, Length3,
     *            HtmlNameLength, MetaNameLength, EquipLevel,
     *            EquipLoop, AreaLength, MetaName,
     *            HtmlName, Area, Equip, MetaCheck)
              call dohead (Left, Top, EntityCount,
     *            Length1, Length2, Length3,
     *            EquipLevel, EquipLoop, AreaNameLength, AreaName,
     *            Equip, DBLevel, AreaLength,
     *            DBName, DBArea, Area,
     *            GazCount, GazNameLength, GazName,
     *            GazArea, MetaNameLength, MetaName,
     *            HtmlNameLength, HtmlName)
               call doequiptabs (EquipLevel, EquipLoop, EquipCount,
     *            AreaLength, Area, Equip, Length1, Length2,
     *            AreaName, AreaNameLength)
               call includeit (92,
     *             '/infobank/programs/keep/contents.keep') 
              call domap (Length1, Length2, Length3, EquipLevel,
     *            EquipLoop, AreaLength, Area, Equip)
              call domapdiv (GazCount, GazNameLength, 
     *            GazName, GazArea, Area, AreaLength,
     *            MetaName, MetaNameLength)
              call dostyle (GazCount, GazNameLength, AreaLength,
     *            Area, GazName, GazArea)
              call dosummarytabs (Length1, Length2, Length3,
     *            MetaNameLength, EquipLevel, EquipLoop,
     *            AreaNameLength, AreaLength, MetaName, AreaName,
     *            Area, Equip,
     *            ScaleCount, ScaleAreaLength, ScaleArea, Scale)
              call dorecs (GazCount, GazNameLength, 
     *            GazName, GazArea, Area, AreaLength, 
     *            MetaName, MetaNameLength, AreaName, AreaNameLength,
     *            Equip, EquipLevel, EquipLoop,
     *            Length1, Length2, Length3)
              call dofooter (HtmlNameLength, HtmlName)

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  

Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo logo U.S. Department of the Interior | U.S. Geological Survey
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:25 PDT 2013  (chd)