7.3.11 Reading a fock matrix

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

Reads a fock matrix 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 fock matrix is printed (one line).