Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- maininfo2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
maininfo2html
Synopsis
/infobank/programs/html/info2html/maininfo2html.for
Description
  Program to generate <Activity_ID>.html from Information Bank 

       
NOTES
  Typing "info2html" runs "/infobank/programs/shells/info2html"

  it creates "/infobank/tmp/info2html.control.keep" 
  (a list of activity IDs) and then executes this program.
  
  This info2html reads "/infobank/programs/keep/dictionary.keep" information.
  Loops through for each ID in the 
  "/infobank/tmp/info2html.control.keep" ID list.
  Calls "inventory" to determine the existance or not of 
    certain directries and .filenames
  Opens the "<ID>/html/<ID>
  Calls "htmlhead" to insert the standard header.
  Calls "controlbar" to insert the standard control bar while
     using "existance" info to determine if links are added.
  Calls "overviewtable" to add the ".overview" info.
  Calls "overviewtable" to add the ".ngdc_overview" info.
  Calls "htmlfoot" to insert the standard footer.
  Closes the "<ID>/html/<ID>
 
  Calls "types" that uses "/infobank/programs/keep/equiptypes.keep" to
     construct nested level filenames.
  Calls executiontime to print the executiontime
  Multiply calls "make0to6" for 
  "nav", "bath", "mag", "grav", "seis", "imag"
  data types.
  For "meta" calls "makemetatype", for others calls "makedatatype".
  "makemetatype" calls "linkable", "nonlinkable", and "publinkable".
  "makedatatype" calls "specmeta" and "specdata"
    
AUTHOR
  Clint Steele   10/16/97

  Sumy Tom       11/04/09
  Added a call to executiontime(integer)
  replaces functionality of FJOB
  Set disk "imag1" for activities A-M and "imag2" for N-Z and
  added variable ImageDisk to call addimag, to call addimgarc,
  to call inventory, to call make0to6, and to call adddata. CDegnan, 8/23/2012
 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

    
Reads
          read (DictionaryUnit, '(q,a)', end=501) 
     *        TempLineLength, TempLine(1:TempLineLength)
          read (TempLine(Tab(9)+1:Tab(10)-1), '(q,a)')
     *        DictionaryLength, Dictionary(Count)(1:DictionaryLength)
5     read(ControlUnit,'(a)',err = 10)text 
      read (ControlUnit, '(q,a)', end=98) 
     *      ALineLength, ALine(1:ALineLength)
      read (58, '(t10,a19)', end = 589) CapID
Writes
      write (Existance, '(1024x)')
          write (TempLine, '(4096x)')
      write (ShortID, '(7x)')
      write (LongID, '(10x)')
      write (CapID, '(20x)')
          write (LongID, 2) 
     *        ALine(1:1), ALine(2:3), ALine(4:5), ALine(6:7)
          write (LongID, 2) 
     *        ALine(1:1), ALine(2:2), ALine(3:4), ALine(5:6)
      write (Existance, '(1024x)')
Opens
      open (unit   = DictionaryUnit,
     *      file   = '/infobank/programs/keep/dictionary.keep',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')
      open (unit   = ControlUnit,
     *      file   = '/infobank/tmp/info2html.control.temp',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')
      open (unit = 58,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/'//
     *             ALine(1:1)//'/'//
     *             ShortID(1:IDLength)//'/meta/'//
     *             LongID(1:IDLength+3)//'.ids')
Calls
      call stringlen (CapID, CapIDLength)
      call changecase ('CAPITALS', CapID(1:CapIDLength))
      call stringlen (Existance, ExistanceLength)
      call inventory (ImageDisk, ShortID(1:1), 
     *               ShortID(1:IDLength), LongID(1:IDLength+3),
     *               Existance, ExistanceLength)
      call stringlen (Existance, ExistanceLength)
          call make0to6 (ImageDisk,
     *                   '/infobank/'//ImageDisk,'imag', 'Imagery',
     *                   IDLength, 
     *                   ShortID, LongID, CapID(1:CapIDLength),
     *                   Dictionary, Existance(1:ExistanceLength))
          call system ('/bin/rm /infobank/tmp/info2html.temp.list')
          call system ('/bin/rm /infobank/tmp/info2html.data.list')
         call system ('/bin/rm /infobank/tmp/info2html.meta.list')
      call system ('/bin/rm /infobank/tmp/info2html_datatable.temp')

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