libf2c/libF77/qbitshft.c

   1 #include "f2c.h"
   2
   3  longint
   4 #ifdef KR_headers
   5 qbit_shift(a, b) longint a; integer b;
   6 #else
   7 qbit_shift(longint a, integer b)
   8 #endif
   9 {
  10         return b >= 0 ? a << b : (longint)((ulongint)a >> -b);
  11         }