Dummy subroutines to avoid files with no code in
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 16 May 2002 15:47:05 +0000 (15:47 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 16 May 2002 15:47:05 +0000 (15:47 +0000)
MINICERN/mathlib/gen/c/erf128.F
MINICERN/mathlib/gen/c/gamma128.F
MINICERN/mathlib/gen/d/gauss128.F

index 76e6f79..79829dc 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:34  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1996/04/01 15:01:53  mclareni
 * Mathlib gen
 *
@@ -23,4 +26,7 @@ C
       CALL MTLPRT(NAME,'C300.0','Not available on this machine')
       RETURN
       END
+#else
+      SUBROUTINE ERF128_DUMMY
+      END
 #endif
index 29d73a8..b6260b4 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:34  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1996/04/01 15:01:54  mclareni
 * Mathlib gen
 *
       RETURN
   101 FORMAT('ARGUMENT IS NEGATIVE = ',1P,E15.1)
       END
+#else
+      SUBROUTINE GAMMA128_DUMMY
+      END
 #endif
index 303a342..8614a40 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:34  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1996/04/01 15:02:13  mclareni
 * Mathlib gen
 *
@@ -123,4 +126,7 @@ C     DGAUSS FOR CRAY AND ALIKE
 #endif
       RETURN
       END
+#else
+      SUBROUTINE gauss128_dummy
+      END
 #endif