fn EExecY8 &out_prm1 in_prm1 in_prm2 in_prm3 in_prm4 in_prm5 Att_polus Sg1 Sg2 Sg3 Sg4 Sg5 FM =
(
	if ((in_prm1==undefined) or (in_prm2==undefined) or (in_prm3==undefined) or (in_prm4==undefined) or (in_prm5==undefined)) then return false
	
	local Chisl10
	local o1,o2,p7,o3,o4,p8,o5,p6,o6,pp,y0
	
	TOChisl_Create &Chisl10 (Complex 140.3 0) Att5

	EExecO0 &o1 in_prm2 in_prm1 Att5 1 1 "0"
	EExecO0 &o2 in_prm3 in_prm2 Att5 1 1 "0"
	EExecP2 &p7 in_prm4 o2 Att0 1 1 "0"
	EExecO1 &o3 in_prm3 Chisl10 Att0 1 1 "0"
	EExecO0 &o4 in_prm1 in_prm5 Att5 1 1 "0"
	EExecP2 &p8 o3 o4 Att0 1 1 "0"
	EExecO0 &o5 p7 p8 Att5 1 1 "0"
	EExecP2 &p6 o1 o5 Att0 1 1 "0"
	EExecO0 &o6 p6 in_prm5 Att5 1 1 "0"
	EExecP2 &pp o3 o6 Att0 1 1 "0"
	EExecY0 &y0 in_prm5 in_prm1 in_prm2 in_prm3 pp Att0 1 1 1 1 1 "0"

	CreateCopy &out_prm1 y0 
	out_prm1.FAtt=CopyAtt Att_polus 

	return true
) -- EExecY8