X-Git-Url: http://gitweb.scilab.org/?p=scilab.git;a=blobdiff_plain;f=scilab%2Fmodules%2Fcompatibility_functions%2Fmacros%2Fmtlb_eig.sci;h=4c7f9cf4350100376d39e3d7ea1e0413bdb91f12;hp=a7dd5e221bbd5bf67e2de299f11a44d03e9bcddb;hb=71a8166ade18526760b3677be70b846a13f54391;hpb=1243d6bbe9ed0fa11da771729823cf90a3684c2a

diff --git a/scilab/modules/compatibility_functions/macros/mtlb_eig.sci b/scilab/modules/compatibility_functions/macros/mtlb_eig.sci
index a7dd5e2..4c7f9cf 100644
--- a/scilab/modules/compatibility_functions/macros/mtlb_eig.sci
+++ b/scilab/modules/compatibility_functions/macros/mtlb_eig.sci
@@ -1,7 +1,16 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2002-2004 - INRIA - Vincent COUVERT 
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
 function [vd,D]=mtlb_eig(A,B)
-// Copyright INRIA
 // Emulation function for eig() Matlab function
-// V.C.
+
+warnobsolete("spec", "5.1.2")
 
 [lhs,rhs]=argn()
 
@@ -10,11 +19,8 @@ if rhs==1 then
     vd=spec(A)
   else
     [vd,D]=spec(A)
-    if isreal(vd,0) & size(vd,"*")>1 then
-      vd(:,1:2)=-vd(:,1:2)
-    end
   end  
 else
-  error(gettext("errors","mtlb_eig() used with 2 rhs: not yet implemented."));
+  error(msprintf(gettext("%s: use with %d input argument(s) is not yet implemented.\n"),"mtlb_eig",2));
 end
 endfunction