7.3.7 Reading orbitals

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

Reads an orbital matrix iset from dump record irec on file ifil. If irec=0 or iset=0, the record and specifications read by guess_inp are used. In this case, the request must be strictly fulfilled. If the record has not been specified by guess_inp, the present default dump record (wf(1)) is used. If iset$\gt 0$, the requested set is read from the default record or the one read by guess_inp (other information read by guess_inp is ignored). If irec$\gt 0$ and iset $\gt 0$ the specified set is read from the given record and all information from guess_inp is ignored. If ipri $\gt 0$, information about the orbitals is printed (one line). The orbital matrix is expanded to ntb dimensions automatically.