Real a(2,3)
a = Reshape( (/2.,3.,5.,-1.,4.,-3./), (/2,3/))
Print *, Maxval(a)
Print *, Maxval(a,Dim=1)
Print *, Maxval(a,Dim=2)
Print *, Maxval(a,Mask=a<5)
End
Execution Results5.0000000
3.0000000 5.0000000 4.0000000
5.0000000 3.0000000
4.0000000
<Example Program>
| Program maxval_example Real a(2,3) a = Reshape( (/2.,3.,5.,-1.,4.,-3./), (/2,3/)) Print *, Maxval(a) Print *, Maxval(a,Dim=1) Print *, Maxval(a,Dim=2) Print *, Maxval(a,Mask=a<5) End |
|
| Execution Results 5.0000000 3.0000000 5.0000000 4.0000000 5.0000000 3.0000000 4.0000000 |
|