Multiplication_Scalar_matrix_crs Function

private function Multiplication_Scalar_matrix_crs(A, b) result(C)

Arguments

Type IntentOptional Attributes Name
type(type_crs), intent(in) :: A
real(kind=real64), intent(in) :: b

Return Value type(type_crs)


Called by

proc~~multiplication_scalar_matrix_crs~~CalledByGraph proc~multiplication_scalar_matrix_crs Multiplication_Scalar_matrix_crs interface~operator(ASTERISK) operator(*) interface~operator(ASTERISK)->proc~multiplication_scalar_matrix_crs

Source Code

    function Multiplication_Scalar_matrix_crs(A, b) result(C)
        implicit none
        type(type_crs), intent(in) :: A
        real(real64), intent(in) :: b
        type(type_crs) :: C
        integer(int32) :: k

        ! Assume same sparsity structure

        C = A
        do k = 1, A%nnz
            C%val(k) = A%val(k) * b
        end do
    end function Multiplication_Scalar_matrix_crs