MINICERN/packlib/kernlib/kerngen/tcgen/iuhist.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:48  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION IUHIST (X,PAR,SPILL)
  11 C
  12 C CERN PROGLIB# Y203    IUHIST          .VERSION KERNFOR  3.15  820113
  13 C ORIG. 21/08/72 P.RASTL
  14 C
  15       DIMENSION PAR(3)
  16       EQUIVALENCE (NX,A)
  17       LOGICAL SPILL
  18 C
  19 C
  20       A = PAR(1)
  21       SPILL=.FALSE.
  22 #if defined(CERNLIB_B36M)
  23       AN = (X-PAR(3))*PAR(2) + 1.000001
  24 #endif
  25 #if !defined(CERNLIB_B36M)
  26       AN = (X-PAR(3))*PAR(2) + 1.00001
  27 #endif
  28       IF (AN.LT.1.) GO TO 20
  29       IF (AN.GE.FLOAT(NX+1))  GO TO 18
  30       N=AN
  31       IF (N.LT.0)            GO TO 18
  32       IUHIST= N
  33       RETURN
  34 C
  35 C--                OVERFLOW
  36    18 SPILL= .TRUE.
  37       IUHIST=NX+1
  38       RETURN
  39 C
  40 C--                UNDERFLOW
  41    20 SPILL=.TRUE.
  42       IUHIST=0
  43       RETURN
  44       END