Expanded description
| Topic |
Description |
| Name |
areagroups2html |
| Synopsis |
/infobank/programs/gaz/areagroups2html/areagroups2html.for |
| Description |
Program to generate an html file of groupings with areas
displayed as levels of tables.
|
| Execution_time |
1 second
|
| Author |
Clint Steele 3/11/03
upgrade of gazdb2html.for 7/12/01
|
| Opens |
open (unit = 90,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* name = '/infobank/programs/keep/gazette.keep')
open (unit = 91,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* name = '/infobank/programs/gaz/'//
* 'areagroups2html/areagroups.html')
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (ALine(1:Tab(1)-1), '(f)') North
read (ALine(Tab(1)+1:Tab(2)-1), '(f)') South
read (ALine(Tab(2)+1:Tab(3)-1), '(f)') East
read (ALine(Tab(3)+1:Tab(4)-1), '(f)') West
read (ALine(Tab(4)+1:Tab(5)-1), '(a)') GazID
read (ALine(Tab(5)+1:Tab(6)-1), '(a)') RegID
read (ALine(Tab(6)+1:Tab(7)-1), '(a)') LibCode
read (ALine(Tab(7)+1:Tab(8)-1), '(i)') Level
read (ALine(Tab(8)+1:Tab(9)-1), '(a)') Area
read (ALine(Tab(9)+1:Tab(10)-1), '(a)') OpArea
|
| Writes |
write (Blank, '(80x)')
write (91, '(a)') '<table border="0">'
write (91, '(a)') ' <tr>'
write (GazID, '(80x)')
write (91, '(a,/,a,/,a,/,a)')
* Blank(1:Level*2)//
* '<TD VALIGN="TOP" WIDTH="50"'//
* ' BGCOLOR="'//Color(Level)//'">',
* Blank(1:(Level*2)+1)//
* '<TABLE BORDER="3" VALIGN="TOP"'//
* ' BGCOLOR="'//Color(Level)//'">',
* Blank(1:(Level*2)+2)//
* '<TR>',
* Blank(1:(Level*2)+3)//
* '<TD VALIGN="TOP" WIDTH="50">'
write (91, '(a,/,a,i1,a)')
* Blank(1:(Level*2)+4)//
* '<A HREF="http://walrus.wr.usgs.gov/'//
* 'infobank/gazette/html/'//
* 'regions/'//SmallGazID(1:GazIDLength)//
* '.html">'//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//GazID(1:GazIDLength)//')'//
* '</A>',
* Blank(1:(Level*2)+3)//
* '</TD> <!-- ',Level,' -->'
write (91, '(a,/,a,i1,a)')
* Blank(1:(Level*2)+4)//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//GazID(1:GazIDLength)//')',
* Blank(1:(Level*2)+3)//
* ' <!-- ',Level,' -->'
write (91, '(a,/,a,i1,a)')
* Blank(1:(Loop*2)+2)//
* '</TR>',
* Blank(1:(Loop*2)+1)//
* '</TABLE>'//
* '<!-- /',Loop,' -->'//
* '</TD>'//
* '</TR>'
write (91, '(a)')
* Blank(1:Level*2)//
* '<TR>'//
* '<TD VALIGN="TOP" WIDTH="50">'//
* '<A HREF="http://walrus.wr.usgs.gov/'//
* 'infobank/gazette/html/'//
* 'regions/'//SmallGazID(1:GazIDLength)//
* '.html">'//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//GazID(1:GazIDLength)//')'//
* '</A></TD>'
write (91, '(a)')
* Blank(1:Level*2)//
* '<TR>'//
* '<TD VALIGN="TOP" WIDTH="50">'//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//GazID(1:GazIDLength)//')</TD>'
write (91, '(a)')
* Blank(1:Level*2)//
* '</TR>'//
* '<TR>'//
* '<TD VALIGN="TOP" WIDTH="50">'//
* '<A HREF="http://walrus.wr.usgs.gov/'//
* 'infobank/gazette/html/'//
* 'regions/'//SmallGazID(1:GazIDLength)//
* '.html">'//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//GazID(1:GazIDLength)//')'//
* '</A></TD>'
write (91, '(a)')
* Blank(1:Level*2)//
* '</TR>'//
* '<TR>'//
* '<TD VALIGN="TOP" WIDTH="50">'//
* ALine(Tab(8)+1:Tab(9)-1)//
* ' ('//GazID(1:GazIDLength)//')</TD>'
write (91, '(a,i1,a)')
* Blank(1:OldLevel*2)//
* '</TR>'//
* '</TABLE>'//
* '<!-- /',OldLevel,' -->'
|
| Calls |
call htmlhead (91, 'CMG Atlas Area Groups')
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 stringlen (GazID, GazIDLength)
call changecase ('SMALLS', SmallGazID)
call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
* 'infobank/programs/gaz/'//
* 'areagroups2html/areagroups.html')
|
|
