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