]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - MINICERN/mathlib/gen/c/cgamma128.F
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / cgamma128.F
diff --git a/MINICERN/mathlib/gen/c/cgamma128.F b/MINICERN/mathlib/gen/c/cgamma128.F
deleted file mode 100644 (file)
index 1207dd3..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:01:55  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-#if !defined(CERNLIB_DOUBLE)
-      FUNCTION WGAMMA(Z)
-C
-#if (!defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
-      COMPLEX*16 WGAMMA,Z
-#endif
-#if (defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
-      COMPLEX(2) WGAMMA,Z
-#endif
-#if !defined(CERNLIB_DOUBLE)
-C
-      CHARACTER NAME*(*)
-      PARAMETER (NAME = 'WGAMMA')
-      WGAMMA=0
-      CALL MTLPRT(NAME,'C305.0','Not available on this machine')
-      RETURN
-      END
-#endif
-#endif