contraction_icab2cdab Subroutine

public subroutine contraction_icab2cdab(p, teint_icab, lc, teint_cdab)

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

Arguments

Type	Intent	Optional	Attributes		Name
type(param),	intent(in)			::	p
real(kind=long),	intent(in)			::	teint_icab(:,:,:)
real(kind=long),	intent(in)			::	lc(:,:)
real(kind=long),	intent(out)			::	teint_cdab(size(teint_icab,1)*size(lc,2),size(teint_icab,3))