contraction_ijkl2ijka Subroutine

public subroutine contraction_ijkl2ijka(p, teint, lc, n, teint_ijka)

contracts a packed storage teints set with dimension n along the first coordinate with coefficients LC $$(ij| ka) = \sum_l C_{la} (ij| kl)$$

Arguments

Type	Intent	Optional	Attributes		Name
type(param),	intent(in)			::	p
real(kind=long),	intent(in)			::	teint(:)
real(kind=long),	intent(in)			::	lc(:,:)
integer,	intent(in)			::	n
real(kind=long),	intent(out)			::	teint_ijka(size(lc,2),n,n*(n+1)/2)