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"
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)