Expanded Description
| Topic |
Description |
| Name |
qids2html |
| Synopsis |
/infobank/programs/gaz/gazboothill/ids2html/qids2html.for |
| Description |
Program to add html links to list of IDs
for a specific gazette area.
|
| AUTHOR |
Clint Steele 2/1/2002
|
| Reads |
read (5, '(q,a)', end = 99)
* QAreaLength, QArea(1:QAreaLength)
read (80, '(q,a)', end = 999)
* AtlasLineLength, AtlasLine(1:AtlasLineLength)
read (90, '(t13,q,a)', end = 99)
* FileNameLength,
* FileName(1:FileNameLength)
read (91, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (93, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (95, '(t30,q,a)', end = 7003)
* BLineLength, BLine(1:BLineLength)
|
| Writes |
write (AtlasLine, '(512x)')
write (LastID, '(7x)')
write (LastLink, '(255x)')
write (LastLink, '(255x)')
write (92, '(4x,a)') '<td align="center"&
* LastLink(1:LastLinkLength)//'</t
write (IDSFilename, '(1024x)')
write (Area, '(4x)')
write (94, '(a)')
* '<b>Field activities '// ! 'with sa
* 'that cross '//
* 'the '// ! 'Monterey Bay'
* 'region.</
write (94, '(a)') '<table border="1"
* 'width="80%" align="center"&g
write (94, '(2x,a)') '<t
write (IDPath, '(255x)')
write (ImageFileName, '(1024x)')
write (94, '(4x,a)')
* '<td valign="bottom" align="center" bgcolor="#ccffff
write (BLine, '(1024x)')
write (94, '(4x,a)') '</t
write (94, '(2x,a)') '</t
write (94, '(2x,a)') '<t
write (94, '(4x,a)')
* '<td valign="bottom" align="center" bgcolor="#ccffff
write (94, '(6x,a)')
* '<img src="http://walrus.wr.usgs.gov
* ImageFileName(1:ImageFileNameLength)//
* '" alt="map of tracklines" width="150"&g
write (94, '(6x,a)')
* '<b>'//BLine(1:BLineLength)//
write (94, '(6x,a)')
* '<br>'//BLine(1:BLineL
write (94, '(4x,a)') '</t
write (94, '(2x,a,/)') '</t
write (94, '(2x,a)') '<t
write (94, '(2x,a)') '</t
write (94, '(a)') '</tabl
|
| Opens |
open (unit = 80,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/gazette.keep')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/ids2html.1.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = FileName(1:FileNameLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/ids2html.2.temp')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/ids2html.3.temp')
open (unit = 94,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = IDSFileName(1:IDSFileNameLength))
open (unit = 95,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = IDPath(1:IDPathLength))
|
| Calls |
call changecase ('SMALLS', QArea(1:QAreaLength))
call system ('grep -v \! '//
* '/infobank/programs/keep/infobank_files.keep | '//
* 'grep /gazette/metadata/ | '//
* 'grep /'//
* QArea(1:QAreaLength)//
* '.metadata$ > /tmp/ids2html.1.tem
call changecase ('SMALLS', AtlasID(AtlasCount))
call stringlen (LastID(1:7), LastIDLength)
call changecase ('SMALLS', SmallID(1:7))
call stringlen (LastLink, LastLinkLength)
call system ('/bin/sort -u /tmp/ids2html.2.temp >
* '/tmp/ids2html.3.temp')
call system ('/bin/rm /tmp/ids2html.2.temp')
call stringlen (IDSFileName, IDSFileNameLength)
call stringlen (Area, AreaLength)
call stringlen (AtlasName(Loop), AtlasNameLength)
call changecase ('CAPITALS', Cap(1))
call htmlhead (94, 'CMG InfoBank: '//
* AtlasName(Loop)(1:AtlasNameLength)//' '//
* Cap(1)//
* IDSFileName(Slash(SlashCount-1)+2:
* Slash(SlashCount)-1)//' Activities')
call changecase ('CAPITALS', Cap(1))
call changecase ('CAPITALS', Cap(2))
call htmlhead (94, 'CMG InfoBank: '//
* AtlasName(Loop)(1:AtlasNameLength)//' '//
* Cap(1)//
* IDSFileName(Slash(SlashCount-2)+2:
* Slash(SlashCount-1)-1)//
* ' ('//
* Cap(2)//
* IDSFileName(Slash(SlashCount-1)+2:
* Slash(SlashCount)-1)//
* ') Activities')
call changecase ('CAPITALS', Cap(1))
call changecase ('CAPITALS', Cap(2))
call htmlhead (94, 'CMG InfoBank: '//
* AtlasName(Loop)(1:AtlasNameLength)//' '//
* Cap(1)//
* IDSFileName(Slash(SlashCount-3)+2:
* Slash(SlashCount-2)-1)//
* ' ('//
* Cap(2)//
* IDSFileName(Slash(SlashCount)-1+2:
* Slash(SlashCount)-1)//
* ') Activities')
call includeit (94,
* '/infobank/programs/html/tools/atlas.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.hemispheres.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.continents.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.oceans.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.quickpicks.tabs')
call includeit (94,
* '/infobank/programs/keep/contents.keep')
call stringlen (IDPath, IDPathLength)
call stringlen (ImageFileName, ImageFileNameLength)
call htmlfoot (94, IDSFileName(1:IDSFileNameLength))
|
|
