]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - MINICERN/mathlib/gen/d/cgauss64.F
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / cgauss64.F
diff --git a/MINICERN/mathlib/gen/d/cgauss64.F b/MINICERN/mathlib/gen/d/cgauss64.F
deleted file mode 100644 (file)
index 802f2fc..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:02:16  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-#if defined(CERNLIB_DOUBLE)
-      FUNCTION WGAUSS(F,A,B,EPS)
-#include "gen/imp64.inc"
-#include "gen/defc64.inc"
-     +     WGAUSS,F,A,B,AA,BB,U,C1,C2,S8,S16,H
-      CHARACTER NAME*(*)
-      PARAMETER (NAME = 'WGAUSS')
-#include "cgausscod.inc"
-
-   99 WGAUSS=H
-      RETURN
-      END
-#endif