Expanded Description
| Topic |
Description |
| Name |
metas4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/metas4gaz/metas4gaz.for |
| Description |
Program to remove ! headers and 0,0 lat/longs
from gazette .total files, converting them into
gazette .metadata files.
|
| NOTES |
Expects results of TOTALS4GAZ
Typical execution time = 2 minutes
|
| AUTHOR |
Clint Steele 7/25/2000
|
| Reads |
read (90, '(q,a)', end = 99)
* PathLength, Path(1:PathLength)
read (91, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (ALine, '(t16,f9.5,t26,f10.5)')
* Latitude, Longitude
|
| Writes |
write (MetaPath, '(1024x)')
write (ZerosPath, '(1024x)')
write (92, '(a)') ALine(1:ALineLength)
write (93, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/metas4gaz.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = Path(1:PathLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = MetaPath(1:MetaPathLength))
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = ZerosPath(1:ZerosPathLength))
|
| Calls |
call system ('ls -1 '//
* '/infobank/gazette/total/*/*.total >
* '/tmp/metas4gaz.temp')
call system ('ls -1 '//
* '/infobank/gazette/total/*/*/*.total >&g
* '/tmp/metas4gaz.temp')
call system ('ls -1 '//
* '/infobank/gazette/total/*/*/*/*.total >&g
* '/tmp/metas4gaz.temp')
call stringlen (MetaPath, MetaPathLength)
call stringlen (ZerosPath, ZerosPathLength)
call system ('/bin/cp '//
* MetaPath(1:MetaPathLength)//' '//
* MetaPath(1:Slash)//'gl.metadata')
|
|
