Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MICROCERN / gamma.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
b9d0a01d 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
b05de456 10*
fe4da5cc 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