calc_pgen_pcpp Function

public function calc_pgen_pcpp(ilutI, ex, ic) result(pgen)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilutI(0:NIfTot)
integer, intent(in) :: ex(2,2)
integer, intent(in) :: ic

Return Value real(kind=dp)


Source Code

    function calc_pgen_pcpp(ilutI, ex, ic) result(pgen)
        integer(n_int), intent(in) :: ilutI(0:NIfTot)
        integer, intent(in) :: ex(2,2), ic
        real(dp) :: pgen

        if(ic == 1) then
            pgen = calc_pgen_singles_pcpp(ilutI,ex(:,1))
            pgen = pgen * pSingles
        else
            pgen = calc_pgen_doubles_pcpp(ilutI,ex(:,1:2))
            pgen = pgen * (1.0_dp - pSingles)
        endif

    contains
    end function calc_pgen_pcpp