SetPARJ and SetMSTJ added.

diff --git a/THijing/Hcommon.h b/THijing/Hcommon.h
index a077a6caec94ef9d647604a9ffb9f0e5480bc4fb..2804eaadcbb92303e37fc560c2924e7c400cb32b 100644 (file)
--- a/THijing/Hcommon.h
+++ b/THijing/Hcommon.h
@@ -1,4 +1,3 @@
-
 #ifndef ROOT_HCommon
 #define ROOT_HCommon
 
@@ -353,7 +352,7 @@ COMMON_BLOCK_DEF(Himain1Common,HIMAIN1);
 typedef struct {
    Int_t    katt[4][200000];
    Float_t  patt[4][200000];
-   Float_t  vatt[4][200000];
+   Float_t  vatt[4][200000];    
 } Himain2Common;
 
 #define HIMAIN2 COMMON_BLOCK(HIMAIN2,himain2)
@@ -568,6 +567,18 @@ COMMON_BLOCK_DEF(HistrngCommon,HISTRNG);
 /*        the projectile nucleons.                                      */
 /*                                                                      */
 /*=======================================================================*/
+
+//    COMMON/LUDAT1_HIJING/MSTU(200),PARU(200),MSTJ(200),PARJ(200) 
+//     SAVE /LUDAT1_HIJING/
+    typedef struct {
+       Int_t    mstu[200];
+       Float_t  paru[200];
+       Int_t    mstj[200];
+       Float_t  parj[200];
+} Ludat1_HijingCommon;
+
+#define LUDAT1_HIJING COMMON_BLOCK(LUDAT1_HIJING,ludat1_hijing)
+COMMON_BLOCK_DEF(Ludat1_HijingCommon,LUDAT1_HIJING);
 }
 
 #endif

diff --git a/THijing/THijing.cxx b/THijing/THijing.cxx
index ba922c97b25cdb42436ecb21c417ea7b9336e20b..7a88d8f03881c7fa11c7a19261dc34e9d635603c 100644 (file)
--- a/THijing/THijing.cxx
+++ b/THijing/THijing.cxx
@@ -1087,6 +1087,26 @@ Float_t THijing::GetPT(Int_t key1, Int_t key2) const
    return HISTRNG.pt[key2-1][key1-1];
 }
 
+void THijing::SetPARJ(Int_t key, Float_t parm) 
+{
+    if ( key < 1 || key > 200) {
+       printf("ERROR in THijing::SetPARJ(key,parm):\n");
+       printf("      key=%i is out of range [1..200]\n",key);
+    }
+    
+    LUDAT1_HIJING.parj[key-1] = parm;
+}
+
+
+void THijing::SetMSTJ(Int_t key, Int_t parm) 
+{
+    if ( key < 1 || key > 200) {
+       printf("ERROR in THijing::SetMSTJ(key,parm):\n");
+       printf("      key=%i is out of range [1..200]\n",key);
+    }
+    
+    LUDAT1_HIJING.mstj[key-1] = parm;
+}
 
 
 //====================== access to Hijing subroutines =========================

diff --git a/THijing/THijing.h b/THijing/THijing.h
index af93f1c6fcc79c6eec9b1c4f937e2da9aa672b03..390901a8779f0754f7c6523c1f8065b107c09fea 100644 (file)
--- a/THijing/THijing.h
+++ b/THijing/THijing.h
@@ -187,6 +187,10 @@ public:
    virtual Int_t       GetNFT(Int_t key1, Int_t key2) const;
 
    virtual Float_t     GetPT(Int_t key1, Int_t key2) const;
+
+   // common LUDAT1_HIJING common:
+   virtual void        SetPARJ(Int_t key, Float_t parm);
+   virtual void        SetMSTJ(Int_t key, Int_t   parm);   
    
    // access to HIJING routines: