From ba6ac08ea3515b71d5b7067d9ef29a4613c8961a Mon Sep 17 00:00:00 2001 From: morsch Date: Mon, 26 Jun 2006 17:34:44 +0000 Subject: [PATCH] Pointer getter for complex common block variable added. --- HERWIG/herwig6_address.c | 7 +++++++ HERWIG/herwig6_common_block_address.f | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/HERWIG/herwig6_address.c b/HERWIG/herwig6_address.c index d8a2c6f6a4a..702932cf36d 100644 --- 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 897878552fc..4f386df966e 100644 --- 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 -- 2.43.0