1/*  Passing from fortran to C by value, using %VAL.  */
2
3#include <inttypes.h>
4
5/* We used to #include <complex.h>, but this fails for some platforms
6   (like cygwin) who don't have it yet.  */
7#define complex __complex__
8#define _Complex_I (1.0iF)
9
10extern void f_to_f__ (float*, float, float*, float**);
11extern void f_to_f8__ (double*, double, double*, double**);
12extern void i_to_i__ (int*, int, int*, int**);
13extern void i_to_i8__ (int64_t*, int64_t, int64_t*, int64_t**);
14extern void c_to_c__ (complex float*, complex float, complex float*, complex float**);
15extern void c_to_c8__ (complex double*, complex double, complex double*, complex double**);
16extern void abort (void);
17
18void
19f_to_f__(float *retval, float a1, float *a2, float **a3)
20{
21  if ( a1 != *a2 ) abort();
22  if ( a1 != **a3 ) abort();
23  a1 = 0.0;
24  *retval = *a2 * 2.0;
25  return;
26}
27
28void
29f_to_f8__(double *retval, double a1, double *a2, double **a3)
30{
31  if ( a1 != *a2 ) abort();
32  if ( a1 != **a3 ) abort();
33  a1 = 0.0;
34  *retval = *a2 * 2.0;
35  return;
36}
37
38void
39i_to_i__(int *retval, int i1, int *i2, int **i3)
40{
41  if ( i1 != *i2 ) abort();
42  if ( i1 != **i3 ) abort();
43  i1 = 0;
44  *retval = *i2 * 3;
45  return;
46}
47
48void
49i_to_i8__(int64_t *retval, int64_t i1, int64_t *i2, int64_t **i3)
50{
51  if ( i1 != *i2 ) abort();
52  if ( i1 != **i3 ) abort();
53  i1 = 0;
54  *retval = *i2 * 3;
55  return;
56}
57
58void
59c_to_c__(complex float *retval, complex float c1, complex float *c2, complex float **c3)
60{
61  if ( c1 != *c2    ) abort();
62  if ( c1 != *(*c3) ) abort();
63  c1 = 0.0 + 0.0 * _Complex_I;
64  *retval = (*c2) * 4.0;
65  return;
66}
67
68void
69c_to_c8__(complex double *retval, complex double c1, complex double *c2, complex double **c3)
70{
71  if ( c1 != *c2    ) abort();
72  if ( c1 != *(*c3) ) abort();
73  c1 = 0.0 +  0.0 * _Complex_I;;
74  *retval = (*c2) * 4.0;
75  return;
76}
77