| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(ExcitGenSessionType), | intent(inout) | :: | session | |||
| logical, | intent(out) | :: | tReachedLimit |
subroutine GoToNextHoleIndices(session, tReachedLimit) implicit none type(ExcitGenSessionType), intent(inout) :: session logical, intent(out) :: tReachedLimit call IncrementIndex(session%holeIndices, session%rank, nBasis - nEl, tReachedLimit) end subroutine GoToNextHoleIndices