Compute the matrix product.
type(vector_R4P) :: pt(2)
real(R4P) :: I(3,3)
pt(1) = 2 * ex_R4P
I = 0._RPP
I(1,1) = 1._RPP
I(2,2) = 1._RPP
I(3,3) = 1._RPP
pt(2) = I.matrix.pt(1)
print "(3(F3.1,1X))", abs(pt(2)%x), abs(pt(2)%y), abs(pt(2)%z)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=R4P), | intent(in) | :: | lhs(3,3) | Left hand side. |
||
| class(vector_R4P), | intent(in) | :: | rhs | Right hand side. |
Operator result.