function EExecA5(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++)
 {
  if (X[I].C.Re>S.Re) S=X[I].C;
 }

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

} // EExecA5