7.1.10 Reading a density matrix

c-----------------------------------------------------------------------
      subroutine read_den(den,iset)
c-----------------------------------------------------------------------
      implicit double precision (a-h,o-z)
      dimension den(*)

Reads a density matrix (triangular) from an active dump record. iset (input) is the set number of the density.