7c944dd7043c2dd6dfeba7a2fcf3e0a8cdcd7297
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / gamma.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1999/05/18 15:55:34  fca
6 * AliRoot sources
7 *
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 #else
22       SUBROUTINE GAMMA_DUMMY
23       END
24 #endif