diff --git a/WEGA/contrib/ingres/dbs/tmp/f77/amxf.6 b/WEGA/contrib/ingres/dbs/tmp/f77/amxf.6
new file mode 100644
index 0000000..2762503
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/tmp/f77/amxf.6
@@ -0,0 +1,77 @@
+.sh ARGUMENTKONVERSIONEN
+In \*(FF werden Parameter grunds::atzlich
+durch Adre::sverweise
+(Call By Reference) ::ubergeben,
+einige Parameter
+(Funktionen, Parameter vom Typ character*n)
+erzeugen einen zus::atzlichen L::angenparameter
+vom Typ integer*4 bsw. long.
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+integer*2 x	short *x;
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+integer x	long *x;
+.br
+oder
+.br
+short *x;
+.br
+(siehe `f77'\*-Flag `\*-i2')
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+integer*4 x	long *x;
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+logical x	long *x;
+.br
+oder
+.br
+short *x;
+.br
+(siehe `f77'\*-Flag `\*-i2')
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+real x	float *x;
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+double precision x	double *x;
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+complex x	struct {float r, i; } *x;
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ...)
+.lp +30 30
+double complex x	struct {double r, i; } *x;
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ..., xlen)
+.lp +30 30
+character*(*) x	char x[];
+.br
+long xlen;
+.s1
+.lp +30 30
+subroutine f(..., x, ...)	f_(..., x, ..., xnull)
+.lp +30 30
+subroutine x	int (*x)();
+.br
+long xnull; /* == 0L */
+.s1
+.i0
+.s1