same_spin_transcorr_factor_kvec Function

private function same_spin_transcorr_factor_kvec(nI, k_vec, spin)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(nel)
integer, intent(in) :: k_vec(N_DIM)
integer, intent(in) :: spin

Return Value real(kind=dp)


Contents

Source Code

same_spin_transcorr_factor_kvec

Source Code

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

        same_spin_transcorr_factor_kvec = -three_body_prefac * ( &
                                          get_one_body_diag(nI, -spin, k_vec) + get_one_body_diag(nI, -spin, k_vec, .true.))

    end function same_spin_transcorr_factor_kvec