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

index d1120e8..97af736 100644 (file)
@@ -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