HERWIG fortran code to be used with THerwig and AliGenHerwig

[u/mrichter/AliRoot.git] / HERWIG / herwig6_address.c

diff --git a/HERWIG/herwig6_address.c b/HERWIG/herwig6_address.c
new file mode 100644 (file)
index 0000000..beb5bcd
--- /dev/null
+++ b/HERWIG/herwig6_address.c
@@ -0,0 +1,23 @@
+#  define herwig6_addressc herwig6_addressc_
+#  define herwig6_addressf herwig6_addressf_
+#  define herwig6_addressi herwig6_addressi_
+#  define herwig6_addressd herwig6_addressd_
+#  define type_of_call
+
+
+char* type_of_call herwig6_addressc(char *arg)
+{
+  return arg;
+}
+int*  type_of_call herwig6_addressi(int  *arg)
+{
+  return arg;
+}
+float* type_of_call herwig6_addressf(float *arg)
+{
+  return arg;
+}
+double* type_of_call herwig6_addressd(double *arg)
+{
+  return arg;
+}