GoToNextElecIndices Subroutine

public subroutine GoToNextElecIndices(session, tReachedLimit)

Arguments

Type IntentOptional Attributes Name
type(ExcitGenSessionType), intent(inout) :: session
logical, intent(out) :: tReachedLimit

Contents

Source Code

GoToNextElecIndices

Source Code

    subroutine GoToNextElecIndices(session, tReachedLimit)
        implicit none
        type(ExcitGenSessionType), intent(inout) :: session
        logical, intent(out) :: tReachedLimit
        call IncrementIndex(session%elecIndices, session%rank, nEl, tReachedLimit)
        ! reset unoccupied indices
        call ResetIndices(session%holeIndices, session%rank)
    end subroutine GoToNextElecIndices