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