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' )
|
|
