c-----------------------------------------------------------------------
subroutine get_trden(den,irec,ifil,iset,ipri)
c-----------------------------------------------------------------------
implicit double precision (a-h,o-z)
dimension den(*)
As get_den but for transition density matrices.