Expanded Description
| Topic |
Description |
| Name |
areas4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/areas4gaz/areas4gaz.for |
| Description |
Program to divide regions/gl.metadata into
regions/<region>.met
|
| NOTES |
Expects results of INSIDES4GAZ to exist
Typical execution time = 18 minutes
|
| AUTHOR |
Clint Steele 7/25/2000
|
| Reads |
read (91, '(q,a)', end = 98)
* GazLineLength, GazLine(1:GazLineLength)
read (GazLine(Tab(4)+1:Tab(5)-1), '(f)') North
read (GazLine(Tab(5)+1:Tab(6)-1), '(f)') South
read (GazLine(Tab(6)+1:Tab(7)-1), '(f)') East
read (GazLine(Tab(7)+1:GazLineLength), '(f)') West
read (92, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (ALine(1:ALineLength), '(t16,f9.5,t26,f10.5)')
* Latitude, Longitude
|
| Writes |
write (94, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = 91,
* name = '/infobank/programs/keep/insides4gaz.keep',
* access = 'sequential',
* status = 'old',
* form = 'formatted')
open (unit = 92,
* name = '/infobank/gazette/metadata/regions/'//
* InArea(1:InAreaLength)//'.metadata',
* access = 'sequential',
* status = 'unknown',
* form = 'formatted')
open (unit = 94,
* name = '/infobank/gazette/metadata/regions/'//
* OutArea(1:OutAreaLength)//'.metadata',
* access = 'sequential',
* status = 'unknown',
* form = 'formatted')
|
| Calls |
call changecase ('SMALLS', GazLine(1:GazLineLength))
call stringlen (InArea, InAreaLength)
call stringlen (OutArea, OutAreaLength)
call inside (Latitude, Longitude,
* North, South, West, East,
* Relationship)
|
|
