Updates needed for HERWIG 6.507 (R. Guernane, AM)
[u/mrichter/AliRoot.git] / HERWIG / herwig6_common_block_address.f
index f9ed258..8978785 100644 (file)
@@ -1,14 +1,16 @@
       integer function herwig6_common_block_address(common_block_name)
 c-----------------------------------------------------------------------
-      include "HERWIG61.INC"
+      include "HERWIG65.INC"
 
       character*(*) common_block_name
       external      HWUDAT
 c-----------------------------------------------------------------------
       integer       herwig6_addressc, herwig6_addressi
       integer       herwig6_addressd, herwig6_addressf
+      integer       herwig6_addressl
       external      herwig6_addressc, herwig6_addressi
       external      herwig6_addressd, herwig6_addressf
+      external      herwig6_addressl
       integer       common_block_address
 c-----------------------------------------------------------------------
       common_block_address = 0
@@ -63,6 +65,40 @@ c-----------------------------------------------------------------------
         common_block_address = herwig6_addressd(PMBN1)
       elseif (common_block_name.eq."HWCLUS") then
         common_block_address = herwig6_addressd(PPCL)
+      elseif (common_block_name.eq."HWGRAV") then
+        common_block_address = herwig6_addressd(GRVLAM)
+      elseif (common_block_name.eq."HW6202") then
+        common_block_address = herwig6_addressd(VIPWID)
+      elseif (common_block_name.eq."HW6203") then
+        common_block_address = herwig6_addressd(ABWGT)
+      elseif (common_block_name.eq."HW6300") then
+        common_block_address = herwig6_addressd(MJJMIN)
+      elseif (common_block_name.eq."HWPMRS") then
+        common_block_address = herwig6_addressd(FMRS)
+      elseif (common_block_name.eq."HWCIRC") then
+        common_block_address = herwig6_addressi(CIRCOP)
+      elseif (common_block_name.eq."HWDSPB") then
+        common_block_address = herwig6_addressd(ABMODE)
+      elseif (common_block_name.eq."HWDSP2") then
+        common_block_address = herwig6_addressd(A2MODE)
+      elseif (common_block_name.eq."HWDSP3") then
+        common_block_address = herwig6_addressd(A3MODE)
+      elseif (common_block_name.eq."HWDSP4") then
+        common_block_address = herwig6_addressd(A4MODE)
+      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)
+      elseif (common_block_name.eq."HWSTAU") then
+        common_block_address = herwig6_addressi(JAK1)
+      elseif (common_block_name.eq."HWGUPR") then
+        common_block_address = herwig6_addressd(LHWGT)
+      elseif (common_block_name.eq."HW6500") then
+        common_block_address = herwig6_addressl(PRESPL)
+      elseif (common_block_name.eq."HW6504") then
+        common_block_address = herwig6_addressi(ITOPRD)
+      elseif (common_block_name.eq."HW6506") then
+        common_block_address = herwig6_addressd(PDFX0)
       endif
 c-----------------------------------------------------------------------
       herwig6_common_block_address = common_block_address