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

index 4c98873..779e93b 100644 (file)
@@ -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)