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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:19  mclareni
* Kernlib
*
*
      SUBROUTINE CBYT (M,LM,IX,LX,NB)
C
C CERN PROGLIB# M421    CBYT            .VERSION KERNLNX  1.00  930507
C ORIG. 14/08/70 CL
C
      IX = OR ( AND (IX,
     +    NOT(LSHIFT (ISHFTR(NOT(0),32-NB), LX-1))),
     +    ISHFTR(LSHIFT(ISHFTR(M,LM-1),32-NB),33-LX-NB))
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:50:19 mclareni
	6	* Kernlib
	7	*
	8	*
	9	SUBROUTINE CBYT (M,LM,IX,LX,NB)
	10	C
	11	C CERN PROGLIB# M421 CBYT .VERSION KERNLNX 1.00 930507
	12	C ORIG. 14/08/70 CL
	13	C
	14	IX = OR ( AND (IX,
	15	+ NOT(LSHIFT (ISHFTR(NOT(0),32-NB), LX-1))),
	16	+ ISHFTR(LSHIFT(ISHFTR(M,LM-1),32-NB),33-LX-NB))
	17	RETURN
	18	END