same_spin_transcorr_factor_ksym Function

private function same_spin_transcorr_factor_ksym(nI, k_sym, spin)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(nel)
type(Symmetry), intent(in) :: k_sym
integer, intent(in) :: spin

Return Value real(kind=dp)


Contents

Source Code

same_spin_transcorr_factor_ksym

Source Code

    HElement_t(dp) function same_spin_transcorr_factor_ksym(nI, k_sym, spin)
        ! this is the term coming appearing in the spin-parallel
        ! excitations coming from the k = 0 triple excitation
        integer, intent(in) :: nI(nel), spin
        type(symmetry), intent(in) :: k_sym

        same_spin_transcorr_factor_ksym = -three_body_prefac * ( &
                                          get_one_body_diag(nI, -spin, k_sym) + get_one_body_diag(nI, -spin, k_sym, .true.))

    end function same_spin_transcorr_factor_ksym