C Scatter two excited strings, JP from proj and JT from target *
C*******************************************************************
SUBROUTINE HIJSFT(JP,JT,JOUT,IERROR)
C Scatter two excited strings, JP from proj and JT from target *
C*******************************************************************
SUBROUTINE HIJSFT(JP,JT,JOUT,IERROR)