contraction_ijka2ijba Subroutine

public subroutine contraction_ijka2ijba(p, teint_ijka, lc, teint_ijba)

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

Arguments

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