PYTHIA6/pythia6_address.c

   1 #if defined(CERNLIB_WINNT)
   2 #  define pythia6_addressc PYTHIA^_ADDRESSC
   3 #  define pythia6_addressf PYTHIA^_ADDRESSF
   4 #  define pythia6_addressi PYTHIA^_ADDRESSI
   5 #  define pythia6_addressd PYTHIA^_ADDRESSD
   6 #  define type_of_call _stdcall
   7 #else
   8 #  define pythia6_addressc pythia6_addressc_
   9 #  define pythia6_addressf pythia6_addressf_
  10 #  define pythia6_addressi pythia6_addressi_
  11 #  define pythia6_addressd pythia6_addressd_
  12 #  define type_of_call
  13 #endif
  14
  15 char* type_of_call pythia6_addressc(char *arg)
  16 {
  17   return arg;
  18 }
  19 int*  type_of_call pythia6_addressi(int  *arg)
  20 {
  21   return arg;
  22 }
  23 float* type_of_call pythia6_addressf(float *arg)
  24 {
  25   return arg;
  26 }
  27 double* type_of_call pythia6_addressd(double *arg)
  28 {
  29   return arg;
  30 }