[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / unix / lnxgs / ishft.c

/*
 * $Id$
 *
 * $Log$
 * Revision 1.1.1.1  1996/02/15 17:50:07  mclareni
 * Kernlib
 *
 */
#include "kerngen/pilot.h"
/*>    ROUTINE ISHFT
  CERN PROGLIB#         ISHFT           .VERSION KERNLNX  1.00  930507

  Provides the value of the argument ARG with the bits shifted.
  Bits shifted out to the left or right are lost, and zeros are shifted
  in from the opposite end.      CNL 210
*/
unsigned int ishft_(arg,len)
unsigned int *arg;
int *len;
{
     return((*len > 0)? *arg << *len: *arg >> (-*len));
}
/*> END <----------------------------------------------------------*/
Commit	Line	Data
fe4da5cc	1	/*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:50:07 mclareni
	6	* Kernlib
	7	*
	8	*/
	9	#include "kerngen/pilot.h"
	10	/*> ROUTINE ISHFT
	11	CERN PROGLIB# ISHFT .VERSION KERNLNX 1.00 930507
	12
	13	Provides the value of the argument ARG with the bits shifted.
	14	Bits shifted out to the left or right are lost, and zeros are shifted
	15	in from the opposite end. CNL 210
	16	*/
	17	unsigned int ishft_(arg,len)
	18	unsigned int *arg;
	19	int *len;
	20	{
	21	return((len > 0)? arg << len: arg >> (-*len));
	22	}
	23	/> END <----------------------------------------------------------/