]> git.uio.no Git - u/mrichter/AliRoot.git/commitdiff
git://git.uio.no / u / mrichter / AliRoot.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 3cc3723)
c Version 1.382
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 9 Jun 2010 14:05:27 +0000 (14:05 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 9 Jun 2010 14:05:27 +0000 (14:05 +0000)
c     The variables I_SNG in HIJSFT and JL in ATTRAD were not initialized.
c     The version initialize them. (as found by Fernando Marroquim)

HIJING/hijing1_36/attrad.F patch | blob | blame | history

diff --git a/HIJING/hijing1_36/attrad.F b/HIJING/hijing1_36/attrad.F
index d1120e8e373eeae68a7da3009db272f96d4d3463..97af736d5ee81ff4f3a74af936a9878eebdeaba7 100644 (file)
--- a/HIJING/hijing1_36/attrad.F
+++ b/HIJING/hijing1_36/attrad.F
@@ -19,6 +19,7 @@ C.....S INVARIANT MASS-SQUARED BETWEEN PARTONS I AND I+1......
 C.....SM IS THE LARGEST MASS-SQUARED....
 
 40     SM=0.
+       JL = 1
        DO 30 I=1,N-1
           S=2.*(P(I,4)*P(I+1,4)-P(I,1)*P(I+1,1)-P(I,2)*P(I+1,2)
      &         -P(I,3)*P(I+1,3))+P(I,5)**2+P(I+1,5)**2