Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / rgapnc.F

diff --git a/MINICERN/mathlib/gen/c/rgapnc.F b/MINICERN/mathlib/gen/c/rgapnc.F
deleted file mode 100644 (file)
index f05b843..0000000
--- a/MINICERN/mathlib/gen/c/rgapnc.F
+++ /dev/null
@@ -1,33 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:02:05  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-#if defined(CERNLIB_DOUBLE)
-      FUNCTION RGAPNC(A,X)
-#include "gen/def64.inc"
-     +          DGAPNC,DGAGNC,D
-
-      SROUND(D)=D+(D-SNGL(D))
-
-      RGAPNC=SROUND(DGAPNC(DBLE(A),DBLE(X)))
-      RETURN
-
-      ENTRY RGAGNC(A,X)
-      RGAGNC=SROUND(DGAGNC(DBLE(A),DBLE(X)))
-      RETURN
-
-      ENTRY GAPNC(A,X)
-      GAPNC=SROUND(DGAPNC(DBLE(A),DBLE(X)))
-      RETURN
-
-      ENTRY GAGNC(A,X)
-      GAGNC=SROUND(DGAGNC(DBLE(A),DBLE(X)))
-      RETURN
-
-      END
-#endif