fn EExecCPP &out_Prm1 in_Prm1 in_Prm2 in_Prm3 in_Prm4  Att_1 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  c1,o1,o2,o3,o4,o5,p5,p6

	TOChisl_Create &Chisl1 (Complex -327.0 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 100.5 0.0) Att5
	TOChisl_Create &Chisl3 (Complex -227.0 0.0) Att5
	TOChisl_Create &Chisl4 (Complex 100.5 0.0) Att5
	TOChisl_Create &Chisl13 (Complex 86.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 &o3  Chisl1 Chisl2 Chisl3 Chisl4  att5  1 1 1 1  "0"
	EExecO0 &o4  p4 p2  att5  1 1  "0"
	EExecO7 &o5  o4 Chisl13  att5  -1 1  "0"
	EExecX0 &p6  p3 o3 p4 o5  att0  1 1 1 1  "mu(no(1,3),no(2,4))"
	EExecX0 &p5  p1 o3 p2 o5  att0  1 1 1 1  "mu(no(1,3),no(2,4))"
	EExecC2 &c1  p5 p6  att0  1 1  "0"
	CreateCopy &out_Prm1 c1
	out_Prm1.FAtt=c1.FAtt

	return true
) -- EExecCPP