function EExecSPRA &out_prm1 &out_prm2 &out_prm3 &out_prm4 in_prm1 in_prm2 in_prm3 in_prm4  Att_1 Att_2 Att_3 Att_4 Sg1 Sg2 Sg3 Sg4 FM =
(
	local d1, d2, d3, d4, d5, d6, o10, o11, o12, o13, o3, o4, o5, o6, o7, o8, o9, p10, p11, p12, p13, p5, p6, p7, p8, p9
	local Success

	local Chisl1,Chisl2,Chisl3,Chisl4,Chisl5
	d1= d2= d3= d4= d5= d6= o10= o11= o12= o13= o3= o4= o5= o6= o7= o8= o9= p10= p11= p12= p13= p5= p6= p7= p8= p9=undefined

	if ((in_prm1==undefined) or (in_prm2==undefined) or (in_prm3==undefined) or (in_prm4==undefined))  then return false
	
  
	TOChisl_Create &Chisl1 (Complex -119 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 21.5 0.0) Att5
	TOChisl_Create &Chisl3 (Complex -19 0.0) Att5
	TOChisl_Create &Chisl4 (Complex 21.5 0.0) Att5
	TOChisl_Create &Chisl5 (Complex 81 0.0) Att5

	
	CreateCopy &d1 in_Prm1
	d1.FAtt=in_Prm1.FAtt
	
	CreateCopy &d2 in_Prm2
	d2.FAtt=in_Prm2.FAtt

	CreateCopy &d3 in_Prm3
	d3.FAtt=in_Prm3.FAtt

	CreateCopy &d4 in_Prm4
	d4.FAtt=in_Prm4.FAtt

	EExecPA &p5 d1 Att0 Sg1 "0" 
	EExecPA &p6 d2 Att0 Sg2 "0"
	EExecPA &p7 d3 Att0 Sg3 "0"
	EExecPA &p8 d4 Att0 Sg4 "0"

	EExecO0 &o3 p7 p5 Att5 1 1 "0"
	EExecO0 &o4 p8 p6 Att5 1 1 "0"
	EExecO2 &o5 Chisl1 Chisl2 Chisl3 Chisl4 Att5 1 1 1 1 "0"
	EExecO7 &o6 o4 Chisl5 Att5 -1 1 "0"
	EExecX0 &p9 p5 o5 p6 o6 Att0 1 1 1 1 "0"
	EExecX0 &p10 p7 o5 p8 o6 Att0 1 1 1 1 "0"
	EExecD0 &d5 p9 d2 Att5 1 Sg2 "0"
	EExecD0 &d6 p10 d4 Att5 1 Sg4 "0"
	EExecO0 &o7 p10 p9 Att5 1 1 "0"
	EExecRA &o8 d5 d6 Att5 1 1 "0"
	EExecP2 &p11 o8 o7 Att0 1 1 "0"
	EExecPF &p12 p11 o4 Att0 1 1 "0"
	EExecO1 &o9 p12 rect Att5 1 1 "0"
	EExecP2 &p13 o3 o9 Att0 1 1 "0"

	EExecO1 &o10 p13 null Att5 1 1 "0"
	EExecO5 &o11 o4 p12 rect Att5 1 1 1 "0"
	EExecO1 &o12 p12 null Att5 1 1 "0"
	EExecO5 &o13 o3 p13 rect Att5 1 1 1 "0"

	CreateCopy &out_prm1 o13
	out_prm1.FAtt=att_1

	CreateCopy &out_prm2 o12
	out_prm2.FAtt=att_2

	CreateCopy &out_prm3 o10
	out_prm3.FAtt=att_3

	CreateCopy &out_prm4 o11
	out_prm4.FAtt=att_4

	return true

) -- EExecSPRA