GoToNextRank Subroutine

public subroutine GoToNextRank(session, tReachedLimit)

Arguments

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

Contents

Source Code

GoToNextRank

Source Code

    subroutine GoToNextRank(session, tReachedLimit)
        implicit none
        type(ExcitGenSessionType), intent(inout) :: session
        logical, intent(out) :: tReachedLimit
        tReachedLimit = .false.
        if (session%rank < session%maxRank) then
            session%rank = session%rank + 1
            call initExcitVecs(session)
            ! reset bot occupied and unoccupied indices
            call ResetIndices(session%elecIndices, session%rank)
            call ResetIndices(session%holeIndices, session%rank)
        else
            tReachedLimit = .true.
        end if
    end subroutine GoToNextRank