＜Example Program＞

Program count_example
  Integer, 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 *, Count(a==b)
  Print *, Count(a==b,1)
  Print *, Count(Mask=A==B,Dim=2)
End Program

■ Execution Results

 5
 2 2 1
 2 3