Real, Dimension(2,3) :: a, b, c
a = Reshape( (/1.,2.,3.,4.,5.,6./), (/2,3/))
b = Reshape( (/2.,3.,4.,5.,6.,7./), (/2,3/))
c = a + b
Print *, c(1,:)
Print *, c(2,:)
End
Execution Results3.0000000 7.0000000 11.0000000
5.0000000 9.0000000 13.0000000
<Example Program>
| Program array_array_op_example Real, Dimension(2,3) :: a, b, c a = Reshape( (/1.,2.,3.,4.,5.,6./), (/2,3/)) b = Reshape( (/2.,3.,4.,5.,6.,7./), (/2,3/)) c = a + b Print *, c(1,:) Print *, c(2,:) End |
|
| Execution Results 3.0000000 7.0000000 11.0000000 5.0000000 9.0000000 13.0000000 |
|