Real a(2,3), b(3,2), c(2,2)
a = Reshape( (/1.,2.,3.,4.,5.,6./), (/2,3/))
b = Reshape( (/2.,3.,4.,5.,6.,7./), (/3,2/))
c = Matmul(a,b)
Print *,c(1,:)
Print *,c(2,:)
End
Execution Results31.0000000 58.0000000
40.0000000 76.0000000
<Example Program>
| Program matmul_example Real a(2,3), b(3,2), c(2,2) a = Reshape( (/1.,2.,3.,4.,5.,6./), (/2,3/)) b = Reshape( (/2.,3.,4.,5.,6.,7./), (/3,2/)) c = Matmul(a,b) Print *,c(1,:) Print *,c(2,:) End |
|
| Execution Results 31.0000000 58.0000000 40.0000000 76.0000000 |
|