remove the setting of the maximum number of super modules from the class, recover...

[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6_common_address.c

#include "string.h"

#ifndef WIN32
# define pyjets pyjets_
# define pydat1 pydat1_
# define pydat2 pydat2_
# define pydat3 pydat3_
# define pydat4 pydat4_
# define pydatr pydatr_
# define pysubs pysubs_
# define pypars pypars_
# define pyint1 pyint1_
# define pyint2 pyint2_
# define pyint3 pyint3_
# define pyint4 pyint4_
# define pyint5 pyint5_
# define pyint6 pyint6_
# define pyint7 pyint7_
# define pyint8 pyint8_
# define pyint9 pyint9_
# define pymssm pymssm_
# define pyssmt pyssmt_
# define pyints pyints_
# define pybins pybins_
#else
# define pyjets PYJETS
# define pydat1 PYDAT1
# define pydat2 PYDAT2
# define pydat3 PYDAT3
# define pydat4 PYDAT4
# define pydatr PYDATR
# define pysubs PYSUBS
# define pypars PYPARS
# define pyint1 PYINT1
# define pyint2 PYINT2
# define pyint3 PYINT3
# define pyint4 PYINT4
# define pyint5 PYINT5
# define pyint6 PYINT6
# define pyint7 PYINT7
# define pyint8 PYINT8
# define pyint9 PYINT9
# define pymssm PYMSSM
# define pyssmt PYSSMT
# define pyints PYINTS
# define pybins PYBINS
#endif

extern int pyjets[2+5*4000+2*2*5*4000];
extern int pydat1[200+2*200+200+2*200];
extern int pydat2[4*500+2*4*500+2*2000+2*4*4];
extern int pydat3[3*500+2*8000+2*8000+5*8000];  /* KNDCAY=8000 */
extern char pydat4[2*500*16];
extern int pydatr[6+2*100];
extern int pysubs[2+500+81*2+2*200];
extern int pypars[200+2*200+200+2*200];
extern int pyint1[400+2*400];
extern int pyint2[500+2*500+2*20*500+2*4*40];
extern int pyint3[2*81*2+3*1000+2*1000];
extern int pyint4[500+2*5*500];
extern int pyint5[1+3*501+2*3*501];
extern char pyint6[501*28];
extern int pyint7[2*6*7*7];
extern int pyint8[2*5*13];
extern int pyint9[2*4*13];
extern int pymssm[100+2*100];
extern int pyssmt[2*4*4+2*2*2+2*2*2+2*4+2*2+2*4*16];
extern int pyints[2*20];
extern int pybins[4+1000+2*20000];


void *pythia6_common_address(const char* name) {
   if      (!strcmp(name,"PYJETS")) return pyjets;
   else if (!strcmp(name,"PYDAT1")) return pydat1;
   else if (!strcmp(name,"PYDAT2")) return pydat2;
   else if (!strcmp(name,"PYDAT3")) return pydat3;
   else if (!strcmp(name,"PYDAT4")) return pydat4;
   else if (!strcmp(name,"PYDATR")) return pydatr;
   else if (!strcmp(name,"PYSUBS")) return pysubs;
   else if (!strcmp(name,"PYPARS")) return pypars;
   else if (!strcmp(name,"PYINT1")) return pyint1;
   else if (!strcmp(name,"PYINT2")) return pyint2;
   else if (!strcmp(name,"PYINT3")) return pyint3;
   else if (!strcmp(name,"PYINT4")) return pyint4;
   else if (!strcmp(name,"PYINT5")) return pyint5;
   else if (!strcmp(name,"PYINT6")) return pyint6;
   else if (!strcmp(name,"PYINT7")) return pyint7;
   else if (!strcmp(name,"PYINT8")) return pyint8;
   else if (!strcmp(name,"PYINT9")) return pyint9;
   else if (!strcmp(name,"PYMSSM")) return pymssm;
   else if (!strcmp(name,"PYSSMT")) return pyssmt;
   else if (!strcmp(name,"PYINTS")) return pyints;
   else if (!strcmp(name,"PYBINS")) return pybins;
   return 0;
}

#if defined(CERNLIB_WINNT)
#  define pythia6_addressc PYTHIA^_ADDRESSC
#  define pythia6_addressf PYTHIA^_ADDRESSF
#  define pythia6_addressi PYTHIA^_ADDRESSI
#  define pythia6_addressd PYTHIA^_ADDRESSD
#  define type_of_call _stdcall
#else
#  define pythia6_addressc pythia6_addressc_
#  define pythia6_addressf pythia6_addressf_
#  define pythia6_addressi pythia6_addressi_
#  define pythia6_addressd pythia6_addressd_
#  define type_of_call
#endif

char* type_of_call pythia6_addressc(char *arg)
{
  return arg;
}
int*  type_of_call pythia6_addressi(int  *arg)
{
  return arg;
}
float* type_of_call pythia6_addressf(float *arg)
{
  return arg;
}
double* type_of_call pythia6_addressd(double *arg)
{
  return arg;
}