Bug for triggered jets corrected.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 8 Oct 2001 11:56:16 +0000 (11:56 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 8 Oct 2001 11:56:16 +0000 (11:56 +0000)
HIJING/hijing1_36/jetini.F

index b7e2770..bc31593 100644 (file)
@@ -37,6 +37,7 @@ C
        DATA INI/8*0/I_LAST/-1/
        SAVE
 C
+
         IHNT2(11)=JP
         IHNT2(12)=JT
         IF(IHNT2(5).NE.0 .AND. IHNT2(6).NE.0) THEN
@@ -231,6 +232,7 @@ C
 C
        IHNT2(16)=0
 C
+        I_LAST=I_TRIG
        RETURN
 C              ********Store the initialization information for
 C                              late use