PDF/spdf/bbeta.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:27:38  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:29:04  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13 #if defined(CERNLIB_SINGLE)
  14       FUNCTION BBETA(X,Y)
  15 #endif
  16 #if defined(CERNLIB_DOUBLE)
  17       DOUBLE PRECISION FUNCTION BBETA(X,Y)
  18 #endif
  19 #include "pdf/expdp.inc"
  20      +       DGAMMA,
  21      +       X,Y
  22 #if defined(CERNLIB_SINGLE)
  23       BBETA=GAMMA(X)*GAMMA(Y)/GAMMA(X+Y)
  24 #endif
  25 #if defined(CERNLIB_DOUBLE)
  26       BBETA=DGAMMA(X)*DGAMMA(Y)/DGAMMA(X+Y)
  27 #endif
  28       RETURN
  29       END