Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- make0to6

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
make0to6
Synopsis
/infobank/programs/html/info2html/make0to6.for
Description
  Subroutine to make .0xx to .6xx 

  (nav, bath, mag, grav, seis, imag) 
  specific htmls for an Activity ID.
       
AUTHOR
  Clint Steele    2/19/2004     based on makebath.for

  Sumy Tom       10/25/2010 calls add maps to add indexmap
  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 (TableUnit, '(q,a)', end = 5999)
     *    TableLength, TableLine(1:TableLength)
Writes
      write (SpecificHtml, '(1024x)')
      write (SpecificHtml, 3) 
     *    ShortID(1:1), 
     *    ShortID(1:IDLength),
     *    LongID(1:IDLength+3),
     *    ShortName
      write (SpecificUnit, '(6x,a)') 
     *    '<table class="noborder" align="left" valign="top"&
     *    '  <!-- overall table -
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<td valign="top
      write (SpecificUnit, '(12x,a)')
     *    '<table class="border" rules="all" 
     *    'align="left" valign="top"> 
     *    '<!-- left column -
      write (SpecificUnit, '(22x,a)') '</t
      write (SpecificUnit, '(20x,a)') '</t
      write (SpecificUnit, '(/,18x,a)') '</table> <!-- left co
      write (SpecificUnit, '(16x,a)') '</t
      write (SpecificUnit, '(/,16x,a)') '<td>  
      write (SpecificUnit, '(/,a,/)')
     *  '<!-- ====== RIGHT COLUMN ====== -
      write (SpecificUnit, '(16x,a)') 
     *    '<td valign="top"> <!-- right co
      write (SpecificUnit, '(a)') TableLine(1:TableLength)
      write (SpecificUnit, '(14x,a)') '</t
      write (SpecificUnit, '(12x,a)') '</t
      write (SpecificUnit, '(10x,a)') '</table> <!--right colum
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)') '</t
      write (SpecificUnit, '(4x,a)') '</table> <!-- overall t
      write (SpecificUnit, '(a)') '<table class="noborder
      write (SpecificUnit, '(2x,a)') '<t
      write (SpecificUnit, '(4x,a)') '<t
      write (SpecificUnit, '(6x,a)') ' '
Opens
      open (name   = SpecificHtml(1:SpecificHtmlLength),
     *      access = 'sequential',
     *      status = 'unknown',
     *      form   = 'formatted',
     *      unit   = SpecificUnit)
      open (unit = TableUnit,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/tmp/info2html_datatable.temp')
Calls
      call stringlen (SpecificHtml, SpecificHtmlLength)
      call htmlhead (SpecificUnit, 'CMG '//CapID//' '//LongName)
      call controlbar 
     *    (DiskName, SpecificUnit, ShortID, IDLength, LongID, CapID,
     *    ShortName, LongName, Existance)
      call addarc (DiskName, ShortName, LongName,
     *             IDLength, ShortID, LongID, CapID,
     *             Dictionary, Existance)
      call addimag (ImageDisk, DiskName, ShortName, LongName,
     *              IDLength, ShortID, LongID, CapID,
     *              Dictionary, Existance)
      call adddata (ImageDisk, DiskName, ShortName, LongName,
     *              IDLength, ShortID, LongID, CapID,
     *              Dictionary, Existance)
      call addvel (DiskName, ShortName, LongName,
     *             IDLength, ShortID, LongID, CapID,
     *             Dictionary, Existance)
      call addother (DiskName, ShortName, LongName,
     *               IDLength, ShortID, LongID, CapID,
     *               Dictionary, Existance)
      call addmeta (DiskName, ShortName, LongName,
     *              IDLength, ShortID, LongID, CapID,
     *              Dictionary, Existance)
      call addanalog (DiskName, ShortName, LongName,
     *                IDLength, ShortID, LongID, CapID,
     *                Dictionary, Existance)
      call getunit (TableUnit)
      call stringlen (LongNameLC, LongNameLCLength)
      call changecase ('SMALLS', LongNameLC(1:LongNameLCLength))
      call addmaps (DiskName, Existance, LongNameLC,
     *              LongNameLCLength, ShortName, ShortID, 
     *              IDLength, LongID, SpecificUnit)
      call htmlfoot (SpecificUnit, 
     *    'http://walrus.wr.usgs.gov/infobank'//
     *    ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *    '/html/'//LongID(1:IDLength+3)//'.'//
     *    ShortName//'.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/info2html/make0to6.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:36 PST 2013  (chd)