MINICERN/mathlib/gen/f/whenile.F

   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 WHENILE(NW,IN,INC,ITARGT,INDX,NFOUND)
  12 C
  13 C CERN PROGLIB# F122    WHENILE         .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).LE.ITARGT) THEN
  28           NFOUND = NFOUND+1
  29           INDX(NFOUND) = J
  30         END IF
  31   10  CONTINUE
  32 C
  33       END
  34 #endif