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