5 * Revision 1.1.1.2 1996/10/30 08:27:38 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:04 plothow
12 #include "pdf/pilot.h"
13 #if defined(CERNLIB_SINGLE)
16 #if defined(CERNLIB_DOUBLE)
17 DOUBLE PRECISION FUNCTION BBETA(X,Y)
19 #include "pdf/expdp.inc"
22 #if defined(CERNLIB_SINGLE)
23 BBETA=GAMMA(X)*GAMMA(Y)/GAMMA(X+Y)
25 #if defined(CERNLIB_DOUBLE)
26 BBETA=DGAMMA(X)*DGAMMA(Y)/DGAMMA(X+Y)