]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - MINICERN/mathlib/gen/c/ferfr.F
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / ferfr.F
diff --git a/MINICERN/mathlib/gen/c/ferfr.F b/MINICERN/mathlib/gen/c/ferfr.F
deleted file mode 100644 (file)
index 9781cb0..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:02:02  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-#if !defined(CERNLIB_DOUBLE)
-      FUNCTION FERDR(X,K)
-      SROUND(D)=D+(D-SNGL(D))
-
-      FERDR=SROUND(DFERDR(DBLE(X),K))
-      RETURN
-
-      END
-#endif