Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- items2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
items2html
Synopsis
/infobank/programs/html/items2html/items2html.for
Description
  Program to convert .item files into .html files.

       
AUTHOR
  Clint Steele    1/30/2003

       based on analog2html.for 

    
Reads
          read (ListUnit, '(t13,q,a)', end = 99)
     *           InNameLength, InName(1:InNameLength)
              read (InUnit, '(q,a)', end = 999)
     *            ALineLength, ALine(1:ALineLength)
Writes
      write (Command, '(255x)')
          write (InName, '(255x)')
          write (OutName, '(255x)')
          write (OutName, 2) InName(1:InNameLength-5)
          write (HistoryUnit, '(a)') OutName(1:OutNameLength)
              write (ALine, '(1024x)')
          write (OutUnit, '(a)')
     *          '<table border="0" width="80%"><
Opens
      open (unit   = HistoryUnit,
     *      file   = '/infobank/programs/html/items2html/history.log',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit   = ListUnit,
     *      file   = '/infobank/tmp/items2html.temp',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')
          open (unit   = InUnit,
     *          file   = InName(1:InNameLength),
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'old')
          open (unit   = OutUnit,
     *          file   = OutName(1:OutNameLength),
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown')
Calls
      call stringlen (Command, CommandLength)
      call system (Command(1:CommandLength))
          call stringlen (OutName, OutNameLength)
          call htmlhead (OutUnit, 
     *        'Activity Physical Data: Container '//
     *        InName(InNameLength-9:InNameLength-5))
          call includeit (OutUnit,
     *   '/infobank/programs/html/tools/home.tabs')
          call includeit (OutUnit,
     *   '/infobank/programs/html/tools/home.uses.tabs')
          call includeit (OutUnit,
     *   '/infobank/programs/html/tools/home.cmgstaff.tabs')
          call includeit (OutUnit,
     *   '/infobank/programs/html/tools/home.cmgfacilities.tabs')
          call includeit (OutUnit,
     *   '/infobank/programs/html/tools/home.cmgdirections.tabs')
          call includeit (OutUnit,
     *        '/infobank/programs/keep/contents.keep')
                  call htmlfromaccession (InUnit, OutUnit)
                  call htmlfromhyphens (InUnit, OutUnit)
          call stringlen (Path, PathLength)
          call htmlfoot (OutUnit, Path)

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