Expanded Description
| Topic |
Description |
| Name |
imagemetadata2htmls |
| Synopsis |
/infobank/programs/gaz/imagemetadata2htmls/imagemetadata2htmls.for |
| Description |
Program to create atlas area-sepecific background information .htmls
from area-specific .txt files.
|
| EXECUTION_TIME |
3 minutes
|
| AUTHOR |
Clint Steele 1/14/2003
|
| Reads |
read (90, '(q,a)', end = 99) ALineLength, ALine(1:ALineLength)
read (ALine(Tab(4)+1:Tab(5)-1), '(a)') Area
read (ALine(Tab(8)+1:Tab(9)-1), '(a)') Name
|
| Writes |
write (Area, '(4x)')
write (Name, '(1024x)')
|
| Opens |
open (unit = 90,
* name = '/infobank/programs/keep/gazette.keep',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/datasets/'//
* Area(1:AreaLength)//'.html')
open (unit = 91,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/datasets/'//
* Area(1:AreaLength)//'.html')
|
| Calls |
call changecase ('SMALLS', Area)
call stringlen (Area, AreaLength)
call stringlen (Name, NameLength)
call htmlhead (91, 'CMG InfoBank Atlas: '//
* Name(1:NameLength)//', Image Metadata')
call includeit (91,
* '/infobank/programs/html/tools/atlas.tabs')
call includeit (91,
* '/infobank/programs/html/tools/atlas.hemispheres.tabs')
call includeit (91,
* '/infobank/programs/html/tools/atlas.continents.tabs')
call includeit (91,
* '/infobank/programs/html/tools/atlas.oceans.tabs')
call includeit (91,
* '/infobank/programs/html/tools/atlas.quickpicks.tabs')
call includeit (91,
* '/infobank/programs/keep/contents.keep')
call system ('/bin/cat '//
* '/infobank/gazette/datasets/datasets_top.keep >&g
* '/infobank/gazette/datasets/'//
* Area(1:AreaLength)//'.html')
call system ('/bin/cat '//
* '/infobank/gazette/datasets/'//
* Area(1:AreaLength)//'.txt >&g
* '/infobank/gazette/datasets/'//
* Area(1:AreaLength)//'.html')
call system ('/bin/cat '//
* '/infobank/gazette/datasets/datasets_bottom.keep >&g
* '/infobank/gazette/datasets/'//
* Area(1:AreaLength)//'.html')
call htmlfoot (91,
* '/walrus.wr.usgs.gov/infobank/gazette/datasets/'//
* Area(1:AreaLength)//'.html')
|
|
