function EExecD7(TD1,TP1,TP2,TD2,TP3,TP4,X,Y,Z, Att1,Att2,Att3,Att4,Att5,Att6,Sg1,Sg2,Sg3)
{
	
	var cnt_d1=new Object();
	var cnt_d3=new Object(); 
	var d1=new Object(); 
	var d3=new Object(); 
	var m=new Object(); 
	var n=new Object(); 
	var o1=new Object(); 
	var o10=new Object(); 
	var o11=new Object(); 
	var o12=new Object(); 
	var o13=new Object(); 
	var o14=new Object(); 
	var o2=new Object(); 
	var o7=new Object(); 
	var o8=new Object(); 
	var o9=new Object(); 
	var p1=new Object(); 
	var p2=new Object(); 
	var r=new Object(); 
	var s1=new Object(); 
	var s2=new Object(); 
	var t1=new Object(); 
	var t2=new Object(); 
	var t3=new Object(); 
	var t4=new Object();
	var g1=new Object();
	var g2=new Object();
	var g3=new Object();3
	var g4=new Object();
	
	CreateCopy(d1,X);
	d1.FAtt=CopyAtt(X);
	d1.R.Re=d1.R.Re*Sg1;

	CreateCopy(d3,Y);
	d3.FAtt=CopyAtt(Y);
	d3.R.Re=d3.R.Re*Sg2;

	CreateCopy(r,Z);
	r.FAtt=CopyAtt(Z);
	r.C.Re=r.C.Re*Sg3;
	

	EExecO7(o1,d1,r,d1.FAtt,1,1);
	EExecO7(o2,d3,r,d3.FAtt,1,1);
	EExecP3(p1,p2,o1,o2,Att0,Att0,1,1);
	EExecD0(m,p1,r,Att0,1,1);
	EExecD0(n,p2,r,Att0,1,1);
	EExecRA(o7,m,d1,Att0,1,1);
	EExecPA(cnt_d1,d1,Att0,1);
	EExecO0(o8,p1,cnt_d1,Att5,1,1);
	EExecO0(o9,p2,cnt_d1,Att5,1,1);
	EExecRA(o10,d1,n,Att5,1,1);
	EExecRA(o11,m,d3,Att0,1,1);
	EExecPA(cnt_d3,d3,Att0,1);
	EExecO0(o12,p1,cnt_d3,Att5,1,1);
	EExecO0(o13,p2,cnt_d3,Att5,1,1);
	EExecRA(o14,n,d3,Att0,1,1);
	EExecP2(t1,o8,o7,Att0,1,1);
	EExecP2(t3,o9,o10,Att0,1,1);
	EExecP2(t2,o12,o11,Att0,1,1);
	EExecP2(t4,o13,o14,Att0,1,1);
	EExecCX(g1,t1,X,Att0,1,1);
	EExecCX(g2,t2,Y,Att0,1,1);
	EExecCX(g3,t3,X,Att0,1,1);
	EExecCX(g4,t4,Y,Att0,1,1);


	EExecD9(s1,m,t1,t2,Att0,1,1,1);
	EExecD9(s2,n,t4,t3,Att0,1,1,1);

	if ((g1.OB=="C") && (g2.OB=="C")) 
	{
		CreateCopy(TD1,s1);
		TD1.FAtt=CopyAtt(Att1);
		
		CreateCopy(TP1,t1);
		TP1.FAtt=CopyAtt(Att2);

		CreateCopy(TP2,t2);
		TP2.FAtt=CopyAtt(Att3);

	} else
	{
		TOEmpty_Create(TD1,Att1);
		TOEmpty_Create(TP1,Att2);
		TOEmpty_Create(TP2,Att3);
	}
	
	if ((g3.OB=="C") && (g4.OB=="C")) 
	{
		
		CreateCopy(TD2,s2);
		TD2.FAtt=CopyAtt(Att4);
		
		CreateCopy(TP3,t3);
		TP3.FAtt=CopyAtt(Att5);

		CreateCopy(TP4,t4);
		TP4.FAtt=CopyAtt(Att6);
	} else
	{
		TOEmpty_Create(TD2,Att4);
		TOEmpty_Create(TP3,Att5);
		TOEmpty_Create(TP4,Att6);
	}
	
	if (TP1.OB=="P") {AddInc(TD1,TP1); AddInc(X,TP1)}
	if (TP2.OB=="P") {AddInc(TD1,TP2); AddInc(Y,TP2)}
	if (TP3.OB=="P") {AddInc(TD2,TP3); AddInc(X,TP3)}
	if (TP4.OB=="P") {AddInc(TD2,TP4); AddInc(Y,TP4)}

	return true;

} // EExecD7