c----------------------------------------------------------------------- subroutine read_fock(fock,iset) c----------------------------------------------------------------------- implicit double precision (a-h,o-z) dimension fock(*)Reads a fock matrix (triangular) from an active dump record. iset is the set number of the fock matrix.