COUNT

 COUNT (mask [,dim] [,kind])

 Class:  Transformational function - Generic

 Counts the number of true elements in an entire array or in a
 specified dimension of an array.

 The "mask" must be a logical array.  The "dim" must be a scalar
 integer with a value in the range 1 to n, where "n" is the rank of
 "mask".  The "kind" must be a scalar integer initialization
 expression.

 The result is integer.  If "kind" is present, the kind parameter of
 the result is that specified by "kind"; otherwise, the kind
 parameter of the result is that of default integer.  If the
 processor cannot represent the result value in the kind of the
 result, the result is undefined.

 The result is a scalar if "dim" is absent or "mask" has rank one.
 Otherwise, the result is an array with rank that is one less than
 "mask", and shape (d1, d2,..., d"dim"-1, d"dim"+1,..., dn), where
 (d1, d2,..., dn) is the shape of "mask".

 The result of COUNT (mask) is a value equal to the number of true
 elements of "mask".  If mask has size zero, the result is zero.

 If "mask" has rank one, COUNT (mask, dim) has the same value as
 COUNT (mask).  Otherwise, the value of element (s1, s2,...,
 s"dim"-1, s"dim"+1,..., sn) of COUNT (mask, dim) is equal to COUNT
 (mask (s1, s2,..., s"dim"-1, :, s"dim"+1, ...,sn).

 Examples:

 COUNT ((/.TRUE., .FALSE., .TRUE./)) has the value 2.

 COUNT ((/.TRUE., .TRUE., .TRUE./)) has the value 3.

 Consider the following arrays:

   Array A       Array B

   |1 5 7|       |0 5 7|
   |3 6 8|       |2 6 9|

 COUNT (A .NE.  B, DIM=1) has the value (2, 0, 1).

 COUNT (A .NE.  B, DIM=2) has the value (1, 2).