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