Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- arealist2html

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

  displayed in as a list.
       
EXECUTION_TIME
  1 second

    
AUTHOR
  Clint Steele     3/11/03

      upgraded from areas2html.for     7/18/01

    
Reads
      read (90, '(q,a)', end = 299)
     *       ALineLength, ALine(1:ALineLength)
          read (92, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
Writes
              write (91, '(a)')
     *            '<p><a name="A"> &
      write (91, 33) (BigAlphabet(CountA:CountA),
     *                         BigAlphabet(CountA:CountA),
     *                         CountA = 1,26)
      write (92, '(a)') ALine(1:ALineLength)
                  write (91, '(a)')
     *                '    </td
     *                '  </tr
     *                '</tabl
                  write (91, '(a)')
     *                '<p><a name="'//Letter//'"> &
                  write (91, 33) (BigAlphabet(CountA:CountA),
     *                         BigAlphabet(CountA:CountA),
     *                         CountA = 1,26)
              write (91, '(a)') '<p
     *            '<table border="0" bgcolor="#ccffff"
     *            '  <tr
     *            '    <t
          write (SmallGazID, '(80x)')
                  write (91, '(a)') '      <b
              write (91, '(a)')
     *             '      <a href="http://walrus.wr.usgs.gov/
     *             'infobank/gazette/html/regions/'//
     *             SmallGazID(1:GazIDLength)//
     *             '.html">
     *             ALine(Tab(8)+1:Tab(9)-1)//
     *             ' ('//ALine(Tab(4)+1:Tab(5)-1)//')</
                  write (91, '(a)') '      <b
              write (91, '(a)')
     *            '      '//
     *            ALine(Tab(8)+1:Tab(9)-1)//
     *            ' ('//ALine(Tab(4)+1:Tab(5)-1)//')'
      write (91, '(a)') '    </td
     *                  '  </tr
     *                  '</table
     *                  '<
Opens
      open (unit = 90,
     *          access = 'sequential',
     *          status = 'old',
     *          form = 'formatted',
     *          name = '/infobank/tmp/arealist2html.temp')
      open (unit = 92,
     *          access = 'sequential',
     *          status = 'unknown',
     *          form = 'formatted',
     *          name = '/infobank/tmp/finalarealist.temp')
      open (unit = 91,
     *          access = 'sequential',
     *          status = 'unknown',
     *          form = 'formatted',
     *          name = '/infobank/programs/gaz/'//
     *                 'arealist2html/arealist.html')
      open (unit = 92,
     *          access = 'sequential',
     *          status = 'old',
     *          form = 'formatted',
     *          name = '/infobank/tmp/arealist2html.temp')
Calls
      call system ('/bin/sort -t "	" -k 9 '//
     *    '/infobank/programs/keep/gazette.keep > 
     *    '/infobank/tmp/arealist2html.temp')
      call system('/bin/chmod 664 /infobank/tmp/finalarealist.temp')
      call htmlhead (91, 'CMG Atlas Area List')
      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 system ('/bin/sort -t "	" -k 9 '//
     *    '/infobank/tmp/finalarealist.temp > 
     *    '/infobank/tmp/arealist2html.temp')
          call changecase ('SMALLS', SmallGazID)
          call stringlen (SmallGazID(1:4), GazIDLength)
      call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
     *     'infobank/programs/gaz/'//
     *     'arealist2html/arealist.html')
      call system ('/bin/rm /infobank/tmp/arealist2html.temp')
      call system ('/bin/rm /infobank/tmp/finalarealist.temp')

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/arealist2html/arealist2html.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:16 PDT 2013  (chd)