PDF/spdf/pdf_beta.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  2000/04/19 13:29:40  mclareni
   6 * Import version 8.04
   7 *
   8 * Revision 1.1  2000/03/23 11:39:41  pdflib
   9 * beta function changed to pdf_beta function
  10 *
  11 * Revision 1.1.1.1  1996/04/12 15:29:04  plothow
  12 * Version 7.01
  13 *
  14 *
  15 #include "pdf/pilot.h"
  16 C
  17       FUNCTION PDF_BETA(X,Y)
  18       PDF_BETA=GAMMA(X)*GAMMA(Y)/GAMMA(X+Y)
  19       RETURN
  20       END