Expanded Description
| Topic |
Description |
| Name |
typemetas4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/typemetas4gaz/typemetas4gaz.for |
| Description |
Program to divide <equiptype>/gl.metadat
<equiptype>/<region&g
|
| NOTES |
Expects results of AREATYPES4GAZ to exist
Typical execution time = 8 minutes
|
| AUTHOR |
Clint Steele 7/25/2000
|
| Reads |
read (91, '(q,a)', end = 98)
* GazLineLength, GazLine(1:GazLineLength)
read (GazLine(49:Tab(1)-1), '(f)') North
read (GazLine(Tab(1)+1:Tab(2)-1), '(f)') South
read (GazLine(Tab(2)+1:Tab(3)-1), '(f)') East
read (GazLine(Tab(3)+1:Slash-1), '(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 (InArea, '(4x)')
write (OutArea, '(4x)')
write (94, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = 91,
* name = '/infobank/programs/keep/areatypes4gaz.keep',
* access = 'sequential',
* status = 'old',
* form = 'formatted')
open (unit = 92,
* name = GazLine(Slash:GazLineLength)//'/'//
* InArea(1:InAreaLength)//'.metadata',
* access = 'sequential',
* status = 'unknown',
* form = 'formatted')
open (unit = 94,
* name = GazLine(Slash:GazLineLength)//'/'//
* 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)
|
|
