MINICERN/mathlib/gen/f/iilz.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:30  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if defined(CERNLIB_VAX)||defined(CERNLIB_NORD)||defined(CERNLIB_UNIX)
  11       FUNCTION IILZ(NW,IA,INC)
  12 C
  13 C CERN PROGLIB# F122    IILZ            .VERSION GEN      2.30  890530
  14 C ORIG. 30/05/89        F. Antonelli IBM, FCA
  15 C
  16       DIMENSION IA(*)
  17 C
  18       IRES = 0
  19       IF(INC.GT.0) THEN
  20         IBEG = 1
  21         IEND = (NW-1)*INC+1
  22       ELSE
  23         IBEG = (1-NW)*INC+1
  24         IEND = 1
  25       END IF
  26       DO 10 J=IBEG, IEND, INC
  27         IF(IA(J).NE.0) GO TO 777
  28         IRES = IRES + 1
  29   10  CONTINUE
  30 C
  31  777  IILZ = IRES
  32 C
  33       END
  34 #endif