SetPARJ and SetMSTJ added.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 11 Oct 2002 12:50:36 +0000 (12:50 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 11 Oct 2002 12:50:36 +0000 (12:50 +0000)
THijing/Hcommon.h
THijing/THijing.cxx
THijing/THijing.h

index a077a6c..2804eaa 100644 (file)
@@ -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
index ba922c9..7a88d8f 100644 (file)
@@ -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 =========================
index af93f1c..390901a 100644 (file)
@@ -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: