7.3.12 Reading orbital energies

c-----------------------------------------------------------------------
      subroutine get_eig(eig,irec,ifil,iset,ipri)
c-----------------------------------------------------------------------
      implicit double precision (a-h,o-z)
      dimension eig(*)

Reads a vector of orbital energies from a given record irec, ifil. No defaults for irec, ifil apply. The set number iset must be provided. If ipri $\gt 0$, information about the orbital energies is printed (one line).