Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | j |
function get_determinant(j) result(nI)
implicit none
integer, intent(in) :: j
integer :: nI(nel)
if (tStoredDets) then
nI = global_determinants(:, j)
else
nI = 0
end if
end function get_determinant