MINICERN/packlib/kernlib/kerngen/unix/lnxgs/ishft.c

   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 <----------------------------------------------------------*/