USGS InfoBank program -- linecheck

linecheck

  Program to check for appropriate keywords in col. 110:...

       

  Clint Steele    1/19/2000


    

          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

      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)

      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')

      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)