Scilab [trunk]: scilab/libs/f2c/libf2c/qbitshft.c Source File

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