ALIROOT-5792 data/galice.cuts modified for ZDC
[u/mrichter/AliRoot.git] / MICROCERN / gamma.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
fe4da5cc 4#include "gen/pilot.h"
5#if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_IBM))
6 FUNCTION GAMMA(X)
7 DOUBLE PRECISION DGAMMA,D
8
9 SROUND(D)=D+(D-SNGL(D))
10 GAMMA=SROUND(DGAMMA(DBLE(X)))
11 RETURN
12 END
13#endif