]> 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: 314558d)
Typo in the calculation of procetile-target distance is corrected
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 3 Dec 2001 10:49:09 +0000 (10:49 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 3 Dec 2001 10:49:09 +0000 (10:49 +0000)
HIJING/hijing1_36/hijsft.F patch | blob | blame | history

diff --git a/HIJING/hijing1_36/hijsft.F b/HIJING/hijing1_36/hijsft.F
index 4c9887388420da0156161843c492a1ea465a212e..779e93bb55e7890833d60a13ea6344b26c9c700f 100644 (file)
--- a/HIJING/hijing1_36/hijsft.F
+++ b/HIJING/hijing1_36/hijsft.F
@@ -106,8 +106,10 @@ C
              IF(ABS(COS(PHI)).LT.1.0E-5) THEN
                 DD1=R1
                 DD2=R1
-                DD3=ABS(BY+SQRT(R2**2-(XP0-BX)**2)-YP0)
-                DD4=ABS(BY-SQRT(R2**2-(XP0-BX)**2)-YP0)
+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)
+                DD4=ABS(BY-SQRT(R2**2-(XT0-BX)**2)-YP0)
                 GO TO 5
              ENDIF
              BB=2.0*SIN(PHI)*(COS(PHI)*YP0-SIN(PHI)*XP0)