00001 /* 00002 * $Id: ishftr.c,v 1.2 2009/02/16 08:04:39 schubert Exp $ 00003 * 00004 * Revision 1.1.1.1 2002/06/16 15:18:47 hristov 00005 * Separate distribution of Geant3 00006 * 00007 * Revision 1.1.1.1 1999/05/18 15:55:33 fca 00008 * AliRoot sources 00009 * 00010 * Revision 1.1.1.1 1996/02/15 17:50:07 mclareni 00011 * Kernlib 00012 * 00013 */ 00014 #include "kerngen/pilot.h" 00015 /*> ROUTINE ISHFT 00016 CERN PROGLIB# ISHFTR .VERSION KERNLNX 1.02 940511 00017 00018 Logical right shift by *len (+ve) places 00019 */ 00020 unsigned int ishftr_(arg,len) 00021 unsigned int *arg; 00022 int *len; 00023 { 00024 return(*arg >> *len); 00025 } 00026 /*> END <----------------------------------------------------------*/
1.3.9.1