two_body_transcorr_factor_ksym Function

private function two_body_transcorr_factor_ksym(p, k)


Type IntentOptional Attributes Name
type(Symmetry), intent(in) :: p
type(Symmetry), intent(in) :: k

Return Value real(kind=dp)


Source Code

    HElement_t(dp) function two_body_transcorr_factor_ksym(p, k)
        type(symmetry), intent(in) :: p, k

        ! take out the part with U/2 since this is already covered in the
        ! "normal" matrix elements

        ! optimize this better and precompute more stuff!

        two_body_transcorr_factor_ksym = two_body_transcorr_factor_matrix(p%s, k%s)

    end function two_body_transcorr_factor_ksym