Doxygen Source Code Documentation
qbitshft.c
Go to the documentation of this file.00001 #include "f2c.h" 00002 00003 longint 00004 #ifdef KR_headers 00005 qbit_shift(a, b) longint a; integer b; 00006 #else 00007 qbit_shift(longint a, integer b) 00008 #endif 00009 { 00010 return b >= 0 ? a << b : (longint)((ulongint)a >> -b); 00011 }