Expanded Description
| Topic |
Description |
| Name |
level2metas4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/level2metas4gaz/level2metas4gaz.for |
| Description |
Program to divide 2nd level superset groups into <region>.metadata
|
| NOTES |
Expects results of TYPEMETAS4GAZ to exist
Typical execution time = 5 minutes
|
| AUTHOR |
Clint Steele 7/30/2000
|
| Reads |
read (90, '(a)', end = 99) DataType(TypeCount)
read (91, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (93, '(q,a)', end = 98)
* GazLineLength, GazLine(1:GazLineLength)
read (GazLine(1:GazLineLength),
* '(t50,f9.5,1x,f9.5,1x,f10.5,1x,f10.5)')
* North, South, East, West
read (95, '(q,a)', end = 96)
* ALineLength, ALine(1:ALineLength)
read (ALine(1:ALineLength), '(t16,f9.5,t26,f10.5)')
* Latitude, Longitude
|
| Writes |
write (Level3, '(80x)')
write (92, '(t30,a)')
* ALine(30:Slash-1)
write (Level3, '(80x)')
write (Level2, '(80x)')
write (Level3, '(80x)')
write (Level2, '(80x)')
write (Level1, '(80x)')
write (94, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = 90,
* status = 'old',
* access = 'sequential',
* form = 'formatted',
* name = '/infobank/programs/keep/equiptypes.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/metagroups4gaz.short.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/metagroups4gaz.temp')
open (unit = 93,
* name = '/infobank/programs/keep/level2metas4gaz.keep',
* access = 'sequential',
* status = 'old',
* form = 'formatted')
open (unit = 95,
* name = GazLine(100:GazLineLength)//'/'//
* InArea(1:InAreaLength)//'.metadata',
* access = 'sequential',
* status = 'unknown',
* form = 'formatted')
open (unit = 94,
* name = GazLine(100:GazLineLength)//'/'//
* OutArea(1:OutAreaLength)//'.metadata',
* access = 'sequential',
* status = 'unknown',
* form = 'formatted')
|
| Calls |
call stringlen (DataType(Loop), TypeLength)
call system ('/bin/grep '//
* DataType(Loop-1)(3:Length2)//' '//
* '/infobank/programs/keep/areatypes4gaz.keep >
* '/tmp/metagroups4gaz.temp')
call stringlen (Level1, Length1)
call stringlen (Level2, Length2)
call stringlen (Level3, Length3)
call system ('/bin/sort -u '//
* '/tmp/metagroups4gaz.short.temp'//
* ' >
* '/infobank/programs/keep/level2metas4gaz.keep')
call system ('/bin/rm /tmp/metagroups4gaz.short.temp')
call changecase ('SMALLS', GazLine(1:GazLineLength))
call stringlen (InArea, InAreaLength)
call stringlen (OutArea, OutAreaLength)
call inside (Latitude, Longitude,
* North, South, West, East,
* Relationship)
|
|
