Multiplication_Matrix_Scalar_CRS Function

private function Multiplication_Matrix_Scalar_CRS(a, B) result(C)

Arguments

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

Return Value type(type_crs)


Called by

proc~~multiplication_matrix_scalar_crs~~CalledByGraph proc~multiplication_matrix_scalar_crs Multiplication_Matrix_Scalar_CRS interface~operator(ASTERISK) operator(*) interface~operator(ASTERISK)->proc~multiplication_matrix_scalar_crs

Source Code

    function Multiplication_Matrix_Scalar_CRS(a, B) result(C)
        implicit none
        real(real64), intent(in) :: a
        type(type_crs), intent(in) :: B
        type(type_crs) :: C
        integer(int32) :: k

        ! Assume same sparsity structure
        C = B
        do k = 1, B%nnz
            C%val(k) = B%val(k) * a
        end do
    end function Multiplication_Matrix_Scalar_CRS