Doxygen Source Code Documentation
lbitshft.c
Go to the documentation of this file.00001 #include "f2c.h" 00002 00003 integer 00004 #ifdef KR_headers 00005 lbit_shift(a, b) integer a; integer b; 00006 #else 00007 lbit_shift(integer a, integer b) 00008 #endif 00009 { 00010 return b >= 0 ? a << b : (integer)((uinteger)a >> -b); 00011 }