Removing obsolete tasks (see the tasks in PWG2/SPECTRA/LambdaK0PbPb/ instead)

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

diff --git a/PYTHIA6/pythia6_common_address.c b/PYTHIA6/pythia6_common_address.c
index e53e7e867330df01454344850021226cfa8a488f..b546f901b5bf86c9adb31cceb3361782fe4378ae 100644 (file)
--- a/PYTHIA6/pythia6_common_address.c
+++ b/PYTHIA6/pythia6_common_address.c
@@ -18,7 +18,6 @@
 # define pyint7 pyint7_
 # define pyint8 pyint8_
 # define pyint9 pyint9_
-# define pyuppr pyuppr_
 # define pymssm pymssm_
 # define pyssmt pyssmt_
 # define pyints pyints_
@@ -41,35 +40,34 @@
 # define pyint7 PYINT7
 # define pyint8 PYINT8
 # define pyint9 PYINT9
-# define pyuppr PYUPPR
 # define pymssm PYMSSM
 # define pyssmt PYSSMT
 # define pyints PYINTS
 # define pybins PYBINS
 #endif
 
-int pyjets[2+5*4000+2*2*5*4000];
-int pydat1[200+2*200+200+2*200];
-int pydat2[4*500+2*4*500+2*2000+2*4*4];
-int pydat3[3*500+2*8000+2*8000+5*8000];  /* KNDCAY=8000 */
-char pydat4[2*500*16];
-int pydatr[6+2*100];
-int pysubs[2+500+81*2+2*200];
-int pypars[200+2*200+200+2*200];
-int pyint1[400+2*400];
-int pyint2[500+2*500+2*20*500+2*4*40];
-int pyint3[2*81*2+3*1000+2*1000];
-int pyint4[500+2*5*500];
-int pyint5[1+3*501+2*3*501];
-char pyint6[501*28];
-int pyint7[2*6*7*7];
-int pyint8[2*5*13];
-int pyint9[2*4*13];
-int pyuppr[1+7*20+1+2*10+2*5*20+2*11];
-int pymssm[100+2*100];
-int pyssmt[2*4*4+2*2*2+2*2*2+2*4+2*2+2*4*16];
-int pyints[2*20];
-int pybins[4+1000+2*20000];
+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;
@@ -89,11 +87,44 @@ void *pythia6_common_address(const char* name) {
    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,"PYUPPR")) return pyuppr;
    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;
+}
+
+
+
+