Expanded description
| Topic |
Description |
| Name |
definitions2html |
| Synopsis |
/infobank/programs/html/definitions2html/definitions2html.for |
| Description |
Program to convert "WCMG Formal Metadata Extensions Dictionary" to html.
|
| Author |
Clint Steele 8/7/98
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name =
* '/infobank/programs/keep/elements_rules.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name =
* '/infobank/programs/html/main/elements_rules.txt')
|
| Reads |
read (90, '(q,a)') ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99) ALineLength, ALine(1:ALineLength)
|
| Writes |
write (ALine, '(1024x)')
write (91, 4)
write (91, 7) ALine(Colon+2:ALineLength)
write (91, 2)
write (91, 5)
write (91, 3) ALine(1:Colon-1),
* ALine(Colon+2:ALineLength)
write (91, 6) ALine(1:Colon-1),
* ALine(Colon+2:ALineLength)
write (91, 9) ALine(LastColon+2:ALineLength)
write (91, 8)
|
|
