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

USGS InfoBank program -- containers2html

Skip navigational links
Search InfoBank
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab More tab Activities tabs
   
InfoBank Programs: by Name   by Topic  
   
Expanded description
Topic Description
Name
containers2html
Synopsis
/infobank/programs/html/containers2html/containers2html.for
Description
  Program to convert .container files
  into .html web pages.
    
Author
  Clint Steele     8/25/2005     based on activitycontainers2html.for


    
Opens
 open (unit = 83,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'unknown',
*      name = '/infobank/programs/keep/holdings_list.keep')

     open (unit = 84,
*          access = 'sequential',
*          form = 'formatted',
*          status = 'old',
*          name = AFile(1:AFileLength))

     open (unit = 90,
*          access = 'sequential',
*          form = 'formatted',
*          status = 'old',
*          name = ContainerFile(1:ContainerFileLength))

     open (unit = 91,
*          access = 'sequential',
*          form = 'formatted',
*          status = 'unknown',
*          file = '/infobank/programs/html/containers2html/'//
*                 'containers/'//ContainerName(5:5)//'/'//
*                 ContainerName(1:5)//'.html')

    
Reads
     read (83, '(q,a)', end = 986)
*        AFileLength, AFile(1:AFileLength)

     read (84, '(q,a)') HeaderLength(HeaderCount), 
*        Header(HeaderCount)(1:HeaderLength(HeaderCount))
         read (90, '(q,a)', end = 96)
*                ALineLength, ALine(1:ALineLength)
         read (90, '(q,a)', end = 99)
*                ALineLength, ALine(1:ALineLength)

    
Writes
     write (AFile, '(2048x)')
     write (ContainerName, '(i5.5)') ContainerLoop
     write (ContainerFile, '(255x)')
     write (Title, '(255x)')
     write (Title, '(a)')
*            'Activity Physical Data: '//
*            'Container '//ContainerName(1:5)
     write (91, '(4x,a)') '</td>'
     write (91, '(2x,a)') '</tr>'
     write (91, '(a)')    '</table>'
         write (ALine, '(2048x)')
     write (91, '(a)') '<p>'
     write (91, '(a)') '<table border="0">'
     write (91, '(2x,a)') '<tr>'
     write (91, '(4x,a)') '<td>'
     write (91, '(a)') '<table border="3" bgcolor="ccffff">'
     write (91, '(2x,a)') '<tr>'
     write (91, '(4x,a)') '<td>'
     write (91, '(6x,a)') '<b>Location of Container:</b>'
     write (91, '(4x,a)') '<br>'
     write (91, '(6x,a)') ALine(Tab(2)+1:Tab(3)-1)//
*       ', '//ALine(Tab(3)+1:Tab(4)-1)//
*       ', '//ALine(Tab(4)+1:Tab(5)-1)//
*       ', '//ALine(Tab(5)+1:Tab(6)-1)//
*       ', '//ALine(Tab(6)+1:Tab(7)-1)
     write (91, '(4x,a)') '</td>'
     write (91, '(2x,a)') '</tr>'
     write (91, '(a)')    '</table>'
     write (91, '(4x,a)') '</td>'
     write (91, '(4x,a)') '<td valign="top">'
     write (91, '(6x,a)') 'For lat/long information,'
     write (91, '(6x,a)') 'click the Activity ID link, then...'
     write (91, '(6x,a)') '<br>'
     write (91, '(6x,a)') '<img src="http://walrus.wr.usgs.gov'//
*        '/infobank/programs/html/tools/'//
*        'MetadataDataBar.jpg" '//
*        'alt="page section highlighting '//
*        'Samples and samp(GE GM)"'
     write (91, '(6x,a)') '<br>'
     write (91, '(6x,a)') '<font color="red">1</font>: '//
*        'see list of samples;'
     write (91, '(6x,a)') '<font color="red">2</font>: '//
*        'see samples in Google Earth;'
     write (91, '(6x,a)') '<font color="red">3</font>: '//
*        'see samples in Google Maps.'
     write (91, '(4x,a)') '</td>'
     write (91, '(2x,a)') '</tr>'
     write (91, '(a)') '</table>'
     write (91, '(a)')    '<p>'
     write (91, '(a)') '<table border="1" bgcolor="ccffff">'
     write (91, '(2x,a)') 
*            '<tr bgcolor="00ffff" align="center">'

     write (91, '(4x,a)') '<th>Item #</th>'
             write (91, '(4x,a)') 
*                  '<th>'//
*  Header(ThisHeader)
*   (HeaderTab(ThisHeader,Loop)+1:HeaderTab(ThisHeader,Loop+1)-1)//
*                  '</th>'
     write (91, '(2x,a)') '</tr>'
         write (ALine, '(2048x)')
         write (91, '(2x,a)') '<tr>'
         write (91, '(4x,a)') '<td align="center">'//
*            ALine(1:Tab(1)-1)//' </td>'

         write (ShortID, '(20x)')
         write (LongID, '(20x)')
                     write (AccessionName, '(255x)')
                        write (91, '(4x,a)') 
*                         '<td align="center">'//
*                         '<a href="http://walrus.wr.usgs.gov'//
*                         '/infobank/programs/dbase/accessions/'//
*                         AccessionName
*                          (AccessionLength-3:AccessionLength-2)//
*                         '00s/'//
*                         AccessionName
*                          (AccessionLength-3:AccessionLength)//
*                         '.pdf" target="accessionpdf">'//
*                         ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
*                             '</a></td>'
                        write (91, '(4x,a)') 
*                         '<td align="center">'//
*                  ALine(Tab(Loop)+1:Tab(Loop+1)-1)//' </td>'
                         write (91, '(4x,a)')
*                        '<td align="center">'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        '/infobank/'//ShortID(1:1)//'/'//
*                        ShortID(1:IDLength)//'/html/'//
*                        LongID(1:IDLength+3)//'.meta.html"'//
*                        ' target="new">'//
*                        ShortID(1:IDLength)//'</a>'//
*                        ' </td>'
                         write (91, '(4x,a)') 
*                        '<td align="center">'//
*                        ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
*                        ' </td>'
         write (91, '(2x,a)') '</tr>'
     write (91, '(2x,a)')
*            '<tr bgcolor="00ffff" align="center">'

     write (91, '(4x,a)') '<th>Item #</th>'
             write (91, '(4x,a)')
*                  '<th>'//
*  Header(ThisHeader)
*   (HeaderTab(ThisHeader,Loop)+1:HeaderTab(ThisHeader,Loop+1)-1)//
*                  '</th>'
     write (91, '(2x,a)') '</tr>'
     write (91, '(a)') '</table>'
     write (91, '(a)') '</td>'
     write (91, '(a)') '</tr>'
     write (91, '(a)') '</table>'
     write (91, '(a)') '<table border="0" width="90%" '//
*              'align="center" bgcolor="#f3f3f3" '//
*              'cellpadding="0" cellspacing="0">'
     write (91, '(2x,a)') '<tr>'
     write (91, '(4x,a)') '<td>'
    
Calls
     call stringlen (DBaseName(HeaderCount), 
*                    DBaseNameLength(HeaderCount))

     call stringlen (ContainerFile, ContainerFileLength)
     call stringlen (Title, TitleLength)
     call htmlhead (91, Title(1:TitleLength))
     call includeit (91,
*            '/infobank/programs/html/tools/home.tabs')

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

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

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

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

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

         call changecase ('SMALLS', ShortID)
         call stringlen (ShortID, IDLength)
                     call stringlen 
*                        (AccessionName, AccessionLength)
     call htmlfoot (91, 
*                 '/infobank/programs/html/containers2html/'//
*                 'containers/'//ContainerName(5:5)//'/'//
*                 ContainerName(1:5)//'.html')

    

Skip footer navigational links


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

FirstGov button   Take Pride in America button