one_elec_int Function

public pure function one_elec_int(i, j) result(integral)

Uses

Arguments

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

Return Value real(kind=dp)


Source Code

    pure function one_elec_int(i, j) result(integral)

        use OneEInts, only: GetTMatEl

        integer, intent(in) :: i, j
        real(dp) :: integral

        if(t_heisenberg_model)then
            integral = 0.0_dp
        else            
            integral = GetTMatEl(i, j)
        endif

    end function one_elec_int