78 lines
1.3 KiB
Groff
78 lines
1.3 KiB
Groff
.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
|