exchElement Function

public function exchElement(this, i, j, k, l) result(matel)

Type Bound

kMat_t

Arguments

Type IntentOptional Attributes Name
class(kMat_t) :: this
integer, intent(in) :: i
integer, intent(in) :: j
integer, intent(in) :: k
integer, intent(in) :: l

Return Value real(kind=dp)


Contents

Source Code

exchElement

Source Code

    function exchElement(this, i, j, k, l) result(matel)
        implicit none
        class(kMat_t) :: this
        integer, intent(in) :: i, j, k, l
        real(dp) :: matel

        matel = this%kMat_p(UMatInd(i, j, l, k))
    end function exchElement