/* Check -ff2c calling conventions
|
/* Check -ff2c calling conventions
|
Return value of COMPLEX function is via an extra argument in the
|
Return value of COMPLEX function is via an extra argument in the
|
calling sequence that points to where to store the return value
|
calling sequence that points to where to store the return value
|
Additional underscore appended to function name
|
Additional underscore appended to function name
|
|
|
Simplified from f2c output and tested with g77 */
|
Simplified from f2c output and tested with g77 */
|
|
|
typedef float real;
|
typedef float real;
|
typedef double doublereal;
|
typedef double doublereal;
|
typedef struct { real r, i; } complex;
|
typedef struct { real r, i; } complex;
|
typedef struct { doublereal r, i; } doublecomplex;
|
typedef struct { doublereal r, i; } doublecomplex;
|
|
|
extern double f2c_4b__(double *);
|
extern double f2c_4b__(double *);
|
extern void f2c_4d__( complex *, complex *);
|
extern void f2c_4d__( complex *, complex *);
|
extern void f2c_4f__( complex *, int *,complex *);
|
extern void f2c_4f__( complex *, int *,complex *);
|
extern void f2c_4h__( doublecomplex *, doublecomplex *);
|
extern void f2c_4h__( doublecomplex *, doublecomplex *);
|
extern void f2c_4j__( doublecomplex *, int *, doublecomplex *);
|
extern void f2c_4j__( doublecomplex *, int *, doublecomplex *);
|
extern void abort (void);
|
extern void abort (void);
|
|
|
void f2c_4a__(void) {
|
void f2c_4a__(void) {
|
double a,b;
|
double a,b;
|
a = 1023.0;
|
a = 1023.0;
|
b=f2c_4b__(&a);
|
b=f2c_4b__(&a);
|
if ( a != b ) abort();
|
if ( a != b ) abort();
|
}
|
}
|
|
|
void f2c_4c__(void) {
|
void f2c_4c__(void) {
|
complex x,ret_val;
|
complex x,ret_val;
|
x.r = 1234;
|
x.r = 1234;
|
x.i = 5678;
|
x.i = 5678;
|
f2c_4d__(&ret_val,&x);
|
f2c_4d__(&ret_val,&x);
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
}
|
}
|
|
|
void f2c_4e__(void) {
|
void f2c_4e__(void) {
|
complex x,ret_val;
|
complex x,ret_val;
|
int i=0;
|
int i=0;
|
x.r = 1234;
|
x.r = 1234;
|
x.i = 5678;
|
x.i = 5678;
|
f2c_4f__(&ret_val,&i,&x);
|
f2c_4f__(&ret_val,&i,&x);
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
}
|
}
|
|
|
void f2c_4g__(void) {
|
void f2c_4g__(void) {
|
doublecomplex x,ret_val;
|
doublecomplex x,ret_val;
|
x.r = 1234;
|
x.r = 1234;
|
x.i = 5678.0f;
|
x.i = 5678.0f;
|
f2c_4h__(&ret_val,&x);
|
f2c_4h__(&ret_val,&x);
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
}
|
}
|
|
|
void f2c_4i__(void) {
|
void f2c_4i__(void) {
|
doublecomplex x,ret_val;
|
doublecomplex x,ret_val;
|
int i=0;
|
int i=0;
|
x.r = 1234.0f;
|
x.r = 1234.0f;
|
x.i = 5678.0f;
|
x.i = 5678.0f;
|
f2c_4j__(&ret_val,&i,&x);
|
f2c_4j__(&ret_val,&i,&x);
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
|
}
|
}
|
|
|
void f2c_4k__(complex *ret_val, complex *x) {
|
void f2c_4k__(complex *ret_val, complex *x) {
|
ret_val->r = x->r;
|
ret_val->r = x->r;
|
ret_val->i = x->i;
|
ret_val->i = x->i;
|
}
|
}
|
|
|
void f2c_4l__(complex *ret_val, int *i, complex *x) {
|
void f2c_4l__(complex *ret_val, int *i, complex *x) {
|
ret_val->r = x->r;
|
ret_val->r = x->r;
|
ret_val->i = x->i;
|
ret_val->i = x->i;
|
}
|
}
|
|
|
void f2c_4m__(doublecomplex *ret_val, doublecomplex *x) {
|
void f2c_4m__(doublecomplex *ret_val, doublecomplex *x) {
|
ret_val->r = x->r;
|
ret_val->r = x->r;
|
ret_val->i = x->i;
|
ret_val->i = x->i;
|
}
|
}
|
|
|
void f2c_4n__(doublecomplex *ret_val, int *i, doublecomplex *x) {
|
void f2c_4n__(doublecomplex *ret_val, int *i, doublecomplex *x) {
|
ret_val->r = x->r;
|
ret_val->r = x->r;
|
ret_val->i = x->i;
|
ret_val->i = x->i;
|
}
|
}
|
|
|
