Expanded Description
| Topic |
Description |
| Name |
insides4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/insides4gaz/insides4gaz.for |
| Description |
Program to generate list of the next larger gazette region completely
containing each gazette region.
|
| NOTES |
Expects results of METAS4GAZ to exist
Typical execution time = 1/4 minute
|
| AUTHOR |
Clint Steele 7/25/2000
|
| Reads |
read (90, '(q,a)', end = 99) GazLength,
* Gaz(TotalNumber+1)(1:GazLength)
read (Gaz(Loop1)( 1:Tab(Loop1,1)-1), '(f)') N
read (Gaz(Loop1)(Tab(Loop1,1)+1:Tab(Loop1,2)-1), '(f)') S
read (Gaz(Loop1)(Tab(Loop1,2)+1:Tab(Loop1,3)-1), '(f)') E
read (Gaz(Loop1)(Tab(Loop1,3)+1:Tab(Loop1,4)-1), '(f)') W
read (Gaz(Loop1)( 1:Tab(Loop1,1)-1), '(f)') N
read (Gaz(Loop1)(Tab(Loop1,1)+1:Tab(Loop1,2)-1), '(f)') S
read (Gaz(Loop1)(Tab(Loop1,2)+1:Tab(Loop1,3)-1), '(f)') E
read (Gaz(Loop1)(Tab(Loop1,3)+1:Tab(Loop1,4)-1), '(f)') W
read (Gaz(Loop2)( 1:Tab(Loop2,1)-1), '(f)') NT
read (Gaz(Loop2)(Tab(Loop2,1)+1:Tab(Loop2,2)-1), '(f)') ST
read (Gaz(Loop2)(Tab(Loop2,2)+1:Tab(Loop2,3)-1), '(f)') ET
read (Gaz(Loop2)(Tab(Loop2,3)+1:Tab(Loop2,4)-1), '(f)') WT
|
| Writes |
write (92, '(i8,a1,a,a1,a,a1,i8,a1,a)')
* RecCount(Loop2),char(9),
* Gaz(Loop2)(Tab(Loop2,4)+1:Tab(Loop2,5)-1),
* char(9),
* Gaz(MinGaz(Loop2))(Tab(MinGaz(Loop2),4)+1:
* Tab(MinGaz(Loop2),5)-1),
* char(9),RecCount(MinGaz(Loop2)),char(9),
* Gaz(Loop2)(1:Tab(Loop2,4)-1)
write (92, '(i8,a1,a,a1,a,a1,i8,a1,a)')
* RecCount(Loop2),char(9),
* Gaz(Loop2)(Tab(Loop2,4)+1:Tab(Loop2,5)-1),
* char(9),
* 'NHEM',
* char(9),RecCount(MinGaz(Loop2)),char(9),
* Gaz(Loop2)(1:Tab(Loop2,4)-1)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/gazette.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/insides4gaz.keep.temp')
|
| Calls |
call inside (NT, ET, N, S, W, E, StatusNE)
call inside (NT, WT, N, S, W, E, StatusNW)
call inside (ST, ET, N, S, W, E, StatusSE)
call inside (ST, WT, N, S, W, E, StatusSW)
call system ('sort -r /tmp/insides4gaz.keep.temp >
* '/infobank/programs/keep/insides4gaz.keep')
call system ('/bin/rm /tmp/insides4gaz.keep.temp')
|
|
