fn EExecSP002 &out_Prm1 &out_Prm2 in_Prm1 in_Prm2 in_Prm3 in_Prm4  Att_1 Att_2 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  d1,d2,d3,o1,o2,o3,o4,o5,o6,p5,p6

	TOChisl_Create &Chisl1 (Complex -106.0 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 85.5 0.0) Att5
	TOChisl_Create &Chisl3 (Complex -106.0 0.0) Att5
	TOChisl_Create &Chisl4 (Complex -14.5 0.0) Att5
	TOChisl_Create &Chisl5 (Complex -42.0 0.0) Att5
	TOChisl_Create &Chisl6 (Complex 137.5 0.0) Att5
	TOChisl_Create &Chisl7 (Complex -42.0 0.0) Att5
	TOChisl_Create &Chisl8 (Complex 37.5 0.0) Att5
	TOChisl_Create &Chisl9 (Complex -85.0 0.0) Att5
	TOChisl_Create &Chisl10 (Complex 38.5 0.0) Att5
	TOChisl_Create &Chisl11 (Complex 15.0 0.0) Att5
	TOChisl_Create &Chisl12 (Complex 38.5 0.0) Att5
	TOChisl_Create &Chisl13 (Complex 36.0 0.0) Att5

	CreateCopy &p1 in_Prm1
	p1.FAtt=in_Prm1.FAtt

	CreateCopy &p2 in_Prm2
	p2.FAtt=in_Prm2.FAtt

	CreateCopy &p3 in_Prm3
	p3.FAtt=in_Prm3.FAtt

	CreateCopy &p4 in_Prm4
	p4.FAtt=in_Prm4.FAtt

	EExecO2 &o1  Chisl1 Chisl2 Chisl3 Chisl4  att5  1 1 1 1  "0"
	EExecO2 &o2  Chisl5 Chisl6 Chisl7 Chisl8  att5  1 1 1 1  "0"
	EExecO0 &o3  p3 p1  att5  1 1  "0"
	EExecO0 &o4  p4 p2  att5  1 1  "0"
	EExecO2 &o5  Chisl9 Chisl10 Chisl11 Chisl12  att5  1 1 1 1  "0"
	EExecO7 &o6  o4 Chisl13  att5  1 1  "0"
	EExecX0 &p5  p1 o5 p2 o6  att0  1 1 1 1  "0"
	EExecX0 &p6  p3 o5 p4 o6  att0  1 1 1 1  "0"
	EExecD1 &d1  p5 p6  att0  1 1  "0"
	EExecD0 &d2  p1 d1  att0  1 1  "0"
	EExecD0 &d3  p2 d2  att0  1 1  "0"

	CreateCopy &out_Prm1 d2
	out_Prm1.FAtt=d2.FAtt

	CreateCopy &out_Prm2 d3
	out_Prm2.FAtt=d3.FAtt

	return true
) -- EExecSP002