# 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)
{
{
return arg;
}
+
+struct dbcomplex* type_of_call herwig6_addressdc(struct dbcomplex *arg)
+{
+ return arg;
+}
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
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