[Scipy-svn] r5175 - trunk/scipy/linalg

[scipy-svn at scipy.org]

Author: tzito
Date: 2008-11-23 02:53:29 -0600 (Sun, 23 Nov 2008)
New Revision: 5175

Modified:
   trunk/scipy/linalg/generic_flapack.pyf
Log:
Fix for ticket #795.


Modified: trunk/scipy/linalg/generic_flapack.pyf
===================================================================
--- trunk/scipy/linalg/generic_flapack.pyf	2008-11-23 04:45:36 UTC (rev 5174)
+++ trunk/scipy/linalg/generic_flapack.pyf	2008-11-23 08:53:29 UTC (rev 5175)
@@ -1459,7 +1459,7 @@
     complex intent(out),dimension(n,m),depend(n,m) :: z
     integer intent(hide),check(shape(z,0)==ldz),depend(n,z) :: ldz=n
     integer intent(hide),dimension(2*m) :: isuppz
-    integer intent(in),depend(n) :: lwork=2*n
+    integer intent(in),depend(n) :: lwork=18*n
     complex  intent(hide),dimension(lwork) :: work
     integer intent(hide),depend(n) :: lrwork=24*n
     real  intent(hide),dimension(lrwork) :: rwork
@@ -1489,7 +1489,7 @@
     complex*16 intent(out),dimension(n,m),depend(n,m) :: z
     integer intent(hide),check(shape(z,0)==ldz),depend(n,z) :: ldz=n
     integer intent(hide),dimension(2*m) :: isuppz
-    integer intent(in),depend(n) :: lwork=2*n
+    integer intent(in),depend(n) :: lwork=18*n
     complex*16  intent(hide),dimension(lwork) :: work
     integer intent(hide),depend(n) :: lrwork=24*n
     double precision  intent(hide),dimension(lrwork) :: rwork
@@ -1550,7 +1550,7 @@
     complex intent(in,copy),dimension(n,n) :: b
     integer intent(hide),depend(n,b) :: ldb=n
     real intent(out),dimension(n),depend(n) :: w
-    integer intent(hide) :: lwork=2*n-1
+    integer intent(hide) :: lwork=18*n-1
     complex intent(hide),dimension(lwork) :: work
     real intent(hide),dimension(3*n-2) :: rwork
     integer intent(out) :: info
@@ -1570,7 +1570,7 @@
     complex*16 intent(in,copy),dimension(n,n) :: b
     integer intent(hide),depend(n,b) :: ldb=n
     double precision intent(out),dimension(n),depend(n) :: w
-    integer intent(hide) :: lwork=2*n-1
+    integer intent(hide) :: lwork=18*n-1
     complex*16 intent(hide),dimension(lwork) :: work
     double precision intent(hide),dimension(3*n-2) :: rwork
     integer intent(out) :: info
@@ -1752,7 +1752,7 @@
     real intent(out),dimension(n),depend(n) :: w
     complex intent(out),dimension(n,m),depend(n,m) :: z
     integer intent(hide),check(shape(z,0)==ldz),depend(n,z) :: ldz=n
-    integer intent(in),depend(n) :: lwork=2*n
+    integer intent(in),depend(n) :: lwork=18*n-1
     complex intent(hide),dimension(lwork),depend(n,lwork) :: work
     real intent(hide),dimension(7*n) :: rwork
     integer intent(hide),dimension(5*n) :: iwork
@@ -1783,7 +1783,7 @@
     double precision intent(out),dimension(n),depend(n) :: w
     complex*16 intent(out),dimension(n,m),depend(n,m) :: z
     integer intent(hide),check(shape(z,0)==ldz),depend(n,z) :: ldz=n
-    integer intent(in),depend(n) :: lwork=2*n
+    integer intent(in),depend(n) :: lwork=18*n-1
     complex*16 intent(hide),dimension(lwork),depend(n,lwork) :: work
     double precision intent(hide),dimension(7*n) :: rwork
     integer intent(hide),dimension(5*n) :: iwork