Link to USGS home page
USGS Home
Contact USGS
Search USGS
Coastal & Marine Geology InfoBank

USGS InfoBank program -- elevations4activities

Skip navigational links
Search InfoBank
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab Activities tabs
   
InfoBank Programs: by Name   by Data Type   General Tools   GIS   Plotting   Web   USGS Disclaimer   InfoBank Programs   Boothill  
   
Expanded description
Topic Description
Name 
elevations4activities
Synopsis 
/infobank/programs/html/elevations4activities/elevations4activities.for
Description 
  Program to create activity elevation view .html pages
  for each materials area.
Author 
  Clint Steele       8/24/2005
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/elevations4activities'//
*                 '/activities/'//
*                 LastOutFile(1:LastOutFileLength)//'.html')

                 open (unit = 92,
*                      access = 'sequential',
*                      form = 'formatted',
*                      status = 'old',
*                      name = '/infobank/programs/dbase/'//
*                             'parseholdings/containers/'//
*                             DirFile(5:5)//'/'//
*                             DirFile(1:5)//'.items')

                 open (unit = 94,
*                      access = 'sequential',
*                      form = 'formatted',
*                      status = 'unknown',
*                      name = '/tmp/elevations4activities.temp')

                  open (unit = 95,
*                       access = 'sequential',
*                       form = 'formatted',
*                       status = 'unknown',
*                       name = 
*                          '/tmp/elevations4activities.sort.temp')

 open (unit = 40,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old',
*      name = '/infobank/programs/dbase/parseholdings/'//
*             'containers/'//DirFile(5:5)//'/'//DirFile//'.items')
Reads 
     read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
             read (ALine(Tab(Loop2)+1:Tab(Loop2+1)-1), '(i)')
*                DirNumber
                     read (92, '(q,a)', end=889)
*                       SortLineLength, SortLine(1:SortLineLength)
                      read (95, '(q,a)', end = 879)
*                        SortLineLength, SortLine(1:SortLineLength)
     read (40, '(q,a)', end = 99)
*        ALineLength, ALine(1:ALineLength)
Writes 
     write (91, '(8x,a)') '<tr bgcolor="00ffff">'
     write (91, '(10x,a)') '<th> </th>'
         write (91, '(10x,a,i3,a)') 
*        '<th><center>col. ',ColumnLoop,'</center></th>'
     write (91, '(10x,a)') '<th> </th>'
     write (91, '(8x,a)') '</tr>'
             write (91, '(6x,a)') '</table>'
         write (LastOutFile, '(255x)')
        write (91, '(2x,a)') '<tr>'
        write (91, '(4x,a)')
*            '<td valign="top" align="right" width="10%">'
        write (91, '(6x,a)')
*            '<b>Display by:</b>'
        write (91, '(4x,a)') '</td>'
        write (91, '(/,4x,a)') '<td>'
            write (91, '(6x,a)') 
*                '<a href="http://walrus.wr.usgs.gov'//
*                '/infobank/programs/html/'//
*                'elevations4containers/containers/'//
*                LastOutFile(1:LastOutFileLength)//'.html">'//
*                'Container #</a>'
            write (91, '(6x,a)') '   '
            write (91, '(6x,a)') 
*                '<a href="http://walrus.wr.usgs.gov'//
*                '/infobank/programs/html/'//
*                'elevations4scientists/scientists/'//
*                LastOutFile(1:LastOutFileLength)//'.html">'//
*                'Scientist</a>'
             write (91, '(6x,a)') '   '
            write (91, '(6x,a)') 
*                '<a href="http://walrus.wr.usgs.gov'//
*                '/infobank/programs/html/'//
*                'elevations4teams/teams/'//
*                LastOutFile(1:LastOutFileLength)//'.html">'//
*                'Team</a>'
             write (91, '(6x,a)') '   '
            write (91, '(6x,a)') 
*                '<a href="http://walrus.wr.usgs.gov'//
*                '/infobank/programs/html/'//
*                'elevations4accessions/accessions/'//
*                LastOutFile(1:LastOutFileLength)//'.html">'//
*                'Accession #</a>'
             write (91, '(6x,a)') '   '
         write (91, '(4x,a)') '</td>'
         write (91, '(2x,a)') '</tr>'
     write (91, '(4x,a)') ' </td>'
     write (91, '(2x,a)') '</tr>'
     write (91, '(2x,a)') '<tr>'
     write (91, '(4x,a)') '<td> </td>'
     write (91, '(2x,a)') '</tr>'
     write (91, '(2x,a)') '<tr>'
     write (91, '(4x,a)') '<td>'
     write (91, '(6x,a)') '<table border="0">'
     write (91, '(8x,a)') '<tr>'
     write (91, '(10x,a)')
*        '<td border="0"><b>Legend:</b> </td>'

         write (91, '(10x,a)')
*            '<td bgcolor="#ccffff" border="3">'//
*            'blue = keep</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ffff99" border="3">'//
*            'yellow  = ?</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ff99cc" border="3">'//
*            'red = dump</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ffffff" border="3">'//
*            'white = empty</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ccffff" border="3">'//
*            'blue = CMG</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ffcc66" border="3">'//
*            'orange = EH</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#d2b48c" border="3">'//
*            'tan = ESP</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#d3d3d3" border="3">'//
*            'gray = MR</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#98fb98" border="3">'//
*            'green = ORG</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ffff99" border="3">'//
*            'yellow = other</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#dda0dd" border="3">'//
*            'purple = PUBS</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ffcccc" border="3">'//
*            'pink = SCI</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ff8888" border="3">'//
*            'red = VH</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ffffff" border="3">'//
*            'white = empty</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ccffff" border="3">'//
*            'blue = CMG</td>'
         write (91, '(10x,a)')
*            '<td bgcolor="#ffffff" border="3">'//
*            'white = empty</td>'
     write (91, '(8x,a)') '</tr>'
     write (91, '(6x,a)') '</table>'
     write (91, '(4x,a)') '</td>'
     write (91, '(2x,a)') '<tr><td> </td></tr>'
     write (91, '(2x,a)') '<tr>'
     write (91, '(4x,a)') '<td>'
     write (91, '(6x,a)') '<table border="3">'
     write (91, '(8x,a)') '<tr bgcolor="00ffff">'
     write (91, '(10x,a)') '<th> </th>'
         write (91, '(10x,a,i3,a)') 
*        '<th><center>col. ',ColumnLoop,'</center></th>'
     write (91, '(10x,a)') '<th> </th>'
     write (91, '(8x,a)') '</tr>'
         write (91, '(8x,a)') '<tr>'
         write (91, '(10x,a,a,a)') 
*            '<th bgcolor="00ffff"><center>row ',
*            ALine(Tab(2)+1:Tab(3)-1),'</center></th>'

             write (DirFile, '(i5.5)') DirNumber 
                         write (94, '(a)') 
*                     SortLine(SortTab(9)+1:SortTab(10)-1)//'<br>'
                 write (91, '(10x,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>'

                     write (91, '(a)') 'no IDs'
                      write (91, '(a)')
*                        SortLine(1:SortLineLength)
                  write (91, '(a)')
*                    '</center></a></td>'

                 write (91, '(a,a,a)')
*                    '<td bgcolor="ffffff"><center>',
*                    'empty</center></td>'
         write (91, '(10x,a,a,a)')
*            '<th bgcolor="00ffff"><center>row ',
*            ALine(Tab(2)+1:Tab(3)-1),'</center></th>'

         write (91, '(8x,a)') '</tr>'
     write (91, '(8x,a)') '<tr bgcolor="00ffff">'
     write (91, '(10x,a)') '<th> </th>'
         write (91, '(10x,a,i3,a)') '<th><center>col. ',
*            ColumnLoop,'</center></th>'
     write (91, '(10x,a)') '<th> </th>'
     write (91, '(8x,a)') '</tr>'
 write (91, '(6x,a)') '</table>'
Calls 
             call htmlfoot (91, '/infobank/programs/html'//
*                '/elevations4activities/activities/'//
*                 LastOutFile(1:LastOutFileLength)//'.html')

         call htmlhead (91, ALine(1:Tab(1)-1)//
*                ', displayed by Activities')

     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 stringlen 
*                        (SortLine(SortTab(9)+1:SortTab(10)-1), 
*                         SortTabLength)
                 call system ('/bin/sort -u '//
*                    '/tmp/elevations4activities.temp > '//
*                    '/tmp/elevations4activities.sort.temp')
                 call system ('/bin/rm '//
*                    '/tmp/elevations4activities.temp')

                 call backgroundcheck (DirFile, Color(DirNumber))
 call htmlfoot (91, '/infobank/programs/html'//
*        '/elevations4activities/activities/'//
*        ALine(Tab(1)+1:Tab(2)-1)//'.html')

         call changecase ('SMALLS', ALine(1:ALineLength))

Skip footer navigational links

InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/elevations4activities/elevations4activities.doc.html
Page Contact Information: Clint Steele
Page Last Modified: Wed Aug 16 03:59:53 PDT 2006  (wcs)

FirstGov button   Take Pride in America button