calc_cimatrix_diagonal Subroutine

public subroutine calc_cimatrix_diagonal(ut, e_core, f_core, teint_abcd, occs, ci_matrix_diagonal, nintern, teint_iiee, teint_ieie, teint_iiie)

calculates the configuration interaction matrix (only diagonal elements)

Arguments

Type	Intent	Optional	Attributes		Name
type(umatrixtable),	intent(in)			::	ut
real(kind=long),	intent(in)			::	e_core
real(kind=long),	intent(in)			::	f_core(:,:)
real(kind=long),	intent(in)			::	teint_abcd(:)
integer,	intent(in)			::	occs(:,:)
real(kind=long),	intent(out)			::	ci_matrix_diagonal(:)
integer,	intent(in),	optional		::	nintern
real(kind=long),	intent(in),	optional		::	teint_iiee(:)
real(kind=long),	intent(in),	optional		::	teint_ieie(:)
real(kind=long),	intent(in),	optional		::	teint_iiie(:)