The COUNT function counts the number of true elements in a logical mask either for an entire mask or along a given dimension of the mask.
SyntaxCOUNT (mask [, dim] )
mask is an INTENT(IN) array of type LOGICAL. It must not be scalar.
dim is an INTENT(IN) scalar of type INTEGER with a value within the range
The result is of type default INTEGER. Its value and rank are computed as follows:
Exampleinteger,dimension(2,3) :: a,b a=reshape((/1,2,3,4,5,6/),shape(a)) write(*,'(2i3)') a ! writes 1 2 ! 3 4 ! 5 6 b=reshape((/1,2,3,5,6,4/), (/2,3/)) write(*,'(2i3)') b ! writes 1 2 ! 3 5 ! 6 4 write(*,*) count(a==b) ! writes 3 write(*,*) count(a==b,dim=1) ! writes 2 1 0 write(*,*) count(a==b,dim=2) ! writes 2 1