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

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

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgens/mcbyt.F b/MINICERN/packlib/kernlib/kerngen/tcgens/mcbyt.F
new file mode 100644 (file)
index 0000000..3601644
--- /dev/null
+++ b/MINICERN/packlib/kernlib/kerngen/tcgens/mcbyt.F
@@ -0,0 +1,40 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/02/15 17:50:13  mclareni
+* Kernlib
+*
+*
+#include "kerngen/pilot.h"
+#if defined(CERNLIB_QMSUN)
+#include "sungs/mcbyt.F"
+#else
+      FUNCTION MCBYT (MZ,IZQ,IZW,IZP,NZB)
+C
+C CERN PROGLIB# M421    MCBYT           .VERSION KERNFOR  4.23  891215
+C ORIG. 13/03/89  JZ
+C
+C     This non-ANSI code is a default which may be slow, if so
+C     it should be replaced by a machine-specific fast routine
+#include "kerngen/wordsize.inc"
+#include "kerngen/iall1s.inc"
+#if !defined(CERNLIB_QISASTD)
+#include "kerngen/q_andor.inc"
+#include "kerngen/q_shift.inc"
+* Ignoring t=pass
+#endif
+
+#if !defined(CERNLIB_QISASTD)
+      MCBYT = IOR (
+     +  IAND(IZW, NOT(ISHFTL(ISHFTR(IALL11, NBITPW-NZB), IZP-1)))
+     +, ISHFTR(ISHFTL(ISHFTR(MZ, IZQ-1),NBITPW-NZB), NBITPW+1-IZP-NZB))
+#endif
+#if defined(CERNLIB_QISASTD)
+      MCBYT = IOR (
+     +  IAND(IZW, NOT(ISHFT (ISHFT (IALL11,-NBITPW+NZB), IZP-1)))
+     +, ISHFT (ISHFT (ISHFT (MZ,-IZQ+1),NBITPW-NZB),-NBITPW-1+IZP+NZB))
+#endif
+      RETURN
+      END
+#endif