aboutsummaryrefslogtreecommitdiff
path: root/plotlib/util-ops.f
diff options
context:
space:
mode:
Diffstat (limited to 'plotlib/util-ops.f')
-rw-r--r--plotlib/util-ops.f17
1 files changed, 17 insertions, 0 deletions
diff --git a/plotlib/util-ops.f b/plotlib/util-ops.f
new file mode 100644
index 0000000..c16a49f
--- /dev/null
+++ b/plotlib/util-ops.f
@@ -0,0 +1,17 @@
+C--- Replacement functions for Fortran's that lack RSHIFT,LSHIFT,AND
+C Version 4.46 11/28/01
+
+ INTEGER FUNCTION RSHIFT(I1,N)
+ RSHIFT = ISHFT(I1,-N)
+ RETURN
+ END
+
+ INTEGER FUNCTION LSHIFT(I1,N)
+ LSHIFT = ISHFT(I1,N)
+ RETURN
+ END
+
+ INTEGER FUNCTION AND(I1,I2)
+ AND = IAND(I1,I2)
+ RETURN
+ END