MINICERN/packlib/kernlib/kerngen/tcgen/mvbits.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:49  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if !defined(CERNLIB_QMILSTD)
  11       SUBROUTINE MVBITS(I,N,L,J,M)
  12 C
  13 C CERN PROGLIB# M441    MVBITS          .VERSION KERNFOR  4.16  870601
  14 C ORIG. 01/10/85  T.LINDELOF
  15 C
  16 C      FORTRAN VERSION OF MIL-STD-1753 SUBROUTINE MVBITS
  17 C      N IS THE POSITION IN I FROM WHICH BITS ARE EXTRACTED
  18 C      L IS THE NUMBER OF BITS TO BE EXTRACTED
  19 C      M IS THE POSITION IN J INTO WHICH BITS ARE TO BE PLACED
  20 C
  21 #include "kerngen/wordsize.inc"
  22 #include "kerngen/iall1s.inc"
  23
  24 #include "kerngen/q_andor.inc"
  25 * Ignoring t=pass
  26 C
  27       J = IOR(IAND(ISHFT(IALL11, L+M), J),
  28      +       IOR(IAND(NOT(ISHFT(IALL11, M)), J),
  29      +       ISHFT(ISHFT(ISHFT(I, NBITPW-L-N), L-NBITPW), M) ))
  30       END
  31 #endif