Revert "Add emcal propagation for track types for which it was forgotton. Effecs...

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / attrad.F

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