| 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