Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | i | |||
integer, | intent(in) | :: | j |
pure function one_elec_int(i, j) result(integral)
use OneEInts, only: GetTMatEl
integer, intent(in) :: i, j
real(dp) :: integral
integral = GetTMatEl(i, j)
end function one_elec_int