Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- regions2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
regions2html
Synopsis
/infobank/programs/html/regions2html/regions2html.for
Description
  Program to generate a regions.html file.

       
EXECUTION_TIME
  1 second

    
AUTHOR
  Clint Steele  4/15/96

  added URL to USGS Core Science Clearinghouse - C.Degnan, 11/26/2012

    
Reads
          read (RegionKeep, '(q,a)', end = 199)
     *        IDLength, ID(1:IDLength)
          read (RegionList, '(q,a)', end = 99) 
     *            IDLength, ID(1:IDLength)
Writes
      write (SummaryFile, '(2x,a)') '<tr
      write (SummaryFile, '(4x,a)') 
     *    '<td valign="top" align="right" width="10%
      write (SummaryFile, '(6x,a)') '<b>First Letter
      write (SummaryFile, '(4x,a,/)') '</t
      write (SummaryFile, '(4x,a)') '<t
      write (SummaryFile, 33) (BigAlphabet(CountA:CountA),
     *                         BigAlphabet(CountA:CountA),
     *                         CountA = 1,26)
      write (SummaryFile, '(4x,a)') '</t
      write (SummaryFile, '(2x,a)') '</t
      write (SummaryFile, '(a)') '<br 
      write (SummaryFile, '(a)') '<di
      write (SummaryFile, '(a)') 
     *   '<table class = "info" width="700
      write (SummaryFile, '(2x,a)') '<t
      write (SummaryFile, '(4x,a)') '<t
      write (SummaryFile, '(6x,a)') 'This provides <b>region&
     *                              '/area-based '//
     *                              'access to Field Activity '//
     *                              'metadata and data. <br 
      write (SummaryFile, '(6x,a)') '<u
      write (SummaryFile, '(8x,a)') '<l
      write (SummaryFile, '(10x,a)') 'Regions are specified in the '//
     *                               'last two characters of an '//
     *                               'InfoBank Activity ID.' 
      write (SummaryFile, '(8x,a)') '</li>&
      write (SummaryFile, '(8x,a)') '<l
      write (SummaryFile, '(10x,a)') 'Region-based collections are '//
     *                               'available both as Activity '//
     *                               'ID-based pages and '//
     *                         'geographic location on Google Earth.'
      write (SummaryFile, '(8x,a)') '</li>&
      write (SummaryFile, '(8x,a)') '<l
      write (SummaryFile, '(10x,a)') 'Areas are defined in '//
     *                               'InfoBank's gazetteer.'
      write (SummaryFile, '(8x,a)') '</li>&
      write (SummaryFile, '(8x,a)') '<l
      write (SummaryFile, '(10x,a)')'Area-based collections are '//
     *                              'viewable geographically on '//
     *                              'Google Earth.' 
      write (SummaryFile, '(8x,a)') '</li>&
      write (SummaryFile, '(6x,a)') '</u
      write (SummaryFile, '(4x,a)') '</t
      write (SummaryFile, '(4x,a)') '<t
      write (SummaryFile, '(6x,a)')
     *     '<img src = "http://walrus.wr.usgs.gov/infobank/
     *     'programs/html/training/IBDemo/rawjpg/ByRegion.jpg" '//
     *     'alt = "Regions" width = "300"/&g
      write (SummaryFile, '(6x,a)') '<u
      write (SummaryFile, '(6x,a)') '<br 
      write (SummaryFile, '(6x,a)') '<br 
      write (SummaryFile, '(8x,a)') 'You may also do '//
     *     'a geographic search'
      write (SummaryFile, '(8x,a)') '<br 
      write (SummaryFile, '(8x,a)') 'restricting the provider '//
     *     'to only:'
      write (SummaryFile, '(8x,a)') '<br 
      write (SummaryFile, '(8x,a)') '"Coastal and Marine '//
     *     'Geology InfoBank"'
      write (SummaryFile, '(8x,a)') '<br 
      write (SummaryFile, '(8x,a)') 'at the USGS '//
     *     'Core Science Clearinghouse'
      write (SummaryFile, '(8x,a)') '<br 
      write (SummaryFile, '(8x,a)')'<<a hr
     *     '"http://mercury.ornl.gov/clearinghouse/" '//
     *     'target="ornl">
     *     'http://mercury.ornl.gov/clearinghouse/</a&
      write (SummaryFile, '(6x,a)') '</u
      write (SummaryFile, '(4x,a)') '</t
      write (SummaryFile, '(2x,a)') '</t
      write (SummaryFile, '(a)') '</tabl
      write (SummaryFile, '(a)') '</di
      write (SummaryFile, '(a)') '<br 
      write (SummaryFile, '(6x,a)') 
     *     '<table class="noborder
      write (SummaryFile, '(8x,a)') '<t
      write (SummaryFile, '(10x,a,/)') '<td width="5%">   
      write (SummaryFile, '(10x,a)') '<t
          write (RegionTemp, '(a)') ID(1:IDLength)
          write (IDFile, '(255x)')
          write (ID,     '(1024x)')
          write (SmallRegion, '(10x)')
          write (SmallAtlas, '(10x)')
          write (IDFile, 2) SmallRegion(1:SmallRegionLength)
                  write (SummaryFile, '(18x,a,/,16x,a,/,14x,a,/,12x,a)')
     *            '</table>','</td>','</
              write (SummaryFile, '(2x,a)') '<br 
              write (SummaryFile, '(2x,a)') 
     *           '<table class="border">
              write (SummaryFile, '(4x,a)') '<td align="right
              write (SummaryFile, '(6x,a)') 
     *            '<b>First Letter
              write (SummaryFile, '(4x,a,/)') '</t
              write (SummaryFile, '(4x,a)') '<t
              write (SummaryFile, 333) (BigAlphabet(CountA:CountA),
     *                         BigAlphabet(CountA:CountA),
     *                         CountA = 1,26)
              write (SummaryFile, '(4x,a)') '</t
              write (SummaryFile, '(2x,a,/)') '</tr><
              write (SummaryFile, 39) CapName, CapName
               write (SummaryFile, 739) ID(Tab(8)+1:Tab(9)-1),
     *               SmallAtlas(1:SmallAtlasLength)
              write (SummaryFile, 839) ID(Tab(8)+1:Tab(9)-1),
     *              SmallAtlas(1:SmallAtlasLength)
              write (SummaryFile,731)
     *            IDFile(1:IDFileLength), 
     *            ID(Tab(8)+1:Tab(9)-1),
     *            ID(Tab(5)+1:Tab(6)-1) 
      write (SummaryFile, 32)
      write (SummaryFile, 433)
      write (SummaryFile, '(16x,a,/,14x,a,/,12x,a,/)') 
     *     '</tabl
Opens
      open (unit   =  SummaryFile,
     *      access = 'sequential',
     *      file   = '/infobank/programs/html/regions2html/'//
     *               'regions.html',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = RegionKeep,
     *      access = 'sequential',
     *      file   = '/infobank/programs/keep/gazette.keep',
     *      form = 'formatted',
     *      status = 'old')
      open (unit = RegionTemp,
     *      access = 'sequential',
     *      file = '/infobank/tmp/regions2html.noquotes.temp',
     *      form = 'formatted',
     *      status = 'unknown')
      open (unit   =  RegionList,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/regions2html.temp',
     *      form   = 'formatted',
     *      status = 'old')
Calls
      call htmlhead (SummaryFile, 
     *        'CMG Activities by Region')
      call includeit (SummaryFile,
     *    '/infobank/programs/html/tools/activities.tabs')
      call includeit (SummaryFile,
     *    '/infobank/programs/html/tools/home.fieldwork.tabs')
      call includeit (SummaryFile,
     *    '/infobank/programs/html/tools/activities.regions.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/virtualglobesstart.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/virtualglobesend.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/iconlegendstart.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/virtualglobeslegend.keep')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/iconlegendend.tabs')
      call includeit (SummaryFile,
     *    '/infobank/programs/keep/contents.keep')
      call system (
     *    'sort -t "	" -k 9 '//
     *    '/infobank/tmp/regions2html.noquotes.temp > 
     *    '/infobank/tmp/regions2html.temp')
      call system ('/bin/rm /infobank/tmp/regions2html.noquotes.temp')
          call changecase ('SMALLS', SmallRegion)
          call stringlen (SmallRegion, SmallRegionLength)
          call stringlen (SmallAtlas, SmallAtlasLength)
          call changecase ('SMALLS', SmallAtlas)
              call changecase ('CAPITALS', CapName)
          call stringlen (IDFile, IDFileLength)
      call stringlen (Path, PathLength)
      call htmlfoot (SummaryFile, Path(1:PathLength))

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/html/regions2html/regions2html.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Thu Nov 14 03:04:09 PST 2013  (chd)