5 * Revision 1.1.1.1 1996/04/01 15:02:31 mclareni
10 #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_QMIBMVF))
11 SUBROUTINE WHENFLE(NW,HIN,INC,TARGET,INDX,NFOUND)
13 C CERN PROGLIB# F122 WHENFLE .VERSION GEN 2.30 890530
14 C ORIG. 30/05/89 F. Antonelli IBM, FCA
16 DIMENSION HIN(*), INDX(*)
26 DO 10 J=IBEG, IEND, INC
27 IF(HIN(J).LE.TARGET) THEN