Integer :: a(2,3)
a = Reshape( [ 12.,13.,5.,-12.,2.,-3. ], [ 2,3 ])
Print *, Iparity(a)
Print *, Iparity(a,1)
Print *, Iparity(Array=a,Dim=2)
Print *, Iparity(a, Mask=a>0)
End Program
Execution Results15
1 -15 -1
11 4
6
<Example Program>
| Program iparity_example Integer :: a(2,3) a = Reshape( [ 12.,13.,5.,-12.,2.,-3. ], [ 2,3 ]) Print *, Iparity(a) Print *, Iparity(a,1) Print *, Iparity(Array=a,Dim=2) Print *, Iparity(a, Mask=a>0) End Program |
|
| Execution Results 15 1 -15 -1 11 4 6 |
|