function EExecA1(Out_Prm,X,Att,Sg1)
{     
 if (X.length==0) return false;
 var S = {Re:0, Im:0}
 Result=false;
 S=X[0].C;
	
 for (I=1; I<X.length; I++)
 {
  S=CompSub(S,X[I].C);
 }

 TOChisl_Create(Out_Prm,S,Att);
 Result=true;
 return Result;

} // EExecA1