chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1989-04-25 13:41:59 +00:00
parent 211aad75c1
commit 1457dd008d
1 changed files with 77 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
WEGA/contrib/ingres/dbs/tmp/f77/amxf.6 Normal file
View File

@ -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