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

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / mvbits.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgen/mvbits.F b/MINICERN/packlib/kernlib/kerngen/tcgen/mvbits.F
new file mode 100644 (file)
index 0000000..914c6e7
--- /dev/null
+++ b/MINICERN/packlib/kernlib/kerngen/tcgen/mvbits.F
@@ -0,0 +1,31 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/02/15 17:49:49  mclareni
+* Kernlib
+*
+*
+#include "kerngen/pilot.h"
+#if !defined(CERNLIB_QMILSTD)
+      SUBROUTINE MVBITS(I,N,L,J,M)
+C
+C CERN PROGLIB# M441    MVBITS          .VERSION KERNFOR  4.16  870601
+C ORIG. 01/10/85  T.LINDELOF
+C
+C      FORTRAN VERSION OF MIL-STD-1753 SUBROUTINE MVBITS
+C      N IS THE POSITION IN I FROM WHICH BITS ARE EXTRACTED
+C      L IS THE NUMBER OF BITS TO BE EXTRACTED
+C      M IS THE POSITION IN J INTO WHICH BITS ARE TO BE PLACED
+C
+#include "kerngen/wordsize.inc"
+#include "kerngen/iall1s.inc"
+
+#include "kerngen/q_andor.inc"
+* Ignoring t=pass
+C
+      J = IOR(IAND(ISHFT(IALL11, L+M), J),
+     +       IOR(IAND(NOT(ISHFT(IALL11, M)), J),
+     +       ISHFT(ISHFT(ISHFT(I, NBITPW-L-N), L-NBITPW), M) ))
+      END
+#endif