From d3a90c3c80317e0a6df554efac967cb3a35ec9c0 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Tue, 25 Apr 1989 13:56:03 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/tmp/f77/amxf.7 | 55 ++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/tmp/f77/amxf.7

diff --git a/WEGA/contrib/ingres/dbs/tmp/f77/amxf.7 b/WEGA/contrib/ingres/dbs/tmp/f77/amxf.7
new file mode 100644
index 0000000..36dcf8e
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/tmp/f77/amxf.7
@@ -0,0 +1,55 @@
+.sh FUNKTIONSKONVERSIONEN
+F::ur die ::Ubergabe von Funktionswerten
+an aufrufende Routinen
+gelten folgende Zuordnungen:
+.s1
+.lp +35 35
+integer*2 function f(...)	short f_(...)
+.s1
+.lp +35 35
+integer function f(...)	long f_(...)
+.br
+oder
+.br
+short f_(...)
+.br
+(siehe `f77'\*-Flag `\*-i2')
+.s1
+.lp +35 35
+integer*4 function f(...)	long f_(...)
+.s1
+.lp +35 35
+logical function f(...)	long f_(...)
+.br
+oder
+.br
+short f_(...)
+.br
+(siehe `f77'\*-Flag `\*-i2')
+.s1
+.lp +35 35
+real function f(...)	nicht darstellbar,
+weil float in Ausdr::ucken immer in double
+umgewandelt wird
+.s1
+.lp +35 35
+double precision function f(...)	double f_(...)
+.s1
+.lp +35 35
+complex function f(...)	f_(r, ...)
+.br
+struct {float r, i;} *r;
+.s1
+.lp +35 35
+double complex function f(...)	f_(r, ...)
+.br
+struct {double r, i;} *r;
+.s1
+.lp +35 35
+character*n function f(...)	f_(r, l...)
+.br
+char r[];
+.br
+long l;
+.i0
+.s1