This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / f / wheneq.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_DOUBLE))&&(!defined(CERNLIB_QMIBMVF))
11       SUBROUTINE WHENEQ(NW,IN,INC,ITARGT,INDX,NFOUND)
12 C
13 C CERN PROGLIB# F122    WHENEQ          .VERSION GEN      2.30  890530
14 C ORIG. 30/05/89        F. Antonelli IBM, FCA
15 C
16       DIMENSION IN(*), INDX(*)
17 C
18       NFOUND = 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(IN(J).EQ.ITARGT) THEN
28           NFOUND = NFOUND+1
29           INDX(NFOUND) = J
30         END IF
31   10  CONTINUE
32 C
33       END
34 #endif