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

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgens / jrsbyt.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgens/jrsbyt.F b/MINICERN/packlib/kernlib/kerngen/tcgens/jrsbyt.F
new file mode 100644 (file)
index 0000000..9824904
--- /dev/null
+++ b/MINICERN/packlib/kernlib/kerngen/tcgens/jrsbyt.F
@@ -0,0 +1,26 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/02/15 17:50:12  mclareni
+* Kernlib
+*
+*
+#include "kerngen/pilot.h"
+#if defined(CERNLIB_QMSUN)
+#include "sungs/jrsbyt.F"
+#else
+      FUNCTION JRSBYT (VAL,X,JTH,NBITS)
+C
+C CERN PROGLIB# M421    JRSBYT          .VERSION KERNFOR  4.07  830624
+C ORIG. 03/05/72 JZ
+C
+      INTEGER   VAL, X
+C
+#include "kerngen/q_jbit.inc"
+C
+      JRSBYT= JBYT (X,JTH,NBITS)
+      CALL SBYT (VAL,X,JTH,NBITS)
+      RETURN
+      END
+#endif