Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- makemain

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
makemain
Synopsis
/infobank/programs/html/makemain/makemain.for
Description
  Program to generate the main (stable) InfoBank pages.

       
OUTPUT
  output .html name (replaces .html with .txt for input file name)

  page title
    
AUTHOR
  Clint Steele    4/8/98


    
Reads
          read (88, '(q,a)', end = 9999) 
     *          DirLength, Dir(1:DirLength)
          read (89, '(q,a)', end = 999)
     *    NameLength, PageName
          read (89, '(q,a)', end = 999)
     *    TitleLength, PageTitle
          read (89, '(q,a)', end = 999)
     *    ScriptLength, Script
              read (90, '(q,a)', end = 99) 
     *            ALineLength, ALine(1:ALineLength)
                      read (84, '(q,a)', end = 89)
     *                    ALineLength, ALine(1:ALineLength)
Writes
          write (PageName,  '(4096x)')
          write (PageTitle, '(4096x)')
          write (HomeDir, '(255x)')
         write (TempUnit, '(a)') TempFile (1:TempFileLength)
                      write (91, '(a)') ALine(1:ALineLength)
                  write (91, '(a)') ALine(1:ALineLength)
Opens
      open (unit   = 88,
     *      name   = '/infobank/tmp/makemain.control.temp',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')
      open (unit   = 89,
     *      name   = Dir(1:DirLength),
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')
          open (unit = 90,
     *      name   = TempFile (1:TempFileLength),
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')
          open (unit = TempUnit,
     *      name   = '/infobank/tmp/htmlhead.filename.temp',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown')
          open (unit = 91,
     *      name   = HomeDir(1:HomeDirLength)//
     *               Dir(Slash+5:DirLength-5)//'/'//
     *               PageName(1:NameLength),
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown')
                  open (unit = 84,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = ALine
     *   (index(ALine(1:ALineLength), '<include>')+ 9:ALineLe
Calls
      call system ('/bin/ls -1 /infobank/programs/keep/make*.keep > 
     *             '/infobank/tmp/makemain.control.temp')
          call stringlen (PageName, NameLength)
          call stringlen (PageTitle, TitleLength)
          call stringlen (Script, ScriptLength)
          call stringlen (HomeDir, HomeDirLength)
          call stringlen (TempFile, TempFileLength)
          call getunit (TempUnit)
              call htmlhead (91, PageTitle(1:TitleLength))
              call htmlheadx (91, PageTitle(1:TitleLength),
     *                            PageTitle(1:TitleLength),
     *                            Script(1:ScriptLength))
              call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
     *        'infobank/index.html')
              call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
     *                  'infobank/programs/html/'//
     *                  Dir(Slash+5:DirLength-5)//'/'//
     *                  PageName(1:NameLength))

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