Real, Dimension(2,3) :: a, b
a = Reshape( (/2.,3.,5.,-1.,4.,-3./), (/2,3/))
b = Reshape( (/2.,3.,5.,-1.,0.,-3./), (/2,3/))
Print *, Parity(a==b)
Print *, Parity(a==b,1)
Print *, Parity(Mask=a.Eq.b,Dim=2)
End Program
Execution ResultsT
F F T
F T
<Example Program>
| Program parity_example Real, Dimension(2,3) :: a, b a = Reshape( (/2.,3.,5.,-1.,4.,-3./), (/2,3/)) b = Reshape( (/2.,3.,5.,-1.,0.,-3./), (/2,3/)) Print *, Parity(a==b) Print *, Parity(a==b,1) Print *, Parity(Mask=a.Eq.b,Dim=2) End Program |
|
| Execution Results T F F T F T |
|