Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | i | |||
integer, | intent(in) | :: | j | |||
integer, | intent(in) | :: | k | |||
integer, | intent(in) | :: | l |
function two_elec_int(i, j, k, l) result(integral)
use sltcnd_mod, only: sltcnd_2_kernel
use UMatCache, only: gtID
integer, intent(in) :: i, j, k, l
real(dp) :: integral
integral = real(sltcnd_2_kernel(Excite_2_t(j, l, i, k)), dp)
end function two_elec_int