pythia6/pythia6-lhapdf/pythia6_common_address.c

0001 #include <string.h>
0002 // declaration of PYTHIA6 common clocks
0003 #ifndef WIN32
0004 # define pyjets pyjets_
0005 # define pydat1 pydat1_
0006 # define pydat2 pydat2_
0007 # define pydat3 pydat3_
0008 # define pydat4 pydat4_
0009 # define pydatr pydatr_
0010 # define pysubs pysubs_
0011 # define pypars pypars_
0012 # define pyint1 pyint1_
0013 # define pyint2 pyint2_
0014 # define pyint3 pyint3_
0015 # define pyint4 pyint4_
0016 # define pyint5 pyint5_
0017 # define pyint6 pyint6_
0018 # define pyint7 pyint7_
0019 # define pyint8 pyint8_
0020 # define pyint9 pyint9_
0021 # define pyuppr pyuppr_
0022 # define pymssm pymssm_
0023 # define pyssmt pyssmt_
0024 # define pyints pyints_
0025 # define pybins pybins_
0026 #else
0027 # define pyjets PYJETS
0028 # define pydat1 PYDAT1
0029 # define pydat2 PYDAT2
0030 # define pydat3 PYDAT3
0031 # define pydat4 PYDAT4
0032 # define pydatr PYDATR
0033 # define pysubs PYSUBS
0034 # define pypars PYPARS
0035 # define pyint1 PYINT1
0036 # define pyint2 PYINT2
0037 # define pyint3 PYINT3
0038 # define pyint4 PYINT4
0039 # define pyint5 PYINT5
0040 # define pyint6 PYINT6
0041 # define pyint7 PYINT7
0042 # define pyint8 PYINT8
0043 # define pyint9 PYINT9
0044 # define pyuppr PYUPPR
0045 # define pymssm PYMSSM
0046 # define pyssmt PYSSMT
0047 # define pyints PYINTS
0048 # define pybins PYBINS
0049 #endif
0050
0051 extern int pyjets[2+5*4000+2*2*5*4000];
0052 extern int pydat1[200+2*200+200+2*200];
0053 extern int pydat2[4*500+2*4*500+2*2000+2*4*4];
0054 extern int pydat3[3*500+2*8000+2*8000+5*8000];  /* KNDCAY=8000 */
0055 extern char pydat4[2*500*16];
0056 extern int pydatr[6+2*100];
0057 extern int pysubs[2+500+81*2+2*200];
0058 extern int pypars[200+2*200+200+2*200];
0059 extern int pyint1[400+2*400];
0060 extern int pyint2[500+2*500+2*20*500+2*4*40];
0061 extern int pyint3[2*81*2+3*1000+2*1000];
0062 extern int pyint4[500+2*5*500];
0063 extern int pyint5[1+3*501+2*3*501];
0064 extern char pyint6[501*28];
0065 extern int pyint7[2*6*7*7];
0066 int pyint8[2*5*13];
0067 int pyint9[2*4*13];
0068 int pyuppr[1+7*20+1+2*10+2*5*20+2*11]; /* PYUPPR DOES NOT EXIST IN PYTHIA6 AT ALL!!! */
0069 extern int pymssm[100+2*100];
0070 extern int pyssmt[2*4*4+2*2*2+2*2*2+2*4+2*2+2*4*16+2*4*4+2*2*2+2*2*2];
0071 int pyints[2*20];
0072 extern int pybins[4+1000+2*20000];
0073
0074 void *pythia6_common_address(const char* name) {
0075    if      (!strcmp(name,"PYJETS")) return pyjets;
0076    else if (!strcmp(name,"PYDAT1")) return pydat1;
0077    else if (!strcmp(name,"PYDAT2")) return pydat2;
0078    else if (!strcmp(name,"PYDAT3")) return pydat3;
0079    else if (!strcmp(name,"PYDAT4")) return pydat4;
0080    else if (!strcmp(name,"PYDATR")) return pydatr;
0081    else if (!strcmp(name,"PYSUBS")) return pysubs;
0082    else if (!strcmp(name,"PYPARS")) return pypars;
0083    else if (!strcmp(name,"PYINT1")) return pyint1;
0084    else if (!strcmp(name,"PYINT2")) return pyint2;
0085    else if (!strcmp(name,"PYINT3")) return pyint3;
0086    else if (!strcmp(name,"PYINT4")) return pyint4;
0087    else if (!strcmp(name,"PYINT5")) return pyint5;
0088    else if (!strcmp(name,"PYINT6")) return pyint6;
0089    else if (!strcmp(name,"PYINT7")) return pyint7;
0090    else if (!strcmp(name,"PYINT8")) return pyint8;
0091    else if (!strcmp(name,"PYINT9")) return pyint9;
0092    else if (!strcmp(name,"PYUPPR")) return pyuppr;
0093    else if (!strcmp(name,"PYMSSM")) return pymssm;
0094    else if (!strcmp(name,"PYSSMT")) return pyssmt;
0095    else if (!strcmp(name,"PYINTS")) return pyints;
0096    else if (!strcmp(name,"PYBINS")) return pybins;
0097    return 0;
0098 }
0099