USGS InfoBank program -- onoffinused

onoffinused

  Program to veriy that .onoff. file data types are

  listed in the .equipmentused files.
       

  Clint Steele     4/1/2004


    

          read (90, '(q,a)', end = 99)
     *        Length, ALine(1:Length)
              read (92, '(q,a)', end = 98) ULength, ULine(1:ULength)

              write (94, '(a)') 'No '//
     *            ALine(1:Slash(4))//'meta'//
     *            ALine(Slash(5):FirstDot)//'equipmentused file'
                  write (CapID, '(7x)')
                  write (91, '(a,t10,a)') 
     *                CapID(1:IDLength),
     *                ALine(Dot+1:Length)

      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/dbase/'//
     *             'onoffinused/onoffinused.short.temp')
      open (unit = 91,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/dbase/'//
     *             'onoffinused/onoffinused.add.temp')
      open (unit = 94,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/dbase/'//
     *             'onoffinused/onoffinused.no.temp')
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'unknown',
     *              name = ALine(1:Slash(4))//'meta'//
     *                     ALine(Slash(5):FirstDot)//'equipmentused')

      call system ('/bin/rm /infobank/programs/dbase/onoffinused/'//
     *    'onoffinused.*.temp')
          call system ('/bin/ls /infobank/'//
     *        Alphabet(Loop:Loop)//
     *        '/??????/*/*.onoff.* >> /infobank/programs/dba
     *        'onoffinused/onoffinused.full.temp')
      call system ('/bin/ls /infobank/'//
     *    Alphabet(Loop:Loop)//
     *   '/???????/*/*.onoff.* >> /infobank/programs/dba
     *   'onoffinused/onoffinused.full.temp')
        call system ('/bin/ls /infobank/l/???'//
     *  Number(Loop:Loop)//
     *  '??/*/*.onoff.* >> /infobank/programs/dba
     *  'onoffinused/onoffinused.full.temp')
      call system ('/bin/grep onoff '//
     *   '/infobank/programs/dbase/'//
     *   'onoffinused/onoffinused.full.temp | '//
     *   'grep -v events | grep -v /plot/ | grep -v /programs/ | '//
     *   'grep -v /gazette/ | grep -v /meta > 
     *   '/infobank/programs/dbase/onoffinused/onoffinused.short.temp')
              call changecase ('SMALLS', ULine(1:ULength))
                  call changecase ('CAPITALS', CapID)
                  call stringlen (CapID, IDLength)
       call system ('/bin/sort -u /infobank/programs/dbase/'//
     *     'onoffinused/onoffinused.no.temp > 
     *     '/infobank/programs/dbase/'//
     *     'onoffinused/onoffinused.nousedfile.temp')