The ALL function determines whether all values in a logical mask are true either for an entire mask or along a given dimension of the mask.
SyntaxALL (mask [, dim])
mask is an INTENT(IN) array of type LOGICAL. It cannot be scalar.
dim is an INTENT(IN) scalar INTEGER with a value within the range
The result is of type LOGICAL and the same kind as MASK. Its value and rank are determined as follows:
Example 1real, dimension(4) :: o=0.,p=1.,q=(/1.,-2.,3.,4./) if (all(q /= 0.)) o=p/q write(*,*) o ! writes 1.000000 -.5000000 .3333333 .2500000
Example 2integer, dimension (2,3) :: a, b a = reshape((/1,2,3,4,5,6/), (/2,3/)) 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 4 ! 5 6 write(*,*) all(a==b) ! writes F write(*,*) all(a==b, 1)! writes T F F write(*,*) all(a==b, 2)! writes F F