Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- areagroups2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
areagroups2html
Synopsis
/infobank/programs/gaz/areagroups2html/areagroups2html.for
Description
  Program to generate an html file of groupings with areas 

  displayed as levels of tables.
       
EXECUTION_TIME
  1 second

    
AUTHOR
  Clint Steele     3/11/03

      upgrade of gazdb2html.for    7/12/01

    
Reads
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (ALine(1:Tab(1)-1), '(f)') North
          read (ALine(Tab(1)+1:Tab(2)-1), '(f)') South
          read (ALine(Tab(2)+1:Tab(3)-1), '(f)') East
          read (ALine(Tab(3)+1:Tab(4)-1), '(f)') West
          read (ALine(Tab(4)+1:Tab(5)-1), '(a)') GazID
              read (ALine(Tab(5)+1:Tab(6)-1), '(a)') RegID
          read (ALine(Tab(6)+1:Tab(7)-1), '(a)') LibCode
          read (ALine(Tab(7)+1:Tab(8)-1), '(i)') Level
          read (ALine(Tab(8)+1:Tab(9)-1), '(a)') Area
          read (ALine(Tab(9)+1:Tab(10)-1), '(a)') OpArea
Writes
      write (Blank, '(80x)')
      write (91, '(a)') '<br 
      write (91, '(a)') '<di
      write (91, '(a)') '<table class="info" width="600
      write (91, '(2x,a)') '<t
      write (91, '(4x,a)') '<t
      write (91, '(6x,a)') 'This documents InfoBank's '//
     *                     'gazetteer structure.'
      write (91, '(6x,a)') '<u
      write (91, '(8x,a)') '<l
      write (91, '(10x,a)') 'InfoBank's area names, '//
     *                      'abbreviations, and geographic '//
     *                      'nesting are shown.'  
      write (91, '(8x,a)') '</l
      write (91, '(6x,a)') '</u
      write (91, '(4x,a)') '</t
      write (91, '(4x,a)') '<t
      write (91, '(4x,a)') '<img src = "http://walrus.wr.usgs.gov/
     *                                'infobank/programs/html/'//
     *                                'training/IBDemo/rawjpg/'//
     *                                'SiteMap.jpg" alt = "Site Map" '//
     *                                'width = "250" />
      write (91, '(4x,a)') '</t
      write (91, '(2x,a)') '</t
      write (91, '(a)') '</table>'
      write (91, '(a)') '</di
      write (91, '(a)') '<br 
      write (91, '(a)') '<table class="noborder" width="600
      write (91, '(a)') '  <t
          write (GazID, '(80x)')
              write (91, '(a,/,a,/,a,/,a)')
     *            Blank(1:Level*2)//
     *            '<td valign="top" width="50"
     *            ' bgcolor="'//Color(Level)//'">
     *            Blank(1:(Level*2)+1)// 
     *            '<table class="border" rules="all" valign="top"
     *            ' bgcolor="'//Color(Level)//'">
     *            Blank(1:(Level*2)+2)//
     *            '<tr
     *            Blank(1:(Level*2)+3)//
     *            '<td valign="top" width="50
                  write (91, '(a,/,a,i1,a)')
     *            Blank(1:(Level*2)+4)//
     *            '<a href="http://walrus.wr.usgs.gov/
     *            'infobank/gazette/html/'//
     *            'regions/'//SmallGazID(1:GazIDLength)//
     *            '.html">
     *            ALine(Tab(8)+1:Tab(9)-1)//
     *            ' ('//GazID(1:GazIDLength)//')'//
     *            '</a
     *            Blank(1:(Level*2)+3)//
     *            '</td>   <!-- ',Lev
                  write (91, '(a,/,a,i1,a)')
     *            Blank(1:(Level*2)+4)//
     *            ALine(Tab(8)+1:Tab(9)-1)//
     *            ' ('//GazID(1:GazIDLength)//')',
     *            Blank(1:(Level*2)+3)//
     *            '   <!-- ',Level,' --
                  write (91, '(a,/,a,i1,a)')
     *            Blank(1:(Loop*2)+2)//
     *            '</tr
     *            Blank(1:(Loop*2)+1)//
     *            '</table&
     *            '<!-- /',Loop,' --&
     *            '</td&
     *            '</t
                  write (91, '(a)')
     *            Blank(1:Level*2)//
     *                '<tr&
     *                '<td valign="top" width="50">
     *                '<a href="http://walrus.wr.usgs.gov/
     *                'infobank/gazette/html/'//
     *                'regions/'//SmallGazID(1:GazIDLength)//
     *                '.html">
     *                ALine(Tab(8)+1:Tab(9)-1)//
     *                ' ('//GazID(1:GazIDLength)//')'//
     *                '</a>
                  write (91, '(a)')
     *            Blank(1:Level*2)//
     *                '<tr&
     *                '<td valign="top" width="50">
     *                ALine(Tab(8)+1:Tab(9)-1)//
     *                ' ('//GazID(1:GazIDLength)//')</t
                  write (91, '(a)')
     *            Blank(1:Level*2)//
     *                '</tr&g
     *                '<tr&
     *                '<td valign="top" width="50"&
     *                '<a href="http://walrus.wr.usgs.gov/
     *                'infobank/gazette/html/'//
     *                'regions/'//SmallGazID(1:GazIDLength)//
     *                '.html">
     *                ALine(Tab(8)+1:Tab(9)-1)//
     *                ' ('//GazID(1:GazIDLength)//')'//
     *                '</a>
                  write (91, '(a)')
     *            Blank(1:Level*2)//
     *                '</tr&g
     *                '<tr&
     *                '<td valign="top" width="50"&
     *                ALine(Tab(8)+1:Tab(9)-1)//
     *                ' ('//GazID(1:GazIDLength)//')</t
          write (91, '(a,i1,a)')
     *            Blank(1:OldLevel*2)//
     *         '</tr&
     *         '</table&
     *         '<!-- /',OldLevel,' -
Opens
      open (unit = 90,
     *          access = 'sequential',
     *          status = 'old',
     *          form = 'formatted',
     *          name = '/infobank/programs/keep/gazette.keep')
      open (unit = 91,
     *          access = 'sequential',
     *          status = 'unknown',
     *          form = 'formatted',
     *          name = '/infobank/programs/gaz/'//
     *                 'areagroups2html/areagroups.html')
Calls
      call htmlhead (91, 'CMG Atlas Area Groups')
      call includeit (91, 
     *    '/infobank/programs/html/tools/atlas.tabs')
      call includeit (91, 
     *    '/infobank/programs/html/tools/atlas.hemispheres.tabs') 
      call includeit (91, 
     *    '/infobank/programs/html/tools/atlas.continents.tabs') 
      call includeit (91, 
     *    '/infobank/programs/html/tools/atlas.oceans.tabs') 
      call includeit (91, 
     *    '/infobank/programs/html/tools/atlas.quickpicks.tabs')
      call includeit (91,
     *    '/infobank/programs/html/tools/atlas.atlas.tabs')
      call includeit (91,
     *    '/infobank/programs/keep/contents.keep')
          call stringlen (GazID, GazIDLength)
          call changecase ('SMALLS', SmallGazID)
      call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
     *     'infobank/programs/gaz/'//
     *     'areagroups2html/areagroups.html')

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 USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/gaz/areagroups2html/areagroups2html.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Thu Oct 24 03:03:16 PDT 2013  (chd)