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
|
| Opens |
open (unit = 90,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* name = '/tmp/arealist2html.temp')
open (unit = 92,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* name = '/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 = '/tmp/arealist2html.temp')
|
| 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"> </A>'
write (91, 33) (BigAlphabet(CountA:CountA),
* BigAlphabet(CountA:CountA),
* CountA = 1,26)
write (92, '(a)') ALine(1:ALineLength)
write (91, '(a)')
* ' </td>',
* ' </tr>',
* '</table>'
write (91, '(a)')
* '<p><a name="'//Letter//'"> </A>'
write (91, 33) (BigAlphabet(CountA:CountA),
* BigAlphabet(CountA:CountA),
* CountA = 1,26)
write (91, '(a)') '<p>',
* '<table border="0" bgcolor="#ccffff">',
* ' <tr>',
* ' <td>'
write (SmallGazID, '(80x)')
write (91, '(a)') ' <br>'
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)//')</a>'
write (91, '(a)') ' <br>'
write (91, '(a)')
* ' '//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//ALine(Tab(4)+1:Tab(5)-1)//')'
write (91, '(a)') ' </td>',
* ' </tr>',
* '</table>',
* '<p>'
|
| Calls |
call system ('/bin/sort -t " " -k 9 '//
* '/infobank/programs/keep/gazette.keep > '//
* '/tmp/arealist2html.temp')
call system('/bin/chmod 664 /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 '//
* '/tmp/finalarealist.temp > '//
* '/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 /tmp/arealist2html.temp')
call system ('/bin/rm /tmp/finalarealist.temp')
|
|