SumCorrectionContrib Subroutine

public subroutine SumCorrectionContrib(DetSgn, DetPosition)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: DetSgn(lenof_sign)
integer, intent(in) :: DetPosition

Source Code

    subroutine SumCorrectionContrib(DetSgn, DetPosition)
        ! gather the sum (f_mu - 1) c_mu^2 used in the rdm filling
        implicit none
        real(dp), intent(in) :: DetSgn(lenof_sign)
        integer, intent(in) :: DetPosition

        InstRDMCorrectionFactor = InstRDMCorrectionFactor + getRDMCorrectionTerm(DetSgn, &
                                                                                 DetPosition)

    end subroutine SumCorrectionContrib