＜ANY Example Program＞

Program any_example
  Real, Dimension(2,3) :: a, b
  a = Reshape( (/2.,3.,5.,-1.,4.,-3./), (/2,3/))
  b = Reshape( (/9.,9.,5.,-1.,0.,-3./), (/2,3/))
  Print *, Any(a==b)
  Print *, Any(a==b,1)
  Print *, Any(Mask=a.Eq.b,Dim=2)
End Program

---

■ Execution Results

 T
 F T T
 T T