aboutsummaryrefslogtreecommitdiff
path: root/plotlib/util-ops.f
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2009-05-11 00:27:49 +0000
committerDimitri Sokolyuk <demon@dim13.org>2009-05-11 00:27:49 +0000
commit0d4f43d355de79178b1142e9735902cf641670b6 (patch)
tree2ced2323f6351db2a51090b3fd13eb11f69ff53f /plotlib/util-ops.f
Xfoil 6.97
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