ilsum.F

Go to the documentation of this file.

      FUNCTION ilsum(N,LX,INCX)
      USE parkind1, ONLY : jpim
      IMPLICIT NONE
      INTEGER(KIND=JPIM) :: ILSUM
      INTEGER(KIND=JPIM) :: N
      INTEGER(KIND=JPIM) :: INCX
      INTEGER(KIND=JPIM) :: JL
      LOGICAL :: LX(*)
!
!  FINDS THE NUMBER OF TRUE ELEMENTS OF A LOGICAL VECTOR
!
      ilsum=0
      IF ( n.LE.0) RETURN
!
      DO 1 jl=1,n
        IF ( lx(1+(jl-1)*incx) ) ilsum=ilsum+1
 1    CONTINUE
!
      ENDFUNCTION ilsum