sum_spin_transcorr_factor_orb Function

private function sum_spin_transcorr_factor_orb(i, j)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in) :: j

Return Value real(kind=dp)


Source Code

    real(dp) function sum_spin_transcorr_factor_orb(i, j)
        ! similat to below, but just for the spin-transcorrelated
        ! real-space hubbard model.
        integer, intent(in) :: i, j
#ifdef DEBUG_
        character(*), parameter :: this_routine = "sum_spin_transcorr_factor_orb"
#endif
        integer :: r1(3), r2(3)

        ASSERT(associated(lat))

        r1 = lat%get_r_vec(i)
        r2 = lat%get_r_vec(j)

        sum_spin_transcorr_factor_orb = sum_spin_transcorr_factor_vec(r1, r2)

    end function sum_spin_transcorr_factor_orb