00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 integer 00007 #ifdef KR_headers 00008 lbit_shift(a, b) integer a; integer b; 00009 #else 00010 lbit_shift(integer a, integer b) 00011 #endif 00012 { 00013 return b >= 0 ? a << b : (integer)((uinteger)a >> -b); 00014 } 00015 #ifdef __cplusplus 00016 } 00017 #endif