|
|
|
|
|
| |
|
|
InfoBank Programs:
|
by Name
by Data Type
General Tools
GIS
Plotting
Web
USGS Disclaimer
InfoBank Programs
Boothill
|
Expanded description of application
| Topic |
Description |
| Name |
linecheck |
| Synopsis |
/infobank/programs/dbase/linecheck/linecheck.for |
| Description |
Program to check for appropriate keywords in col. 110:...
|
| Author |
Clint Steele 1/19/2000
|
| Opens |
open (unit = 89,
* name = '/tmp/linecheckdata.tmp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 89,
* name = '/tmp/linecheckdata.tmp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 89,
* name = '/tmp/linecheckfiles.tmp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 88,
* name = afile(1:filelen),
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 89,
* name = '/tmp/linecheckfiles.tmp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 88,
* name = afile(1:filelen),
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 89,
* name = '/tmp/linecheckfiles.tmp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 88,
* name = afile(1:filelen),
* access = 'sequential',
* form = 'formatted',
* status = 'old')
|
| Reads |
read (89, '(q,a)', end = 99) len, aline(1:len)
read (89, '(q,a)', end = 199) len, aline(1:len)
read (aline(1:14), '(t5,i3,3i2,i1)')
* day,hour,minute,second,tenths
read (89, '(q,a)', end = 799) filelen, afile(1:filelen)
read (88, '(q,a)', end = 899) len, aline(1:len)
read (89, '(q,a)', end = 299) filelen, afile(1:filelen)
read (88, '(q,a)', end = 399) len, aline(1:len)
read (89, '(q,a)', end = 499) filelen, afile(1:filelen)
read (88, '(q,a)', end = 599) len, aline(1:len)
read (aline(1:14), '(t5,i3,3i2,i1)')
* day,hour,minute,second,tenths
|
| Writes |
write (90, '(a)') ' START/END/ON/OFF/UNIQUE/INVENTORY '//
* 'CHECKING SECTION...'
write (90, '(a,i,1x,a)') 'Short line, length = ', len,
* aline(1:len)
write (90, '(a)') aline(1:len)
write (90, '(a)') ' VALID TIME CHECKING SECTION...'
write (90, '(a)') aline(1:len)
write (90, '(a)') ' ON/OFF START/END EQUAL # CHECKING SECTION...'
write (90, '(4(i3,1x),a)')
* ons, offs, starts, ends, afile(1:filelen)
write (90, '(4(i3,1x),a)')
* ons, offs, starts, ends, afile(1:filelen)
write (90, '(a)') ' ON/OFF START/END PAIRS CHECKING SECTION...'
write (90, '(a)') afile(1:filelen)
write (90, '(a)') afile(1:filelen)
write (90, '(a)') afile(1:filelen)
write (90, '(a)') afile(1:filelen)
write (90, '(a)') afile(1:filelen)
write (90, '(a)') ' TIME CHECK CHECKING SECTION...'
write (90, '(a)') afile(1:filelen)
|
| Calls |
call openem (0,-1)
call system
* ('cat /infobank/?/*/nav/*.line.* > /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/grav/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/mag/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/bath/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/seis/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/samp/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/meter/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/cam/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('cat /infobank/?/*/geo/*.line.* >> /tmp/linecheckdata.tmp')
call system
* ('ls -1 /infobank/?/*/nav/*.line.* > /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/grav/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/mag/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/bath/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/seis/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/samp/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/meter/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/cam/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('ls -1 /infobank/?/*/geo/*.line.* >> /tmp/linecheckfiles.tmp')
call system
* ('cat /infobank/?/*/*/*.path >> /tmp/linecheckfiles.tmp')
call converttime ('COMPRESS',day,hour,minute,second,tenths,
* time,errorflag)
call converttime
* ('COMPRESS',day,hour,minute,second,tenths,
* time,errorflag)
|
|
URL:
|
|
|
Maintainer:
|
Clint Steele
|
|
Comments:
|
e-mail
|
|
Last modified:
|
Wed Jan 29 13:10:52 PST 2003
(wcs)
|
|