ING_DB
This commit is contained in:
parent
1457dd008d
commit
d3a90c3c80
|
|
@ -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
|
||||||
Loading…
Reference in New Issue