Update from Jiri: enables the task to create a very simple offline L1 jet trigger...

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

diff --git a/HIJING/hijing1_36/hijsft.F b/HIJING/hijing1_36/hijsft.F
index a9c0e5d51b98e8a3b049412179191e7e1c63ab7d..e90b1c4ead091739021271a78b21d2886f33140b 100644 (file)
--- a/HIJING/hijing1_36/hijsft.F
+++ b/HIJING/hijing1_36/hijsft.F
@@ -8,6 +8,7 @@ C                                                                  *
 C  Scatter two excited strings, JP from proj and JT from target    *
 C*******************************************************************
        SUBROUTINE HIJSFT(JP,JT,JOUT,IERROR)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "hijdat.inc"
@@ -113,8 +114,8 @@ C
              IF(ABS(COS(PHI)).LT.1.0E-5) THEN
 C AM            DD1=R1
 C AM            DD2=R1
-                 DD1 = ABS(SQRT(R1**2-XT0**2) - YT0)
-                 DD2 = ABS(SQRT(R1**2-XT0**2) + YT0)
+                 DD1 = ABS(SQRT(R1**2-(XT0-BX)**2) - YT0)
+                 DD2 = ABS(SQRT(R1**2-(XT0-BX)**2) + YT0)
 C PH            DD3=ABS(BY+SQRT(R2**2-(XP0-BX)**2)-YP0)
 C PH            DD4=ABS(BY-SQRT(R2**2-(XP0-BX)**2)-YP0)
                 DD3=ABS(BY+SQRT(R2**2-(XT0-BX)**2)-YP0)