| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | i | |||
| integer, | intent(in) | :: | j | |||
| integer, | intent(in) | :: | k | |||
| integer, | intent(in) | :: | l |
pure function get_umat_rs_hub_trans(i, j, k, l) result(hel) ! do i need an explicit get_umat_rs_hub_trans? or can i just reuse ! the one, whhich access the "normal" fcidump.. figure out! integer, intent(in) :: i, j, k, l HElement_t(dp) :: hel hel = umat_rs_hub_trancorr_hop(i, j, k, l) end function get_umat_rs_hub_trans