USGS InfoBank program -- loadequip

loadequip

  Subroutine to load equipment structure for GAZ2HTML.


       

          read (90, '(q,a)', end = 199)
     *       Length, ALine(1:Length)

      open (unit = 90,
     *      name = '/infobank/programs/keep/equiptypes.keep',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')