Expanded Description
| Topic |
Description |
| Name |
saveold |
| Synopsis |
/infobank/programs/html/makefmeta/saveold.for |
| Description |
Subroutine to save upper part of KEYWORDS files for formal metadata.
|
| Reads |
read (KeyUnit, '(a1)', end = 98) ALine(1:1)
read (KeyUnit, '(a)', end = 99) ALine
|
| Writes |
write (OutUnit, 1)
write (OutUnit, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = KeyUnit,
* file = KeywordFile,
* form = 'formatted',
* access = 'sequential',
* status = 'unknown')
|
| Calls |
call stringlen (ALine, ALineLength)
call system ('/bin/cp /infobank/tmp/theme_keywords.temp '//
* KeywordFile)
|
