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

	local  d1,d2,d3,p1,p2,p3,p4

	CreateCopy &o1 in_Prm1
	o1.FAtt=in_Prm1.FAtt

	CreateCopy &o2 in_Prm2
	o2.FAtt=in_Prm2.FAtt

	CreateCopy &o3 in_Prm3
	o3.FAtt=in_Prm3.FAtt

	EExecP2 &p1  o1 o2  att0  1 1  "0"
	EExecP2 &p2  o2 o3  att0  1 1  "0"
	EExecP2 &p3  o1 o3  att0  1 1  "0"
	EExecTR004 &p4  o1 o2 o3  att0  1 1 1  "0"
	EExecD4 &d1  p1 p2 p4  att5  1 1 1  "0"
	EExecD4 &d2  p2 p3 p4  att5  1 1 1  "0"
	EExecD4 &d3  p3 p1 p4  att5  1 1 1  "0"

	CreateCopy &out_Prm1 d1
	out_Prm1.FAtt=d1.FAtt

	CreateCopy &out_Prm2 d2
	out_Prm2.FAtt=d2.FAtt

	CreateCopy &out_Prm3 d3
	out_Prm3.FAtt=d3.FAtt

	return true
) -- EExecTR016