This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / gamma.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/04/01 15:01:54 mclareni
6* Mathlib gen
7*
8*
9#include "gen/pilot.h"
10#if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_IBM))
11 FUNCTION GAMMA(X)
12 DOUBLE PRECISION DGAMMA,D
13
14 SROUND(D)=D+(D-SNGL(D))
15 GAMMA=SROUND(DGAMMA(DBLE(X)))
16 RETURN
17 END
18#endif