Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- linecheck

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
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


    
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)
Opens
      open (unit = 89,
     *      name = '/infobank/tmp/linecheckdata.tmp',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')
      open (unit = 89,
     *      name = '/infobank/tmp/linecheckdata.tmp',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')
      open (unit = 89,
     *      name = '/infobank/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 = '/infobank/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 = '/infobank/tmp/linecheckfiles.tmp',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')
          open (unit = 88,
     *      name = afile(1:filelen),
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')
Calls
      call openem (0,-1)
      call system 
     *    ('cat /infobank/?/*/nav/*.line.* &
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/grav/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/mag/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/bath/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/seis/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/samp/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/meter/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/cam/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('cat /infobank/?/*/geo/*.line.* &g
     *    /infobank/tmp/linecheckdata.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/nav/*.line.* &
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/grav/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/mag/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/bath/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/seis/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/samp/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/meter/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/cam/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('ls -1 /infobank/?/*/geo/*.line.* &g
     *    /infobank/tmp/linecheckfiles.tmp')
      call system 
     *    ('cat /infobank/?/*/*/*.path &g
     *    /infobank/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

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/linecheck/linecheck.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:52 PDT 2013  (chd)