fn EExecDN &OOO X Y A Sg1 Sg2 FM =
(
	local Result,c1,c2,p1
	if (X==undefined) or (Y==undefined) then return false
	if (X.OB=="P") and (Y.OB=="P") and (IsSobstv X) and (IsSobstv Y) then
    	(
		local c1,c2,p1,Chisl1 
		Chisl1=TOChisl();
		Chisl1.C=Complex 2. 0.;
		Chisl1.OB="C";

		EExecC2 &c1 X Y  Att5 1 1 "0"
		EExecAQ &c2 c1 Chisl1 Att5 1 1 "0"
		EExecPP &p1 X Y Att5 1 1 "0"
		EExecD0 &OOO p1 c2 A 1 1 "0"
	)
	else 
	(
		if (A.Chk==1) then TOEmpty_Create &OOO A
	)
	return true
) -- EExecDN