[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / f / whenflt.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:31  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_QMIBMVF))
      SUBROUTINE WHENFLT(NW,HIN,INC,TARGET,INDX,NFOUND)
C
C CERN PROGLIB# F122    WHENFLT         .VERSION GEN      2.30  890530
C ORIG. 30/05/89        F. Antonelli IBM, FCA
C
      DIMENSION HIN(*), INDX(*)
C
      NFOUND = 0
      IF(INC.GT.0) THEN
        IBEG = 1
        IEND = (NW-1)*INC+1
      ELSE
        IBEG = (1-NW)*INC+1
        IEND = 1
      END IF
      DO 10 J=IBEG, IEND, INC
        IF(HIN(J).LT.TARGET) THEN
          NFOUND = NFOUND+1
          INDX(NFOUND) = J
        END IF
  10  CONTINUE
C
      END
#endif
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 WHENFLT(NW,HIN,INC,TARGET,INDX,NFOUND)
	12	C
	13	C CERN PROGLIB# F122 WHENFLT .VERSION GEN 2.30 890530
	14	C ORIG. 30/05/89 F. Antonelli IBM, FCA
	15	C
	16	DIMENSION HIN(), 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(HIN(J).LT.TARGET) THEN
	28	NFOUND = NFOUND+1
	29	INDX(NFOUND) = J
	30	END IF
	31	10 CONTINUE
	32	C
	33	END
	34	#endif