7.1.12 Reading orbital energies

c-----------------------------------------------------------------------
      subroutine read_eig(eig,iset)
c-----------------------------------------------------------------------
      implicit double precision (a-h,o-z)
      dimension eig(*)
      include "common/cgeom"
      include "common/czmat"
      include "common/dumpinfow"

Reads orbital energies (vector, length = ntg) from an active dump record. iset (input) is the set number of the orbital energies.