Initialize and fill VATT array for vertex positions.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 12 Feb 2002 15:30:53 +0000 (15:30 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 12 Feb 2002 15:30:53 +0000 (15:30 +0000)
HIJING/hijing1_36/hidata.F
HIJING/hijing1_36/hijing.F

index ad614bd..0bfd1d2 100644 (file)
@@ -37,6 +37,7 @@ C...give all the switchs and parameters the default values
 C...initialize all the data common blocks
        DATA NATT/0/EATT/0.0/JATT/0/NT/0/NP/0/N0/0/N01/0/N10/0/N11/0/
        DATA KATT/800000*0/PATT/800000*0.0/
+       DATA VATT/800000*0/
 
        DATA NFP/4500*0/PP/4500*0.0/NFT/4500*0/PT/4500*0.0/
 
index b904fdd..7274c64 100644 (file)
@@ -571,6 +571,11 @@ C       ****** identify the mother particle
                   PATT(NATT,2)=P(I,2)
                   PATT(NATT,3)=P(I,3)
                   PATT(NATT,4)=P(I,4)
+                   VATT(NATT,1)=V(I,1)
+                   VATT(NATT,2)=V(I,2)
+                   VATT(NATT,3)=V(I,3)
+                   VATT(NATT,4)=V(I,4)
+                   
                   EATT=EATT+P(I,4)
 360       CONTINUE
 C              ********Fragment the q-qbar jets systems *****
@@ -629,6 +634,11 @@ C       ****** identify the mother particle
                   PATT(NATT,2)=P(I,2)
                   PATT(NATT,3)=P(I,3)
                   PATT(NATT,4)=P(I,4)
+                   VATT(NATT,1)=V(I,1)
+                   VATT(NATT,2)=V(I,2)
+                   VATT(NATT,3)=V(I,3)
+                   VATT(NATT,4)=V(I,4)
+
                   EATT=EATT+P(I,4)
 390            CONTINUE 
 400       CONTINUE
@@ -644,6 +654,11 @@ C          ********Fragment the q-qq related string systems
                PATT(NATT,2)=PDR(I,2)
                PATT(NATT,3)=PDR(I,3)
                PATT(NATT,4)=PDR(I,4)
+                VATT(NATT,1)=V(I,1)
+                VATT(NATT,2)=V(I,2)
+                VATT(NATT,3)=V(I,3)
+                VATT(NATT,4)=V(I,4)
+
                EATT=EATT+PDR(I,4)
 450    CONTINUE
 C                      ********store the direct-produced particles