Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MICROCERN / gamma.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
6 * Adding MICROCERN
7 *
8 * Revision 1.1.1.1  1999/05/18 15:55:34  fca
9 * AliRoot sources
10 *
11 * Revision 1.1.1.1  1996/04/01 15:01:54  mclareni
12 * Mathlib gen
13 *
14 *
15 #include "gen/pilot.h"
16 #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_IBM))
17       FUNCTION GAMMA(X)
18       DOUBLE PRECISION DGAMMA,D
19
20       SROUND(D)=D+(D-SNGL(D))
21       GAMMA=SROUND(DGAMMA(DBLE(X)))
22       RETURN
23       END
24 #endif