Expanded Description
| Topic |
Description |
| Name |
arealist2html |
| Synopsis |
/infobank/programs/gaz/arealist2html/arealist2html.for |
| Description |
Program to generate an html file with gazette areas
displayed in as a list.
|
| EXECUTION_TIME |
1 second
|
| AUTHOR |
Clint Steele 3/11/03
upgraded from areas2html.for 7/18/01
|
| Reads |
read (90, '(q,a)', end = 299)
* ALineLength, ALine(1:ALineLength)
read (92, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)')
* '<p><a name="A"> &
write (91, 33) (BigAlphabet(CountA:CountA),
* BigAlphabet(CountA:CountA),
* CountA = 1,26)
write (92, '(a)') ALine(1:ALineLength)
write (91, '(a)')
* ' </td
* ' </tr
* '</tabl
write (91, '(a)')
* '<p><a name="'//Letter//'"> &
write (91, 33) (BigAlphabet(CountA:CountA),
* BigAlphabet(CountA:CountA),
* CountA = 1,26)
write (91, '(a)') '<p
* '<table border="0" bgcolor="#ccffff"
* ' <tr
* ' <t
write (SmallGazID, '(80x)')
write (91, '(a)') ' <b
write (91, '(a)')
* ' <a href="http://walrus.wr.usgs.gov/
* 'infobank/gazette/html/regions/'//
* SmallGazID(1:GazIDLength)//
* '.html">
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//ALine(Tab(4)+1:Tab(5)-1)//')</
write (91, '(a)') ' <b
write (91, '(a)')
* ' '//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//ALine(Tab(4)+1:Tab(5)-1)//')'
write (91, '(a)') ' </td
* ' </tr
* '</table
* '<
|
| Opens |
open (unit = 90,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* name = '/infobank/tmp/arealist2html.temp')
open (unit = 92,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* name = '/infobank/tmp/finalarealist.temp')
open (unit = 91,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* name = '/infobank/programs/gaz/'//
* 'arealist2html/arealist.html')
open (unit = 92,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* name = '/infobank/tmp/arealist2html.temp')
|
| Calls |
call system ('/bin/sort -t " " -k 9 '//
* '/infobank/programs/keep/gazette.keep >
* '/infobank/tmp/arealist2html.temp')
call system('/bin/chmod 664 /infobank/tmp/finalarealist.temp')
call htmlhead (91, 'CMG Atlas Area List')
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/html/tools/atlas.atlas.tabs')
call includeit (91,
* '/infobank/programs/keep/contents.keep')
call system ('/bin/sort -t " " -k 9 '//
* '/infobank/tmp/finalarealist.temp >
* '/infobank/tmp/arealist2html.temp')
call changecase ('SMALLS', SmallGazID)
call stringlen (SmallGazID(1:4), GazIDLength)
call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
* 'infobank/programs/gaz/'//
* 'arealist2html/arealist.html')
call system ('/bin/rm /infobank/tmp/arealist2html.temp')
call system ('/bin/rm /infobank/tmp/finalarealist.temp')
|
|
