calc_pgen_rs_hubbard_spin_dependent_transcorr Function

  1. real_space_hubbard.F90
  2. real_space_hubbard
  3. calc_pgen_rs_hubbard_spin_dependent_transcorr

public function calc_pgen_rs_hubbard_spin_dependent_transcorr(nI, ilutI, ex, ic) result(pgen)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

calc_pgen_rs_hubbard_spin_dependent_transcorr

Source Code

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

        if (ic /= 1) then
            pgen = 0.0_dp
            return
        end if

        if (is_alpha(ex(1, 1))) then
            pgen = calc_pgen_rs_hubbard_transcorr(nI, ilutI, ex, ic)
        else
            pgen = calc_pgen_rs_hubbard(ilutI, ex, ic)
        end if

    end function calc_pgen_rs_hubbard_spin_dependent_transcorr