d909f169 |
1 | # define herwig6_addressc herwig6_addressc_ |
2 | # define herwig6_addressf herwig6_addressf_ |
3 | # define herwig6_addressi herwig6_addressi_ |
4 | # define herwig6_addressd herwig6_addressd_ |
5cd3389e |
5 | # define herwig6_addressl herwig6_addressl_ |
ba6ac08e |
6 | # define herwig6_addressdc herwig6_addressdc_ |
d909f169 |
7 | # define type_of_call |
8 | |
ba6ac08e |
9 | struct dbcomplex {double r, i;}; |
d909f169 |
10 | |
11 | char* type_of_call herwig6_addressc(char *arg) |
12 | { |
13 | return arg; |
14 | } |
15 | int* type_of_call herwig6_addressi(int *arg) |
16 | { |
17 | return arg; |
18 | } |
19 | float* type_of_call herwig6_addressf(float *arg) |
20 | { |
21 | return arg; |
22 | } |
23 | double* type_of_call herwig6_addressd(double *arg) |
24 | { |
25 | return arg; |
26 | } |
5cd3389e |
27 | |
28 | int* type_of_call herwig6_addressl(int *arg) |
29 | { |
30 | return arg; |
31 | } |
ba6ac08e |
32 | |
33 | struct dbcomplex* type_of_call herwig6_addressdc(struct dbcomplex *arg) |
34 | { |
35 | return arg; |
36 | } |