fn EExecSPDI &out_Prm1 &out_Prm2 &out_Prm3 &out_Prm4 in_Prm1 in_Prm2 in_Prm3 in_Prm4  Att_1 Att_2 Att_3 Att_4 Sg1 Sg2 Sg3 Sg4 FM  =
(
	if ((in_Prm1==undefined) or (in_Prm2==undefined) or (in_Prm3==undefined) or (in_Prm4==undefined)) then return false

	local  d10,d11,d12,d5,d6,d7,d8,d9,o1,o2,o3,o4,o5,o6,p1,p10,p11,p12,p2,p3,p4,p5,p6,p7,p8,p9

	TOChisl_Create &Chisl1 (Complex -393.0 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 17.0 0.0) Att5
	TOChisl_Create &Chisl3 (Complex -293.0 0.0) Att5
	TOChisl_Create &Chisl4 (Complex 17.0 0.0) Att5
	TOChisl_Create &Chisl5 (Complex 181.0 0.0) Att5

	CreateCopy &d1 in_Prm1
	d1.FAtt=in_Prm1.FAtt

	CreateCopy &d2 in_Prm2
	d2.FAtt=in_Prm2.FAtt

	CreateCopy &d3 in_Prm3
	d3.FAtt=in_Prm3.FAtt

	CreateCopy &d4 in_Prm4
	d4.FAtt=in_Prm4.FAtt

	EExecPA &p1  d1  att0  1  "0"
	EExecPA &p2  d2  att0  1  "0"
	EExecPA &p3  d3  att0  1  "0"
	EExecPA &p4  d4  att0  1  "0"
	EExecO2 &o1  Chisl1 Chisl2 Chisl3 Chisl4  att5  1 1 1 1  "0"
	EExecO0 &o2  p3 p1  att5  1 1  "0"
	EExecO0 &o3  p4 p2  att5  1 1  "0"
	EExecO7 &o4  o3 Chisl5  att5  1 1  "0"
	EExecX0 &p5  p1 o1 p2 o4  att0  1 1 1 1  "mu(no(1,3),no(2,4))"
	EExecX0 &p6  p3 o1 p4 o4  att0  1 1 1 1  "mu(no(1,3),no(2,4))"
	EExecD0 &d5  p5 d2  att0  1 1  "0"
	EExecD0 &d6  p6 d4  att0  1 1  "0"
	EExecDI &d7 &d8  d6 d5  att5 att5  1 1  "0"
	EExecPA &p7  d7  att0  1  "0"
	EExecPA &p8  d8  att0  1  "0"
	EExecPF &p9  p7 o3  att0  1 1  "0"
	EExecPF &p10  p8 o3  att0  1 1  "0"
	EExecO1 &o5  p9 rect  att5  1 1  "0"
	EExecO1 &o6  p10 rect  att5  1 1  "0"
	EExecP2 &p11  o5 o2  att0  1 1  "0"
	EExecP2 &p12  o6 o2  att0  1 1  "0"
	EExecD0 &d9  p11 d7  att0  1 1  "0"
	EExecD0 &d10  p9 d7  att0  1 1  "0"
	EExecD0 &d11  p12 d8  att0  1 1  "0"
	EExecD0 &d12  p10 d8  att0  1 1  "0"

	CreateCopy &out_Prm1 d9
	out_Prm1.FAtt=d9.FAtt

	CreateCopy &out_Prm2 d10
	out_Prm2.FAtt=d10.FAtt

	CreateCopy &out_Prm3 d11
	out_Prm3.FAtt=d11.FAtt

	CreateCopy &out_Prm4 d12
	out_Prm4.FAtt=d12.FAtt

	return true
) -- EExecSPDI