Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- elevations4containers

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
elevations4containers
Synopsis
/infobank/programs/html/elevations4containers/elevations4containers.for
Description
  Program to create container elevation view .html pages

  for each materials area.
       
AUTHOR
  Clint Steele       8/24/2005


    
Reads
          read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
                  read (ALine(Tab(Loop2)+1:Tab(Loop2+1)-1), '(i)')
     *                DirNumber
          read (40, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
Writes
          write (91, '(8x,a)') '<tr bgcolor="00ffff
          write (91, '(10x,a)') '<th> 
              write (91, '(10x,a,i3,a)') 
     *        '<th><center>col. ',ColumnLoop,'<
          write (91, '(10x,a)') '<th> 
          write (91, '(8x,a)') '</t
                  write (91, '(6x,a)') '</tabl
              write (LastOutFile, '(255x)')
              write (91, '(a)')
     *        '<!-- START /infobank/programs/html
     *        '/elevations4containers/elevations4containers.for --&g
          write (91, '(4x,a)') ' </t
          write (91, '(2x,a)') '</t
          write (91, '(2x,a)') '<t
          write (91, '(4x,a)') '<td> 
          write (91, '(2x,a)') '</t
          write (91, '(2x,a)') '<t
          write (91, '(4x,a)') '<t
          write (91, '(6x,a)') '<table border="0
          write (91, '(8x,a)') '<t
          write (91, '(10x,a)')
     *        '<td border="0"><b>Legend:<
              write (91, '(10x,a)')
     *            '<td bgcolor="#ccffff" border="3"&
     *            'blue = keep</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ffff99" border="3"&
     *            'yellow  = ?</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ff99cc" border="3"&
     *            'red = dump</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ffffff" border="3"&
     *            'white = empty</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ccffff" border="3"&
     *            'blue = CMG</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ffcc66" border="3"&
     *            'orange = EH</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#d2b48c" border="3"&
     *            'tan = ESP</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#d3d3d3" border="3"&
     *            'gray = MR</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#98fb98" border="3"&
     *            'green = ORG</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ffff99" border="3"&
     *            'yellow = other</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#dda0dd" border="3"&
     *            'purple = PUBS</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ffcccc" border="3"&
     *            'pink = SCI</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ff8888" border="3"&
     *            'red = VH</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ffffff" border="3"&
     *            'white = empty</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ccffff" border="3"&
     *            'blue = CMG</t
              write (91, '(10x,a)')
     *            '<td bgcolor="#ffffff" border="3"&
     *            'white = empty</t
          write (91, '(8x,a)') '</t
          write (91, '(6x,a)') '</tabl
          write (91, '(4x,a)') '</t
          write (91, '(2x,a)') '<tr><td> 
          write (91, '(2x,a)') '<t
          write (91, '(4x,a)') '<t
          write (91, '(6x,a)') '<table border="3
          write (91, '(8x,a)') '<tr bgcolor="00ffff
          write (91, '(10x,a)') '<th> 
              write (91, '(10x,a,i3,a)') 
     *        '<th><center>col. ',ColumnLoop,'<
          write (91, '(10x,a)') '<th> 
          write (91, '(8x,a)') '</t
              write (91, '(8x,a)') '<t
              write (91, '(10x,a,a,a)') 
     *            '<th bgcolor="00ffff"><cent
     *            ALine(Tab(2)+1:Tab(3)-1),'</center>
                  write (DirFile, '(i5.5)') DirNumber 
                      write (91, '(10x,a,i,a)')
     *                    '<td bgcolor="'//Color(DirNumber)//'"&
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/containers2html/'//
     *                    'containers/'//
     *                    DirFile(5:5)//'/'//DirFile(1:5)//'.html">
     *                    '<center
     *                    DirNumber,
     *                    '</center><
                      write (91, '(10x,a,i,a)')
     *                    '<td bgcolor="ffffff"><
     *                    DirNumber,'</center>
              write (91, '(10x,a,a,a)')
     *            '<th bgcolor="00ffff"><cent
     *            ALine(Tab(2)+1:Tab(3)-1),'</center>
              write (91, '(8x,a)') '</t
          write (91, '(8x,a)') '<tr bgcolor="00ffff
          write (91, '(10x,a)') '<th> 
              write (91, '(10x,a,i3,a)') '<th><cente
     *            ColumnLoop,'</center>
          write (91, '(10x,a)') '<th> 
          write (91, '(8x,a)') '</t
          write (91, '(a)')
     *        '<!-- END   /infobank/programs/html
     *        '/elevations4containers/elevations4containers.for --&g
      write (91, '(6x,a)') '</tabl
Opens
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/keep/container_list.keep')
              open (unit = 91,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = '/infobank/programs/html/elevations4containers'//
     *                 '/containers/'//
     *                 LastOutFile(1:LastOutFileLength)//'.html')
      open (unit = 40,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/programs/dbase/parseholdings/'//
     *             'containers/'//DirFile(5:5)//'/'//DirFile//'.items')
Calls
                  call htmlfoot (91, '/infobank/programs/html'//
     *                '/elevations4containers/containers/'//
     *                 LastOutFile(1:LastOutFileLength)//'.html')
              call htmlhead (91, ALine(1:Tab(1)-1)//
     *                ', displayed by Containers')
          call includeit (91, '/infobank/programs/html/tools/'//
     *        'home.tabs')
          call includeit (91, '/infobank/programs/html/tools/'//
     *        'home.cmgfacilities.tabs')
          call includeit (91, '/infobank/programs/html/tools/'//
     *        'home.libraries.tabs')
         call includeit (91, '/infobank/programs/keep/'//
     *       'contents.keep')
          call includeit (91, '/infobank/programs/html'//
     *        '/elevationtabs/'//
     *        ALine(Tab(1)+1:Underscore-1)//'.tabs')
                      call backgroundcheck (DirFile, Color(DirNumber))
      call htmlfoot (91, '/infobank/programs/html'//
     *        '/elevations4containers/containers/'//
     *        ALine(Tab(1)+1:Tab(2)-1)//'.html')
              call changecase ('SMALLS', ALine(1:ALineLength))

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/elevations4containers/elevations4containers.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:41:00 PST 2013  (chd)