1 #include "v3p_f2c.h"
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5 
6  integer
7 #ifdef KR_headers
lbit_shift(a,b)8 lbit_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