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"