]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - MINICERN/mathlib/gen/c/gamma.F
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / gamma.F
diff --git a/MINICERN/mathlib/gen/c/gamma.F b/MINICERN/mathlib/gen/c/gamma.F
deleted file mode 100644 (file)
index 3948d89..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1  1999/05/18 15:55:34  fca
-* Initial revision
-*
-* Revision 1.1.1.1  1996/04/01 15:01:54  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-#if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_IBM))
-      FUNCTION GAMMA(X)
-      DOUBLE PRECISION DGAMMA,D
-
-      SROUND(D)=D+(D-SNGL(D))
-      GAMMA=SROUND(DGAMMA(DBLE(X)))
-      RETURN
-      END
-#endif