Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- htmlheadx

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
htmlheadx
Synopsis
/infobank/programs/share/htmlheadx.for
Description
  Subroutine to output the extended current CMG standard 

  .html header.
       
AUTHOR
   Clint Steele   5/16/2001


    
Reads
          read (FormUnit, '(q,a)', end = 99)
     *         ALineLength, ALine(1:ALineLength)
                          read (68, '(q,a)', end = 98)
     *                        ALineLength, ALine(1:ALineLength)
Writes
              write (OutputUnit, '(a)') ALine(1:ALineLength)
                  write (OutputUnit, '(a)') 
     *                 ALine(1:ALineLength)
                      write (OutputUnit, '(4x,a,a)')
     *                    'USGS--',
     *                    BookmarkTitle(1:BookmarkTitleLength)
                      write (OutputUnit, '(6x,a)')
     *                   '<font size="+2" face="arial"&g
                      write (OutputUnit, '(6x,a)')
     *                    PageTitle(1:PageTitleLength)
                      write (OutputUnit, '(6x,a)')
     *                   '</b>&l
                      write (OutputUnit, '(6x,a)')
     *                    '<table class="noborder" width="600
                      write (OutputUnit, '(8x,a)') '<t
                      write (OutputUnit, '(10x,a)') '<t
                      write (OutputUnit, '(12x,a)')
     *                   '<font size="+2" face="arial"&g
                      write (OutputUnit, '(12x,a)')
     *                    PageTitle(1:PageTitleLength)
                      write (OutputUnit, '(12x,a)')
     *                   '</b><
                      write (OutputUnit, '(10x,a)') '</t
                      write (OutputUnit, '(10x,a)') '<td align="right
                      write (OutputUnit, '(12x,a)')
     *                    '<a href="http://
     *                    'walrus.wr.usgs.gov/infobank/'//
     *                    'programs/html/main/search.html">
     *                    '<img src="
     *    'http://walrus.wr.usgs.gov/infobank/programs/html/'//
     *    'tools/search.gif" '//
     *    'width="176" height="31" '//
     *    'alt="Search InfoBank" border="0">&l
                      write (OutputUnit, '(10x,a)') '</t
                      write (OutputUnit, '(8x,a)') '</t
                      write (OutputUnit, '(6x,a)') '</tabl
                          write (OutputUnit, '(4x,a)') 
     *                        ALine(1:ALineLength)
Opens
      open (unit = FormUnit,
     *      access = 'sequential',
     *      file = '/infobank/programs/keep/htmlheadx.keep',
     *      form = 'formatted',
     *      status = 'old')
                      open (unit = 68,
     *                      access = 'sequential',
     *                      form = 'formatted',
     *                      status = 'old',
     *                      name = 
     *                    '/infobank/programs/keep/script'//
     *                    Script(1:ScriptLength)//
     *                    '.keep')
Calls
      call stringlen (BookmarkTitle, BookmarkTitleLength)
      call stringlen (PageTitle, PageTitleLength)
      call stringlen (Script, ScriptLength)

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/share/htmlheadx.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:36:54 PDT 2013  (chd)