]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/04/01 15:02:31 mclareni | |
6 | * Mathlib gen | |
7 | * | |
8 | * | |
9 | #include "gen/pilot.h" | |
10 | #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_QMIBMVF)) | |
11 | SUBROUTINE WHENILT(NW,IN,INC,ITARGT,INDX,NFOUND) | |
12 | C | |
13 | C CERN PROGLIB# F122 WHENILT .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).LT.ITARGT) THEN | |
28 | NFOUND = NFOUND+1 | |
29 | INDX(NFOUND) = J | |
30 | END IF | |
31 | 10 CONTINUE | |
32 | C | |
33 | END | |
34 | #endif |