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

USGS InfoBank program -- containerhtmls4scientists

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 
containerhtmls4scientists
Synopsis 
/infobank/programs/html/containerhtmls4scientists/containerhtmls4scientists.for
Description 
  Program to generate .html pages for each scientist that has
  physical materials.
Author 
  Clint Steele   3/30/2006    based on containerhtmls2activities
Opens 
 open (unit = HoldingsHeadersFile,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old',
*      name = '/infobank/programs/keep/holdings_headers.keep')

 open (unit = ItemsListFile,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old',
*      name = '/tmp/containerhtmls4scientists.items.temp')

         open (unit = ScientistItemFile,
*              access = 'sequential',
*              form = 'formatted',
*              status = 'old',
*              name = ScientistLine(1:ScientistLineLength))

         open (unit = ScientistHtmlFile,
*              access = 'append',
*              form = 'formatted',
*              status = 'unknown',
*              name = '/infobank/programs/html'//
*                     '/containerhtmls4scientists/scientists/'//
*                     ScientistLine(NameStart:NameEnd)//'.html')
Reads 
     read (HoldingsHeadersFile, '(q,a)', end = 199)
*        DBHeadLineLength(DBCount), 
*        DBHeadLine(DBCount)(1:DBHeadLineLength(DBCount))

     read (ItemsListFile, '(q,a)', end = 399) 
*        ScientistLineLength, ScientistLine(1:ScientistLineLength)

         read (ScientistItemFile, '(q,a)', end=1088) 
*              RecLineLength, RecLine(1:RecLineLength)
             read (ScientistItemFile, '(q,a)', end = 1099)
*                RecLineLength, RecLine(1:RecLineLength)
Writes 
 write (ThisScientist, '(80x)')
 write (LastScientist, '(80x)')
         write (ThisScientist, '(80x)')
         write (ScientistHtmlFile, '(2x,a)') '</tr>'
         write (ScientistHtmlFile, '(2x,a)') '</table>'
         write (ScientistHtmlFile, '(a)')
*              '<table border="0" width="90%" '//
*              'align="center" bgcolor="#ffffff" '//
*              'cellpadding="0" cellspacing="0">'
         write (ScientistHtmlFile, '(2x,a)') '<tr>'
         write (ScientistHtmlFile, '(4x,a)') '<td>'
         write (ScientistHtmlFile, '(6x,a)') '<table border="0">'
         write (ScientistHtmlFile, '(8x,a)') '<tr>'
         write (ScientistHtmlFile, '(10x,a)') '<td>'
         write (LastScientist, '(80x)')
         write (TitleScientist, '(80x)')
         write (ScientistHtmlFile, '(4x,a)') '</td>'
         write (ScientistHtmlFile, '(2x,a)') '</tr>'
         write (ScientistHtmlFile, '(a)')    '</table>'
         write (LastLocation, '(1024x)')
                 write (ScientistHtmlFile, '(2x,a)') '</tr>'
                 write (ScientistHtmlFile, '(a)') '</table>'
                 write (ScientistHtmlFile, '(a)') 
*                    '<br>'

                 write (ScientistHtmlFile, '(a)') 
*                    '<table border="3" bgcolor="00ffff">'
                 write (ScientistHtmlFile, '(2x,a)') '<tr>'
                 write (ScientistHtmlFile, '(4x,a)') '<td>'
                 write (ScientistHtmlFile, '(6x,a)')
*                    '<b>Location of Containers:</b>'

                 write (ScientistHtmlFile, '(6x,a)') 
*                         RecLine(RecTab(4)+1:RecTab(5)-1) //
*                   ', ' //RecLine(RecTab(5)+1:RecTab(6)-1)
                 write (ScientistHtmlFile, '(4x,a)') '</td>'
                 write (ScientistHtmlFile, '(2x,a)') '</tr>'
                 write (ScientistHtmlFile, '(a)') '</table>'
                 write (ScientistHtmlFile, '(a)') 
*                   '<table border="1" bgcolor="ccffff">'
                 write (ScientistHtmlFile, '(2x,a)')
*                   '<tr bgcolor="00ffff" align="center">'
                 write (ScientistHtmlFile, '(4x,a)') 
*                   '<th>Item #</th>'


                 write (ScientistHtmlFile, '(4x,a)') 
*                   '<th>Activity ID</th>'


                 write (ScientistHtmlFile, '(4x,a)') 
*                   '<th>Container #</th>'
                 write (ScientistHtmlFile, '(4x,a)') 
*                   '<th>Container Area</th>'
                 write (ScientistHtmlFile, '(4x,a)') 
*                   '<th>Column</th>'
                 write (ScientistHtmlFile, '(4x,a)') '<th>Row</th>'
                         write (ScientistHtmlFile, '(4x,a)') 
*                 '<th>' // DBHeadline(DBnum)(DBTab(DBnum,Loop)+1
*                          :DBTab(DBnum, Loop+1)-1) // '</th>'
                 write (ScientistHtmlFile, '(2x,a)') '</tr>'
             write (ScientistHtmlFile, '(2x,a)') '<tr>'
             write (ScientistHtmlFile, '(4x,a)') '<td>'
             write (ScientistHtmlFile, '(4x,a)')
*                   RecLine(RecTab(1)+1:RecTab(2)-1)
             write (ScientistHtmlFile, '(4x,a)') '</td>'
             write (ScientistHtmlFile, '(4x,a)') '<td>'
             write (ScientistHtmlFile, '(4x,a)')
* '<a href="http://walrus.wr.usgs.gov/infobank/'//ShortID(1:1)//
* '/'//ShortID(1:IDLength)//'/html/'//LongID(1:IDLength+3)//
* '.meta.html"> '//CapShortID(1:IDLength)//'</a>'
             write (ScientistHtmlFile, '(4x,a)') '</td>'
             write (ScientistHtmlFile, '(4x,a)') '<td>'
             write (ScientistHtmlFile, '(4x,a)') ' '
             write (ScientistHtmlFile, '(4x,a)') '</td>'
             write (ScientistHtmlFile, '(4x,a)') '<td>'
             write (ScientistHtmlFile, '(4x,a)')
*                   RecLine(RecTab(2)+1:RecTab(3)-1)
             write (ScientistHtmlFile, '(4x,a)') '</td>'
             write (ScientistHtmlFile, '(4x,a)') '<td>'
             write (ScientistHtmlFile, '(4x,a)')
*                   RecLine(RecTab(3)+1:RecTab(4)-1)
             write (ScientistHtmlFile, '(4x,a)') '</td>'
             write (ScientistHtmlFile, '(4x,a)') '<td>'
             write (ScientistHtmlFile, '(4x,a)')
*                   RecLine(RecTab(6)+1:RecTab(7)-1)
             write (ScientistHtmlFile, '(4x,a)') '</td>'
             write (ScientistHtmlFile, '(4x,a)') '<td>'
             write (ScientistHtmlFile, '(4x,a)')
*                   RecLine(RecTab(7)+1:RecTab(8)-1)
             write (ScientistHtmlFile, '(4x,a)') '</td>'
                     write (ScientistHtmlFile, '(4x,a)') '<td>'
                             write (ScientistHtmlFile, '(4x,a)')
*                                   ' '
                             write (ScientistHtmlFile, '(4x,a)')
*                    RecLine(RecTab(Loop)+1:RecTab(Loop+1)-1)    
                     write (ScientistHtmlFile, '(4x,a)') '</td>'
         write (ScientistHtmlFile, '(2x,a)') '</tr>'
         write (ScientistHtmlFile, '(2x,a)') '</table>'
         write (ScientistHtmlFile, '(a)') 
*              '<table border="0" width="90%" '//
*              'align="center" bgcolor="#ffffff" '//
*              'cellpadding="0" cellspacing="0">'
         write (ScientistHtmlFile, '(2x,a)') '<tr>'
         write (ScientistHtmlFile, '(4x,a)') '<td>'
         write (ScientistHtmlFile, '(6x,a)') '<table border="0">'
         write (ScientistHtmlFile, '(8x,a)') '<tr>'
         write (ScientistHtmlFile, '(10x,a)') '<td>'
Calls 
 call system ('/bin/rm /infobank/programs/html'//
*    '/containerhtmls4scientists/scientists/*.html')

 call system ('/bin/cp /infobank/programs/html/index.html '//
*    '/infobank/programs/html'//
*    '/containerhtmls4scientists/scientists/.')

 call system ('/bin/ls -1 /infobank/programs/dbase/parseholdings'//
*             '/scientists/a*/*.items > '//
*             '/tmp/containerhtmls4scientists.items.temp')

     call system 
*       ('/bin/ls -1 /infobank/programs/dbase/parseholdings'//
*        '/scientists/'//Alphabet(AlphaLoop:AlphaLoop)//
*        '*/*.items >> '//
*        '/tmp/containerhtmls4scientists.items.temp')
         call stringlen (ThisScientist, ThisScientistLength)
         call htmlfoot (ScientistHtmlFile,
*            '/infobank/programs/html'//
*            '/containerhtmls4scientists/scientists/'//
*            LastScientist(1:LastScientistLength)//'.html')

         call stringlen (LastScientist, LastScientistLength)
         call changecase ('TITLE', TitleScientist)
         call htmlhead (ScientistHtmlFile, 
*            'Activity Physical Data: '//
*            TitleScientist(1:NameEnd-NameStart+1))

         call includeit (ScientistHtmlFile,
*            '/infobank/programs/html/tools/home.tabs')

         call includeit (ScientistHtmlFile,
*            '/infobank/programs/html/tools/home.uses.tabs')

         call includeit (ScientistHtmlFile,
*            '/infobank/programs/html/tools/home.cmgstaff.tabs')

         call includeit (ScientistHtmlFile,
*         '/infobank/programs/html/tools/home.cmgfacilities.tabs')

         call includeit (ScientistHtmlFile,
*         '/infobank/programs/html/tools/home.cmgdirections.tabs')

         call includeit (ScientistHtmlFile,
*            '/infobank/programs/keep/contents.keep')

             call stringlen(ShortID, IDLength)
             call changecase ('SMALLS', ShortID)
         call htmlfoot (ScientistHtmlFile,
*            '/infobank/programs/html'//
*            '/containerhtmls4scientists/scientists/'//
*            LastScientist(1:LastScientistLength)//'.html')

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/containerhtmls4scientists/containerhtmls4scientists.doc.html
Page Contact Information: Clint Steele
Page Last Modified: Wed Oct 18 04:00:12 PDT 2006  (wcs)

FirstGov button   Take Pride in America button