USGS InfoBank program -- elevations4scientists

elevations4scientists

  Program to create scientist elevation view .html pages

  for each materials area.
       

  Clint Steele       8/24/2005


    

          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)

          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/'//
     *                'elevations4activities/activities/'//
     *                LastOutFile(1:LastOutFileLength)//'.html">
     *                'Activity ID</
                  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</
                  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(10)+1:
     *                            SortTab(11)-1)//'<b
                                  write (94, '(a)')
     *                                SortLine(SortTab(10)+1:
     *                                SortTab(10)+1+Delimiter-2)//
     *                                '<b
                                  write (94, '(a)')
     *                                SortLine(
     *                                   SortTab(10)+1+Delimiter:
     *                                   SortTab(11)-1)//'<b
                              write (94, '(a)') '______<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)') 'nobody'
                           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

      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/elevations4scientists'//
     *                 '/scientists/'//
     *                 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/elevations4scientists.temp')
                       open (unit = 95,
     *                       access = 'sequential',
     *                       form = 'formatted',
     *                       status = 'unknown',
     *                       name = 
     *                 '/infobank/tmp/elevations4scientists.sort.temp')
      open (unit = 40,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/programs/dbase/parseholdings/'//
     *             'containers/'//DirFile(5:5)//'/'//DirFile//'.items')

                  call htmlfoot (91, '/infobank/programs/html'//
     *                '/elevations4scientists/scientists/'//
     *                 LastOutFile(1:LastOutFileLength)//'.html')
              call htmlhead (91, ALine(1:Tab(1)-1)//
     *                ', displayed by Scientists')
          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(10)+1:
     *                             SortTab(11)-1), 
     *                             SortTabLength)
                              call changecase ('TITLE',
     *                            SortLine(SortTab(10)+1:
     *                            SortTab(11)-1))
                      call system ('/bin/sort -u '//
     *                '/infobank/tmp/elevations4scientists.temp > 
     *                '/infobank/tmp/elevations4scientists.sort.temp')
                      call system ('/bin/rm '//
     *                '/infobank/tmp/elevations4scientists.temp')
                      call backgroundcheck (DirFile, Color(DirNumber))
      call htmlfoot (91, '/infobank/programs/html'//
     *        '/elevations4scientists/scientists/'//
     *        ALine(Tab(1)+1:Tab(2)-1)//'.html')
              call changecase ('SMALLS', ALine(1:ALineLength))