diff options
Diffstat (limited to 'contrib/libf2c/libF77/qbitshft.c')
| -rw-r--r-- | contrib/libf2c/libF77/qbitshft.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/contrib/libf2c/libF77/qbitshft.c b/contrib/libf2c/libF77/qbitshft.c new file mode 100644 index 0000000..ce740ed --- /dev/null +++ b/contrib/libf2c/libF77/qbitshft.c @@ -0,0 +1,7 @@ +#include "f2c.h" + +longint +qbit_shift (longint a, integer b) +{ + return b >= 0 ? a << b : (longint) ((ulongint) a >> -b); +} |
