This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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