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

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

diff --git a/MINICERN/mathlib/gen/u/rtclgn.F b/MINICERN/mathlib/gen/u/rtclgn.F
new file mode 100644 (file)
index 0000000..ab575e7
--- /dev/null
+++ b/MINICERN/mathlib/gen/u/rtclgn.F
@@ -0,0 +1,18 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/04/01 15:01:48  mclareni
+* Mathlib gen
+*
+*
+#include "gen/pilot.h"
+#if defined(CERNLIB_DOUBLE)
+      SUBROUTINE RTCLGN(J1,J2,J3,M1,M2,M3,DNUM,DDEN,KPEX)
+      CHARACTER*6 NAME
+      NAME  ='RTCLGN'
+      CALL MTLPRT(NAME,'U112',
+     +'not available on this machine - see documentation')
+      RETURN
+      END
+#endif