get_helement_heisenberg_ex_mat Function

  1. tJ_model.F90
  2. tJ_model
  3. get_helement_heisenberg_ex_mat

private function get_helement_heisenberg_ex_mat(nI, ic, ex, tpar) result(hel)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(nel)
integer, intent(in) :: ic
integer, intent(in) :: ex(2,ic)
logical, intent(in) :: tpar

Return Value real(kind=dp)


Contents

Source Code

get_helement_heisenberg_ex_mat

Source Code

    function get_helement_heisenberg_ex_mat(nI, ic, ex, tpar) result(hel)
        integer, intent(in) :: nI(nel), ic, ex(2, ic)
        logical, intent(in) :: tpar
        HElement_t(dp) :: hel

        if (ic == 0) then
            hel = get_diag_helement_heisenberg(nI)

        else if (ic == 2) then
            hel = get_offdiag_helement_heisenberg(nI, ex, tpar)

        else
            hel = h_cast(0.0_dp)

        end if

    end function get_helement_heisenberg_ex_mat