7.3.13 Reading a occupation numbers

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

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).