Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- elevations4accessions

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

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

  unified indents - CDegnan, 04/24/2013

    
Reads
          read (ContainerListKeep, '(q,a)', end=99)
     *        ALineLength, ALine(1:ALineLength)
              read (ALine(Tab(Loop2)+1:Tab(Loop2+1)-1), '(i)')
     *            DirNumber
                  read (ContainerNumItems, '(q,a)', end=889)
     *                SortLineLength, SortLine(1:SortLineLength)
                          read (Elev4AccessSortTemp, '(q,a)',
     *                        end = 879) SortLineLength,
     *                        SortLine(1:SortLineLength)
          read (ContainerNumItems, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
Writes
                  write (OBrienBldgAreaHtml, '(8x,a)')
     *                '<tr bgcolor="00ffff
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<th> 
                      write (OBrienBldgAreaHtml, '(10x,a,i3,a)') 
     *                    '<th><center>col. '
     *                    '</center>
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<th> 
                  write (OBrienBldgAreaHtml, '(8x,a)') '</t
                  write (OBrienBldgAreaHtml, '(6x,a)') '</tabl
              write (LastOutFile, '(255x)')
                  write (OBrienBldgAreaHtml, '(2x,a)') '<t
                  write (OBrienBldgAreaHtml, '(4x,a)')
     *                '<td valign="top" align="right" width="10%
                  write (OBrienBldgAreaHtml, '(6x,a)')
     *                '<b>Display by
                  write (OBrienBldgAreaHtml, '(4x,a)') '</t
                  write (OBrienBldgAreaHtml, '(/,4x,a)') '<t
                      write (OBrienBldgAreaHtml, '(6x,a)') 
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/'//
     *                    'elevations4containers/containers/'//
     *                    LastOutFile(1:LastOutFileLength)//
     *                    '.html">Container #&l
                      write (OBrienBldgAreaHtml, '(6x,a)')
     *                    '   '
                      write (OBrienBldgAreaHtml, '(6x,a)') 
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/'//
     *                    'elevations4activities/activities/'//
     *                    LastOutFile(1:LastOutFileLength)//
     *                    '.html">Activity ID&l
                      write (OBrienBldgAreaHtml, '(6x,a)')
     *                    '   '
                      write (OBrienBldgAreaHtml, '(6x,a)') 
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/'//
     *                    'elevations4scientists/scientists/'//
     *                    LastOutFile(1:LastOutFileLength)//
     *                    '.html">Scientist&l
                      write (OBrienBldgAreaHtml, '(6x,a)')
     *                    '   '
                      write (OBrienBldgAreaHtml, '(6x,a)') 
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/'//
     *                    'elevations4teams/teams/'//
     *                    LastOutFile(1:LastOutFileLength)//
     *                    '.html">Team&l
                      write (OBrienBldgAreaHtml, '(6x,a)')
     *                    '   '
                  write (OBrienBldgAreaHtml, '(4x,a)') '</t
                  write (OBrienBldgAreaHtml, '(2x,a)') '</t
              write (OBrienBldgAreaHtml, '(4x,a)') ' </t
              write (OBrienBldgAreaHtml, '(2x,a)') '</t
              write (OBrienBldgAreaHtml, '(2x,a)') '<t
              write (OBrienBldgAreaHtml, '(4x,a)') '<td> 
              write (OBrienBldgAreaHtml, '(2x,a)') '</t
              write (OBrienBldgAreaHtml, '(2x,a)') '<t
              write (OBrienBldgAreaHtml, '(4x,a)') '<t
              write (OBrienBldgAreaHtml, '(6x,a)')
     *            '<table border="0
              write (OBrienBldgAreaHtml, '(8x,a)') '<t
              write (OBrienBldgAreaHtml, '(10x,a)')
     *            '<td border="0"><b>Legend:<
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ccffff" border="3"&
     *                'blue = keep</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ffff99" border="3"&
     *                'yellow  = ?</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ff99cc" border="3"&
     *                'red = dump</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ffffff" border="3"&
     *                'white = empty</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ccffff" border="3"&
     *                'blue = CMG</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ffcc66" border="3"&
     *                'orange = EH</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#d2b48c" border="3"&
     *                'tan = ESP</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#d3d3d3" border="3"&
     *                'gray = MR</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#98fb98" border="3"&
     *                'green = ORG</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ffff99" border="3"&
     *                'yellow = other</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#dda0dd" border="3"&
     *                'purple = PUBS</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ffcccc" border="3"&
     *                'pink = SCI</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ff8888" border="3"&
     *                'red = VH</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ffffff" border="3"&
     *                'white = empty</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ccffff" border="3"&
     *                'blue = CMG</t
                  write (OBrienBldgAreaHtml, '(10x,a)')
     *                '<td bgcolor="#ffffff" border="3"&
     *                'white = empty</t
              write (OBrienBldgAreaHtml, '(8x,a)') '</t
              write (OBrienBldgAreaHtml, '(6x,a)') '</tabl
              write (OBrienBldgAreaHtml, '(4x,a)') '</t
              write (OBrienBldgAreaHtml, '(2x,a)')
     *            '<tr><td> 
              write (OBrienBldgAreaHtml, '(2x,a)') '<t
              write (OBrienBldgAreaHtml, '(4x,a)') '<t
              write (OBrienBldgAreaHtml, '(6x,a)')
     *            '<table border="3
              write (OBrienBldgAreaHtml, '(8x,a)')
     *            '<tr bgcolor="00ffff
              write (OBrienBldgAreaHtml, '(10x,a)') '<th> 
                  write (OBrienBldgAreaHtml, '(10x,a,i3,a)') 
     *                '<th><center>col. ',ColumnLoop,'<
              write (OBrienBldgAreaHtml, '(10x,a)') '<th> 
              write (OBrienBldgAreaHtml, '(8x,a)') '</t
          write (OBrienBldgAreaHtml, '(8x,a)') '<t
          write (OBrienBldgAreaHtml, '(10x,a,a,a)') 
     *        '<th bgcolor="00ffff"><cent
     *        ALine(Tab(2)+1:Tab(3)-1),'</center>
              write (DirFile, '(i5.5)') DirNumber 
                          write (Elev4AccessionsTemp, '(a)') 
     *                        SortLine(SortTab(Column)+1:
     *                        SortTab(Column+1)-1)//'<b
                      write (Elev4AccessionsTemp, '(a)') '______<b
                  write (OBrienBldgAreaHtml, '(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 (OBrienBldgAreaHtml, '(a)') '______'
                          write (OBrienBldgAreaHtml, '(a)')
     *                        SortLine(1:SortLineLength)
                  write (OBrienBldgAreaHtml, '(a)')
     *                '</center><
                  write (OBrienBldgAreaHtml, '(a,a,a)')
     *                '<td bgcolor="ffffff"><
     *                'empty</center>
          write (OBrienBldgAreaHtml, '(10x,a,a,a)')
     *        '<th bgcolor="00ffff"><cent
     *        ALine(Tab(2)+1:Tab(3)-1),'</center>
          write (OBrienBldgAreaHtml, '(8x,a)') '</t
      write (OBrienBldgAreaHtml, '(8x,a)') '<tr bgcolor="00ffff
      write (OBrienBldgAreaHtml, '(10x,a)') '<th> 
          write (OBrienBldgAreaHtml, '(10x,a,i3,a)')
     *        '<th><center>col. ',ColumnLoop,'<
      write (OBrienBldgAreaHtml, '(10x,a)') '<th> 
      write (OBrienBldgAreaHtml, '(8x,a)') '</t
      write (OBrienBldgAreaHtml, '(6x,a)') '</tabl
Opens
      open (unit = ContainerListKeep,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/keep/container_list.keep')
              open (unit = OBrienBldgAreaHtml,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name =
     *              '/infobank/programs/html'//
     *              '/elevations4accessions/accessions/'//
     *              LastOutFile(1:LastOutFileLength)//'.html')
                  open (unit = ContainerNumItems,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'old',
     *                  name = '/infobank/programs/dbase/'//
     *                         'parseholdings/containers/'//
     *                          DirFile(5:5)//'/'//
     *                          DirFile(1:5)//'.items')
                  open (unit = Elev4AccessionsTemp,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name =
     *                '/infobank/tmp/elevations4accessions.temp')
                      open (unit = Elev4AccessSortTemp,
     *                    access = 'sequential',
     *                    form = 'formatted',
     *                    status = 'unknown',
     *                    name = 
     *                '/infobank/tmp/elevations4accessions.sort.temp')
      open (unit = ContainerNumItems,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/programs/dbase/parseholdings/'//
     *          'containers/'//DirFile(5:5)//'/'//DirFile//'.items')
Calls
                  call htmlfoot (OBrienBldgAreaHtml,
     *                '/infobank/programs/html'//
     *                '/elevations4accessions/accessions/'//
     *                 LastOutFile(1:LastOutFileLength)//'.html')
              call htmlhead (OBrienBldgAreaHtml, ALine(1:Tab(1)-1)//
     *                ', displayed by Accessions')
              call includeit (OBrienBldgAreaHtml,
     *            '/infobank/programs/html/tools/'//
     *            'home.tabs')
              call includeit (OBrienBldgAreaHtml,
     *            '/infobank/programs/html/tools/'//
     *            'home.cmgfacilities.tabs')
              call includeit (OBrienBldgAreaHtml,
     *            '/infobank/programs/html/tools/'//
     *            'home.libraries.tabs')
              call includeit (OBrienBldgAreaHtml,
     *            '/infobank/programs/keep/contents.keep')
              call includeit (OBrienBldgAreaHtml,
     *            '/infobank/programs/html/elevationtabs/'//
     *            ALine(Tab(1)+1:Underscore-1)//'.tabs')
                      call stringlen 
     *                    (SortLine(SortTab(Column)+1:
     *                    SortTab(Column+1)-1), 
     *                    SortTabLength)
                          call changecase ('CAPITALS',
     *                        SortLine(SortTab(Column)+1:
     *                        SortTab(Column+1)-1))
                  call system ('/bin/sort -u '//
     *                '/infobank/tmp/elevations4accessions.temp > 
     *                '/infobank/tmp/elevations4accessions.sort.temp')
                  call backgroundcheck (DirFile, Color(DirNumber))
      call htmlfoot (OBrienBldgAreaHtml, '/infobank/programs/html'//
     *    '/elevations4accessions/accessions/'//
     *    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/elevations4accessions/elevations4accessions.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:57 PST 2013  (chd)