Expanded description
| Topic |
Description |
| Name |
keywordslist2index |
| Synopsis |
/infobank2/programs/html/school/keywordslist2index.for |
| Description |
Program to generate keywords.html, the Geology School home page.
|
| Author |
Clint Steele 7/18/2003
|
| Opens |
open (unit = 90,
* form = 'formatted',
* access = 'sequential',
* status = 'old',
* name = '/infobank/programs/keep/keywords.keep')
open (unit = 91,
* form = 'formatted',
* access = 'sequential',
* status = 'unknown',
* name = '/infobank/programs/html/school/'//
* ThisLetter//'_keywords.html')
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') '<p><strong>'//ThisLetter//':</strong>'
write (91, '(a)')
* '<a href="//walrus.wr.usgs.gov'//
* '/infobank/programs/html/school/keypage/'//
* UnderLine(1:UTab-1)//
* '.html">'//
* ALine(1:Tabs(1)-1)//'</a> '
|
| Calls |
call changecase ('CAPITALS', ThisLetter)
call htmlfoot (91, 'http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/school/'//
* LastLetter//'_keywords.html')
call htmlhead (91, 'CMG InfoBank: Geology School Keywords '//
* '-- '//ThisLetter)
call includeit (91,
* '/infobank/programs/html/tools/definitions.tabs')
call includeit (91,
* '/infobank/programs/html/tools/definitions.dictionaries.tabs')
call includeit (91,
* '/infobank/programs/html/tools/definitions.infobankterms.tabs')
call includeit (91,
* '/infobank/programs/html/tools/definitions.datatypes.tabs')
call includeit (91,
* '/infobank/programs/html/tools/definitions.dataformats.tabs')
call includeit (91,
* '/infobank/programs/html/tools/definitions.firstletter.tabs')
call includeit (91,
* '/infobank/programs/keep/contents.keep')
call htmlfoot (91, 'http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/school/'//
* LastLetter//'_keywords.html')
|
|
