X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=blobdiff_plain;f=MINICERN%2Fmathlib%2Fgen%2Fv%2Fbinomi.F;fp=MINICERN%2Fmathlib%2Fgen%2Fv%2Fbinomi.F;h=0000000000000000000000000000000000000000;hp=8d07f7ef2b9bcb4ffb1d3b3cd597a73fb74be7df;hb=b9d0a01d7a0723a09071b0b56200d72f59a9c2b6;hpb=9754311559f405f3949bf48d6883dd02a93e7088

diff --git a/MINICERN/mathlib/gen/v/binomi.F b/MINICERN/mathlib/gen/v/binomi.F
deleted file mode 100644
index 8d07f7ef2b9..00000000000
--- a/MINICERN/mathlib/gen/v/binomi.F
+++ /dev/null
@@ -1,30 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:02:55  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-      SUBROUTINE BINOMI(NTOT,P,N,IERROR)
-C    BINOMIAL GENERATOR
-C    CODED FROM LOS ALAMOS REPORT      LA-5061-MS
-C    PROB(N)=FACT(NTOT)*P**N*(1.-P)**(NTOT-N)/(FACT(N)*FACT(NTOT-N))
-C        WHERE FACT(N) STANDS FOR FACTORIAL OF N
-C    ON RETURN IERROR.EQ.0 NORMALLY
-C              IERROR.EQ.1 IF P.LE.0. OR P.GE.1.
-C
-      IF(P.GT.0. .AND. P.LT.1.) GO TO 100
-      IERROR=1
-      GO TO 999
-  100 CONTINUE
-      IERROR=0
-      N=0
-      DO 200 I=1,NTOT
-      IF(RNDM(N).GT.P) GO TO 200
-      N=N+1
-  200 CONTINUE
-  999 CONTINUE
-      RETURN
-      END