constShiftFactorFunction Function

public pure function constShiftFactorFunction(pos, run, pop) result(f)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: pos
integer, intent(in) :: run
real(kind=dp), intent(in) :: pop

Return Value real(kind=dp)


Source Code

    pure function constShiftFactorFunction(pos, run, pop) result(f)
        ! Dummy scale function for the shift: S' = S
        ! Input: pos - position of given determinant in CurrentDets
        ! Input: run - run for which the factor is needed
        ! Input: pop - population of given determinant
        ! Output: f - scaling factor for the shift
        integer, intent(in) :: pos
        integer, intent(in) :: run
        real(dp), intent(in) :: pop
        real(dp) :: f
        unused_var(pos); unused_var(run); unused_var(pop)

        f = 1.0
    end function constShiftFactorFunction