construct_k_matrix Subroutine

public subroutine construct_k_matrix(teints, dmat, k_matrix)

construct the K matrix

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=long),	intent(in)			::	teints(:)
real(kind=long),	intent(in),		dimension(:, :)	::	dmat
real(kind=long),	intent(out),		dimension(size(dmat, 1), size(dmat, 2))	::	k_matrix