kMat Function

public function kMat(index) result(val)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: index

Return Value real(kind=dp)


Source Code

    function kMat(index) result(val)
        implicit none
        integer(int64), intent(in) :: index
        real(dp) :: val

        val = kMatLin%elementAccess(index) + kMatSq%elementAccess(index)
    end function kMat