Bug 3643 fixed, mtlb_eig is now obsolete

[scilab.git] / scilab / modules / compatibility_functions / macros / mtlb_eig.sci

diff --git a/scilab/modules/compatibility_functions/macros/mtlb_eig.sci b/scilab/modules/compatibility_functions/macros/mtlb_eig.sci
index 1c633b7..4c7f9cf 100644 (file)
--- 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","compatibility_functions_error_40"));
+  error(msprintf(gettext("%s: use with %d input argument(s) is not yet implemented.\n"),"mtlb_eig",2));
 end
 endfunction