Below uses arrays and data from COUNT function online documentation.
But the counts using dim=1, dim=2 are reversed ?
! -----------------------------
program test_count
integer :: a(3,2) = [1,5,7,3,6,8]
integer :: b(3,2) = [0,5,7,2,6,9]
write (*,91) 'count(a > 5) = ', count(a > 5)
write (*,91) 'count(a /= b) = ', count(a /= b)
write (*,91) 'count(a /= b,dim=1) = ', count(a /= b, dim=1)
write (*,91) 'count(a /= b,dim=2) = ', count(a /= b, dim=2)
91 format (a,3i2)
end program
Outputs:
count(a > 5) = 3
count(a /= b) = 3
count(a /= b,dim=1) = 1 2
count(a /= b,dim=2) = 2 0 1
