Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- elevations4teams

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
elevations4teams
Synopsis
/infobank/programs/html/elevations4teams/elevations4teams.for
Description
  Program to create team 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 (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> 
              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, '(2x,a)') '<t
             write (91, '(4x,a)')
     *            '<td valign="top" align="right" width="10%
             write (91, '(6x,a)')
     *            '<b>Display by
             write (91, '(4x,a)') '</t
             write (91, '(/,4x,a)') '<t
                 write (91, '(6x,a)') 
     *                '<a href="http://walrus.wr.usgs.gov
     *                '/infobank/programs/html/'//
     *                'elevations4containers/containers/'//
     *                LastOutFile(1:LastOutFileLength)//'.html">
     *                'Container #</
                 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</
                  write (91, '(6x,a)') '   '
                 write (91, '(6x,a)') 
     *                '<a href="http://walrus.wr.usgs.gov
     *                '/infobank/programs/html/'//
     *                'elevations4activities/activities/'//
     *                LastOutFile(1:LastOutFileLength)//'.html">
     *                'Activity</
                  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 #</
                  write (91, '(6x,a)') '   '
              write (91, '(4x,a)') '</t
              write (91, '(2x,a)') '</t
          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 (94, '(a)') 
     *                     SortLine(SortTab(11)+1:SortTab(12)-1)//'<b
                      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">
     *                    '<cente
                          write (91, '(a)') 'no team'
                           write (91, '(a)')
     *                        SortLine(1:SortLineLength)
                       write (91, '(a)')
     *                    '</center><
                      write (91, '(a,a,a)')
     *                    '<td bgcolor="ffffff"><
     *                    'empty</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, '(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/elevations4teams'//
     *                 '/teams/'//
     *                 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 =
     *                      '/infobank/tmp/elevations4teams.temp')
                       open (unit = 95,
     *                       access = 'sequential',
     *                       form = 'formatted',
     *                       status = 'unknown',
     *                       name = 
     *                       '/infobank/tmp/elevations4teams.sort.temp')
      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'//
     *                '/elevations4teams/teams/'//
     *                 LastOutFile(1:LastOutFileLength)//'.html')
              call htmlhead (91, ALine(1:Tab(1)-1)//
     *                ', displayed by Teams')
          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(11)+1:SortTab(12)-1), 
     *                         SortTabLength)
                      call system ('/bin/sort -u '//
     *                    '/infobank/tmp/elevations4teams.temp > 
     *                    '/infobank/tmp/elevations4teams.sort.temp')
                      call system ('/bin/rm '//
     *                    '/infobank/tmp/elevations4teams.temp')
                      call backgroundcheck (DirFile, Color(DirNumber))
      call htmlfoot (91, '/infobank/programs/html'//
     *        '/elevations4teams/teams/'//
     *        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/elevations4teams/elevations4teams.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:35 PST 2013  (chd)