1 #include "f2c.h" 2 3 integer 4 #ifdef KR_headers lbit_shift(a,b)5 lbit_shift(a, b) integer a; integer b; 6 #else 7 lbit_shift(integer a, integer b) 8 #endif 9 { 10 return b >= 0 ? a << b : (integer)((uinteger)a >> -b); 11 } 12