7.1.5 Writing fock matrices

c-----------------------------------------------------------------------
      subroutine write_fock(fock,iset,type)
c-----------------------------------------------------------------------
      implicit double precision (a-h,o-z)
      character*(*) type
      dimension fock(*)

Writes a fock matrix to an active dump record. type (input) is a string describing the density type, e.g. TOTAL or OPEN. The input variable iset is the set number of the fock matrix. If iset exists, it is overwritten, otherwise a new set is created. if iset.eq.0, a new set is created. iset is not modified, but the actual set number used is stored in variable dump_iset. The total SCF fock matrix is always stored in set 1, and the open-shell fock matrix in set 2.