Expanded Description
| Topic |
Description |
| Name |
place_keywords |
| Synopsis |
/infobank/programs/html/makefmeta/place_keywords.for |
| Description |
Subroutine to generate formal metadata place_keyword entries
based on Activity ID place names.
|
| AUTHOR |
Clint Steele 12/4/97
|
| Reads |
read (InUnit, '(q,a)', end = 99)
* BLineLength, BLine(1:BLineLength)
read (BLine(1:BLineLength), '(a2,t7,q,a)')
* Region, ALineLength, ALine(1:ALineLength)
read (InUnit, '(q,a)', end = 99)
* BLineLength, BLine(1:BLineLength)
read (BLine(1:BLineLength), '(a2,t7,q,a)')
* Region, ALineLength, ALine(1:ALineLength)
read (KeyUnit, '(a)', end = 97) ALine
read (KeyUnit, '(t52,q,a)', end = 975)
* ALineLength, ALine(1:ALineLength)
read (KeyUnit, '(t10,q,a)', end = 976)
* ALineLength, ALine(1:ALineLength)
read (KeyUnit, '(t52,q,a)', end = 977)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (OutUnit, 2) ALine(1:ALineLength)
write (OutUnit, '(a)') ALine(1:ALineLength)
write (OutUnit, 2) ALine(1:ALineLength)
write (OutUnit, 2) ALine(1:ALineLength)
write (OutUnit, 2) ALine(1:ALineLength)
|
| Opens |
open (unit = OutUnit,
* file = '/infobank/tmp/place_keywords.temp',
* form = 'formatted',
* access = 'sequential',
* status = 'unknown')
open (unit = InUnit,
* file = '/infobank/programs/keep/'//
* 'regions.fmeta.keep',
* form = 'formatted',
* access = 'sequential',
* status = 'old')
open (unit = KeyUnit,
* file = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.place_keywords',
* form = 'formatted',
* access = 'sequential',
* status = 'unknown')
open (unit = KeyUnit,
* file = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.atlasarea',
* form = 'formatted',
* access = 'sequential',
* status = 'unknown')
open (unit = KeyUnit,
* file = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.operationarea',
* form = 'formatted',
* access = 'sequential',
* status = 'unknown')
open (unit = KeyUnit,
* file = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.regionarea',
* form = 'formatted',
* access = 'sequential',
* status = 'unknown')
|
| Calls |
call stringlen (ID, IDLength)
call stringlen (ALine, ALineLength)
call system ('/bin/sort '//
* '-u /infobank/tmp/place_keywords.temp >
* '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.place_keywords')
call system ('/bin/rm /infobank/tmp/place_keywords.temp')
|
|
