USGS InfoBank banner. USGS, Coastal and Marine Geology, InfoBank banner.
USGS Coastal and Marine Geology banner.   Search InfoBank.
USGS InfoBank program -- linecheck Skip navigational links
    ________   ________   ______________   ________   _________   _______________   ________  
  tab edge  Home  tab edge  Data  tab edge  Activities  tab edge  FACS  tab edge  Atlas  tab edge  Definitions  tab edge  More  tab edge  
   
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)

Skip footer navigational links
InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program  
U. S. Department of the Interior   U. S. Geological Survey   Geologic Information   Ask-A-Geologist   USGS privacy statement   Disclaimer  

URL:
Maintainer: Clint Steele
Comments: e-mail
Last modified: Wed Jan 29 13:10:52 PST 2003  (wcs)