Fixing for Sun
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / gamma.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
4e8260ff 5* Revision 1.1 1999/05/18 15:55:34 fca
6* Initial revision
b05de456 7*
fe4da5cc 8* Revision 1.1.1.1 1996/04/01 15:01:54 mclareni
9* Mathlib gen
10*
11*
12#include "gen/pilot.h"
13#if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_IBM))
14 FUNCTION GAMMA(X)
15 DOUBLE PRECISION DGAMMA,D
16
17 SROUND(D)=D+(D-SNGL(D))
18 GAMMA=SROUND(DGAMMA(DBLE(X)))
19 RETURN
20 END
21#endif