This commit was generated by cvs2svn to compensate for changes in r2,

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

diff --git a/MINICERN/mathlib/gen/u/djmnb128.F b/MINICERN/mathlib/gen/u/djmnb128.F
new file mode 100644 (file)
index 0000000..637156a
--- /dev/null
+++ b/MINICERN/mathlib/gen/u/djmnb128.F
@@ -0,0 +1,19 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/04/01 15:01:48  mclareni
+* Mathlib gen
+*
+*
+#include "gen/pilot.h"
+#if !defined(CERNLIB_DOUBLE)
+      FUNCTION DDJMNB(AJ,AM,AN,BETA)
+#include "gen/imp128.inc"
+      CHARACTER NAME*(*)
+      PARAMETER (NAME = 'DDJMNB')
+      DDJMNB=0
+      CALL MTLPRT(NAME,'U501.0','Not available on this machine')
+      RETURN
+      END
+#endif