*
* $Id: mvbits.F,v 1.1.1.1 1996/02/15 17:52:37 mclareni Exp $
*
* $Log: mvbits.F,v $
* Revision 1.1.1.1  1996/02/15 17:52:37  mclareni
* Kernlib
*
*
#include "kerncry/pilot.h"
      SUBROUTINE MVBITS(I,N,L,J,M)
C
C CERN PROGLIB# M441    MVBITS          .VERSION KERNCRY  1.06  870527
C ORIG. 17/11/86  CNAF, BOLOGNA
C
C      CRAY 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
C
      J = OR(AND(MASK(128-M),J),AND(MASK(64-M-L),J))
      J = OR(J,SHIFTL(AND(SHIFTR(I,N),MASK(128-L)),M))
      END
#ifdef CERNLIB_TCGEN_MVBITS
#undef CERNLIB_TCGEN_MVBITS
#endif