Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | I | ||||
integer | :: | J | ||||
integer | :: | A | ||||
integer | :: | B |
function GetUMatEl2(I, J, A, B)
! A wrapper for GetUMatEl, now everything is available via modules.
! In:
! I,J,A,B: indices of integral. These are in spin indices in
! unrestricted calculations and spatial indices in restricted.
! Returns <ij|ab>
HElement_t(dp) GetUMatEl2
integer :: I, J, A, B
GetUMatEl2 = get_umat_el(I, J, A, B)
end function GetUMatEl2