two_body_transcorr_factor_kvec Function

private function two_body_transcorr_factor_kvec(p, k)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: p(N_DIM)
integer, intent(in) :: k(N_DIM)

Return Value real(kind=dp)


Source Code

    HElement_t(dp) function two_body_transcorr_factor_kvec(p, k)
        integer, intent(in) :: p(N_DIM), k(N_DIM)

        ! take out the part with U/2 since this is already covered in the
        ! "normal" matrix elements
        two_body_transcorr_factor_kvec = real(bhub, dp) / real(omega, dp) * ( &
                                         (exp(trans_corr_param_2body) - 1.0_dp) * epsilon_kvec(k) + &
                                         (exp(-trans_corr_param_2body) - 1.0_dp) * epsilon_kvec(p))

    end function two_body_transcorr_factor_kvec