USGS InfoBank program -- makeequipused

makeequipused

  Program to create <id>.equipmentused for IDs w

  .equipmentused files.
       

  1 second

    

  Clint Steele       6/2/2004


    

          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)

                  write (91, '(a)')
     *                Type(Loop)(1:TypeLongLength(Loop))//' '//
     *                'equipment used'

      open (unit = 90,
     *    access = 'sequential',
     *    form = 'formatted',
     *    status = 'unknown',
     *    name = '/infobank/programs/gaz/atlaskeepfiles/nopairs.keep')
                  open (unit = 91,
     *                  access = 'append',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  file = ALine(1:ALineLength-5)//
     *                         'equipmentused')

          call changecase ('CAPITALS', CapLine)