Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- itemcontainers2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
itemcontainers2html
Synopsis
/infobank/programs/html/itemcontainers2html/itemcontainers2html.for
Description
  Program to convert .container files for items into .html web pages.

       
AUTHOR
  Clint Steele     1/4/2005


    
Reads
              read (90, '(q,a)', end = 99)
     *            HeaderLength, Header(1:HeaderLength)
                  read (90, '(q,a)', end = 98)
     *                ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)')
     *            ALineLength, ALine(1:ALineLength)
                  read (90, '(q,a)', end = 99)
     *                ALineLength, ALine(1:ALineLength)
Writes
          write (InFile, '(255x)')
          write (InFile, '(a,i3.3,a,i5.5,a)')
     *        '/infobank/items/',Container/100,
     *        '00s/',Container,'.container'
              write (Header, '(2048x)')
                  write (ALine, '(2048x)')
              write (Title, '(255x)')
              write (Title, '(a,i5.5)')
     *            'USGS Activity Physical Data: Container ',
     *            Container
              write (91, '(4x,a)') '</t
              write (91, '(2x,a)') '</t
              write (91, '(a)')    '</tabl
              write (91, '(a)') '<
              write (91, '(a)') '<table border="3" bgcolor="ccffff
              write (91, '(a)') '<t
              write (91, '(a)') '<t
              write (91, '(4x,a)') 
     *           '<b>Location of Container
              write (91, '(4x,a)') '<b
              write (91, '(4x,a)') 
     *          '   '//Location(1:LocationLength)
              write (91, '(a)') '</t
              write (91, '(a)') '</t
              write (91, '(a)') '</tabl
              write (91, '(a)') '<
              write (91, '(a)') '<table border-"0
              write (91, '(a)') '<t
              write (91, '(a)') '<t
              write (91, '(a)') '    '
              write (91, '(a)') '</t
              write (91, '(a)') '<t
              write (91, '(a)') '<table border="1" bgcolor="ccffff
              write (91, '(2x,a)') 
     *            '<tr bgcolor="00ffff" align="center
                      write (91, '(4x,a)') 
     *                  '<th&
     *                  Header(HeaderTab(Loop)+1:HeaderTab(Loop+1)-1)//
     *                  '</t
              write (91, '(2x,a)') '</t
                  write (ALine, '(2048x)')
                      write (ID, '(80x)')
                  write (91, '(2x,a)') '<t
                              write (91, '(4x,a)') '<td&
     *                  '<a href="http://walrus.wr.usgs.gov/infobank/
     *                  ID(1:1)//'/'//ID(1:IDLength)//'/html/'//
     *                  LongSmallID(1:IDLength+3)//'.meta.html">
     *                  LongCapID(1:IDLength+3)//'</
                                write (91, '(4x,a)')
     *                            '<td&
     *                            ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
     *                            '</t
                                write (91, '(4x,a)')
     *                            '<td&
     *                            ALine(Tab(Loop)+1:Comma)//
     *                            '<br&
     *                            ALine(Comma+1:Tab(Loop+1)-1)//
     *                            '</t
                              write (91, '(4x,a)') '<t
                                write (91, '(4x,a)') 
     *                          ALine(OutStart:OutEnd)
                                  write (91, '(4x,a)')
     *                              ALine(OutStart:OutMiddle-1)//'<b
                                write (91, '(4x,a)')
     *                            ALine(OutStart:OutEnd)
                              write (91, '(4x,a)') '</t
                  write (91, '(2x,a)') '</t
              write (91, '(a)') '</tabl
              write (91, '(a)') '</t
              write (91, '(a)') '</t
              write (91, '(a)') '</tabl
              write (91, '(a)') '<table border="0" width="90%" 
     *              'align="center" bgcolor="#f3f3f3" '//
     *              'cellpadding="0" cellspacing="0"&g
              write (91, '(2x,a)') '<t
              write (91, '(4x,a)') '<t
Opens
              open (unit = 90,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'unknown',
     *              file = '/infobank/tmp/itemcontainers2html.temp')
              open (unit = 91,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'unknown',
     *              file = InFile(1:InFileLength)//'.html')
Calls
          call stringlen (InFile, InFileLength)
          call system ('/bin/sed -e ''s/\"//g'' '//
     *                 InFile(1:InFileLength)//' > 
     *                 '/infobank/tmp/itemcontainers2html.temp')
                  call stringlen (Location, LocationLength)
              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 stringlen (ID, IDLength)
                          call changecase ('SMALLS', ID(1:IDLength))
                          call changecase ('CAPITALS', LongCapID)
              call htmlfoot (91, InFile(1:InFileLength)//'.html')

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/itemcontainers2html/itemcontainers2html.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:54 PST 2013  (chd)