Real, Dimension(2,3) :: a, b
a = Reshape( (/1.,2.,3.,4.,5.,6./), (/2,3/))
b = 2.*a
Print *, b(1,:)
Print *, b(2,:)
End
Execution Results2.0000000 6.0000000 10.0000000
4.0000000 8.0000000 12.0000000
<Example Program>
| Program array_scalar_op_example Real, Dimension(2,3) :: a, b a = Reshape( (/1.,2.,3.,4.,5.,6./), (/2,3/)) b = 2.*a Print *, b(1,:) Print *, b(2,:) End |
|
| Execution Results 2.0000000 6.0000000 10.0000000 4.0000000 8.0000000 12.0000000 |
|