Using herwig65.inc instead of HERWIG65.INC

[u/mrichter/AliRoot.git] / HERWIG / herwig6_common_block_address.f

diff --git a/HERWIG/herwig6_common_block_address.f b/HERWIG/herwig6_common_block_address.f
index 897878552fce099af4d2347c411229330cf400f0..c557df61cd3af44bfd8070fe6fd965b490d6ac4f 100644 (file)
--- a/HERWIG/herwig6_common_block_address.f
+++ b/HERWIG/herwig6_common_block_address.f
@@ -1,16 +1,16 @@
       integer function herwig6_common_block_address(common_block_name)
 c-----------------------------------------------------------------------
-      include "HERWIG65.INC"
+      include "herwig65.inc"
 
       character*(*) common_block_name
       external      HWUDAT
 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