Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / iubin.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgen/iubin.F b/MINICERN/packlib/kernlib/kerngen/tcgen/iubin.F
deleted file mode 100644 (file)
index 76c6c2a..0000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgen/iubin.F
+++ /dev/null
@@ -1,44 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:49:48  mclareni
-* Kernlib
-*
-*
-#include "kerngen/pilot.h"
-      FUNCTION IUBIN (X,PAR,SPILL)
-C
-C CERN PROGLIB# Y202    IUBIN           .VERSION KERNFOR  3.15  820113
-C ORIG. 01/01/69 JZ
-C
-      DIMENSION PAR(3)
-      EQUIVALENCE (NX,A)
-      LOGICAL SPILL
-C
-C
-      A = PAR(1)
-      SPILL=.FALSE.
-#if defined(CERNLIB_B36M)
-      AN = (X-PAR(3))/PAR(2) + 1.000001
-#endif
-#if !defined(CERNLIB_B36M)
-      AN = (X-PAR(3))/PAR(2) + 1.00001
-#endif
-      IF (AN.LT.1.) GO TO 20
-      IF (AN.GE.FLOAT(NX+1))  GO TO 18
-      N=AN
-      IF (N.LT.0)            GO TO 18
-      IUBIN= N
-      RETURN
-C
-C--                OVERFLOW
-   18 SPILL= .TRUE.
-      IUBIN=NX+1
-      RETURN
-C
-C--                UNDERFLOW
-   20 SPILL=.TRUE.
-      IUBIN=0
-      RETURN
-      END