Pointer getter for complex common block variable added.

diff --git a/HERWIG/herwig6_address.c b/HERWIG/herwig6_address.c
index d8a2c6f6a4ac947a59aa31db89f8174b4a5c2ebd..702932cf36dd989800e6a8e55df972ac7e705951 100644 (file)
--- a/HERWIG/herwig6_address.c
+++ b/HERWIG/herwig6_address.c
@@ -3,8 +3,10 @@
 #  define herwig6_addressi herwig6_addressi_
 #  define herwig6_addressd herwig6_addressd_
 #  define herwig6_addressl herwig6_addressl_
+#  define herwig6_addressdc herwig6_addressdc_
 #  define type_of_call
 
+struct dbcomplex {double r, i;};
 
 char* type_of_call herwig6_addressc(char *arg)
 {
@@ -27,3 +29,8 @@ int* type_of_call herwig6_addressl(int *arg)
 {
   return arg;
 }
+
+struct dbcomplex* type_of_call herwig6_addressdc(struct dbcomplex *arg)
+{
+  return arg;
+}

diff --git a/HERWIG/herwig6_common_block_address.f b/HERWIG/herwig6_common_block_address.f
index 897878552fce099af4d2347c411229330cf400f0..4f386df966e0948d92415f95076579a7fde0c400 100644 (file)
--- a/HERWIG/herwig6_common_block_address.f
+++ b/HERWIG/herwig6_common_block_address.f
@@ -7,10 +7,10 @@ c-----------------------------------------------------------------------
 c-----------------------------------------------------------------------
       integer       herwig6_addressc, herwig6_addressi
       integer       herwig6_addressd, herwig6_addressf
-      integer       herwig6_addressl
+      integer       herwig6_addressl, herwig6_addressdc
       external      herwig6_addressc, herwig6_addressi
       external      herwig6_addressd, herwig6_addressf
-      external      herwig6_addressl
+      external      herwig6_addressl, herwig6_addressdc
       integer       common_block_address
 c-----------------------------------------------------------------------
       common_block_address = 0
@@ -88,7 +88,7 @@ c-----------------------------------------------------------------------
       elseif (common_block_name.eq."HWDSPN") then
         common_block_address = herwig6_addressi(NDECSY)
       elseif (common_block_name.eq."HWSPIN") then
-        common_block_address = herwig6_addressd(MESPN)
+        common_block_address = herwig6_addressdc(MESPN)
       elseif (common_block_name.eq."HWSTAU") then
         common_block_address = herwig6_addressi(JAK1)
       elseif (common_block_name.eq."HWGUPR") then