construct_j_matrix Subroutine

public subroutine construct_j_matrix(teints, dmat, j_matrix)

This function constructs the J 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))	::	j_matrix