HERWIG/herwig6_address.c

   1 #  define herwig6_addressc herwig6_addressc_
   2 #  define herwig6_addressf herwig6_addressf_
   3 #  define herwig6_addressi herwig6_addressi_
   4 #  define herwig6_addressd herwig6_addressd_
   5 #  define herwig6_addressl herwig6_addressl_
   6 #  define herwig6_addressdc herwig6_addressdc_
   7 #  define type_of_call
   8
   9 struct dbcomplex {double r, i;};
  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 }
  27
  28 int* type_of_call herwig6_addressl(int *arg)
  29 {
  30   return arg;
  31 }
  32
  33 struct dbcomplex* type_of_call herwig6_addressdc(struct dbcomplex *arg)
  34 {
  35   return arg;
  36 }