fn EExecCH &CST V Att Sg1 FM =
(
	if (V==undefined) then return false
	local X;

	if (V.OB=="D") then
	(
		X=CompMul V.R (Complex 2. 0.);
		TOChisl_Create &CST X Att		
	) else
	(
		if (Att.Chk==1) then TOEmpty_Create &CST Att;
	)

	return true
) -- EExecCH