Matrix + Scalar = Matrix
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(mat), | intent(in) | :: | a |
Input Matrix |
||
real(kind=wp), | intent(in) | :: | b |
Scalar to add |
type(mat) function mat_add_scal(a, b) !! Matrix + Scalar = Matrix !> Input Matrix class(mat), intent(IN) :: a !> Scalar to add real(kind=wp), intent(IN) :: b mat_add_scal%vals = a%vals + b end function mat_add_scal