contraction_ijab2icab Subroutine

public subroutine contraction_ijab2icab(p, teint_ijab, lc, n, teint_icab)

contracts a packed storage teints set with dimension n along the first coordinate with coefficients LC $$(ic| ab) = \sum_j C_{jc} (ij| ab)$$

Arguments

Type	Intent	Optional	Attributes		Name
type(param),	intent(in)			::	p
real(kind=long),	intent(in)			::	teint_ijab(:,:)
real(kind=long),	intent(in)			::	lc(:,:)
integer,	intent(in)			::	n
real(kind=long),	intent(out)			::	teint_icab(size(lc,2),n,size(teint_ijab,2))