scal_mult_mat Function

private function scal_mult_mat(a, b)

Matrix * Scalar

Type Bound

mat

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: a

Scalar to multiply by
class(mat), intent(in) :: b

Input Matrix

Return Value type(mat)


Source Code

    type(mat) function scal_mult_mat(a, b)
        !! Matrix * Scalar

        !> Input Matrix
        class(mat),    intent(IN) :: b
        !> Scalar to multiply by
        real(kind=wp), intent(IN) :: a

        scal_mult_mat%vals = b%vals * a

    end function scal_mult_mat