fn EExecJT &out_Prm1 in_Prm1 in_Prm2  Att_1 Sg1 Sg2 FM  =
(
	if ((in_Prm1==undefined) or (in_Prm2==undefined)) then return false

	local  c1,d1,d2,j1

	TOChisl_Create &Chisl1 (Complex 10.0 0.0) Att5

	CreateCopy &p1 in_Prm1
	p1.FAtt=in_Prm1.FAtt

	CreateCopy &p2 in_Prm2
	p2.FAtt=in_Prm2.FAtt

	EExecC0 &c1  Chisl1  att0  1  "0"
	EExecD0 &d1  p1 c1  att0  1 1  "0"
	EExecD0 &d2  p2 c1  att0  1 1  "0"
	EExecJSPH &j1  d1 d2  att0  1 1  "0"

	CreateCopy &out_Prm1 j1
	out_Prm1.FAtt=j1.FAtt

	return true
) -- EExecJT