1 #include "v3p_f2c.h" 2 #ifdef __cplusplus 3 extern "C" { 4 #endif 5 6 integer 7 #ifdef KR_headers lbit_shift(a,b)8lbit_shift(a, b) integer a; integer b; 9 #else 10 lbit_shift(integer a, integer b) 11 #endif 12 { 13 return b >= 0 ? a << b : (integer)((uinteger)a >> -b); 14 } 15 #ifdef __cplusplus 16 } 17 #endif 18