gschur() was declared obsolete in Scilab 4, now removed
[scilab.git] / scilab / modules / compatibility_functions / macros / mtlb_qz.sci
index 698f690..a60b43b 100644 (file)
 // For more information, see the COPYING file which you should have received
 // along with this program.
 
-function [AA, BB, Q, Z, V]=mtlb_qz(A,B)
-    [lhs,rhs]=argn(0)
-    [AA, BB, Q, Z]=gschur(A,B)
+function [AA, BB, Q, Z, V] = mtlb_qz(A,B)
+    [lhs,rhs] = argn(0)
+    [AA, BB, Q, Z] = schur(A,B)
     if lhs==5 then
-        n=size(A,1)
-        LA=diag(AA)
-        LB=diag(BB)
-        V=zeros(n,n)
-        for k=1:n
-            K=kernel(A*LB(k)-B*LA(k))
+        n  = size(A,1)
+        LA = diag(AA)
+        LB = diag(BB)
+        V  = zeros(n,n)
+        for k = 1:n
+            K = kernel(A*LB(k)-B*LA(k))
             if size(K,2)<>1 then
                 error(msprintf(gettext("%s: pencil is not diagonalizable.\n"),"mtlb_qz"))
             end