fn EExecTR009S &out_Prm1 &out_Prm2 in_Prm1 in_Prm2 in_Prm3 in_Prm4 in_Prm5 in_Prm6  Att_1 Att_2 Sg1 Sg2 Sg3 Sg4 Sg5 Sg6 FM  =
(
	if ((in_Prm1==undefined) or (in_Prm2==undefined) or (in_Prm3==undefined) or (in_Prm4==undefined) or (in_Prm5==undefined) or (in_Prm6==undefined)) then return false

	local  o10,o11,o12,o13,o14,o15,o16,o17,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p7,p8,p9

	TOChisl_Create &Chisl1 (Complex 0.57959077 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 83.0 0.0) Att5
	TOChisl_Create &Chisl3 (Complex -3.5 0.0) Att5
	TOChisl_Create &Chisl4 (Complex 183.0 0.0) Att5
	TOChisl_Create &Chisl5 (Complex -3.5 0.0) Att5

	CreateCopy &o4 in_Prm1
	o4.FAtt=in_Prm1.FAtt

	CreateCopy &o7 in_Prm2
	o7.FAtt=in_Prm2.FAtt

	CreateCopy &o6 in_Prm3
	o6.FAtt=in_Prm3.FAtt

	CreateCopy &o9 in_Prm4
	o9.FAtt=in_Prm4.FAtt

	CreateCopy &o5 in_Prm5
	o5.FAtt=in_Prm5.FAtt

	CreateCopy &o8 in_Prm6
	o8.FAtt=in_Prm6.FAtt

	EExecP2 &p7  o4 o5  att0  1 1  "0"
	EExecP2 &p8  o4 o6  att0  1 1  "0"
	EExecP2 &p9  o5 o6  att0  1 1  "0"
	EExecPLH &o10 &o11  o4 o7 o5 o8  att0 att0  1 1 1 1  "0"
	EExecP9 &p13  o11 Chisl1  att0  1 1  "0"
	EExecO5 &o12  o11 p13 rect  att0  1 1 1  "0"
	EExecP2 &p10  o7 o8  att0  1 1  "0"
	EExecP2 &p11  o7 o9  att0  1 1  "0"
	EExecP2 &p12  o8 o9  att0  1 1  "0"
	EExecO2 &o13  Chisl2 Chisl3 Chisl4 Chisl5  att5  1 1 1 1  "0"
	EExecX0 &p14  p7 o13 p10 o12  att0  1 1 1 1  "0"
	EExecX0 &p15  p8 o13 p11 o12  att0  1 1 1 1  "0"
	EExecX0 &p16  p9 o13 p12 o12  att0  1 1 1 1  "0"
	EExecO000 &o14  p16 p14 p15  att5  1 1 1  "0"
	EExecX0 &p17  p12 o12 p16 o14  att0  1 1 1 1  "0"
	EExecX0 &p18  p10 o12 p14 o14  att0  1 1 1 1  "0"
	EExecO0 &o17  p17 p18  att5  1 1  "0"
	EExecX0 &p19  p11 o12 p15 o14  att0  1 1 1 1  "0"
	EExecO0 &o15  p19 p17  att5  1 1  "0"
	EExecO0 &o16  p19 p18  att5  1 1  "0"
	EExecTR009 &p20  o17 o15 o16  att0  1 1 1  "0"
	EExecPF &p21  p20 o14  att0  1 1  "0"
	EExecX0 &p22  p20 o14 p21 o12  att0  1 1 1 1  "0"
	EExecX0 &p23  p21 o12 p22 o13  att0  1 1 1 1  "0"

	CreateCopy &out_Prm1 p23
	out_Prm1.FAtt=p23.FAtt

	CreateCopy &out_Prm2 p22
	out_Prm2.FAtt=p22.FAtt

	return true
) -- EExecTR009S