Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- onoffinused

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
onoffinused
Synopsis
/infobank/programs/dbase/onoffinused/onoffinused.for
Description
  Program to veriy that .onoff. file data types are

  listed in the .equipmentused files.
       
AUTHOR
  Clint Steele     4/1/2004


    
Reads
          read (90, '(q,a)', end = 99)
     *        Length, ALine(1:Length)
              read (92, '(q,a)', end = 98) ULength, ULine(1:ULength)
Writes
              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)
Opens
      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')
Calls
      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')

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/onoffinused/onoffinused.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:41 PDT 2013  (chd)