diff -up scipy-0.11.0/scipy/linalg/flapack.pyf.src.linalg scipy-0.11.0/scipy/linalg/flapack.pyf.src --- scipy-0.11.0/scipy/linalg/flapack.pyf.src.linalg 2012-09-10 15:37:39.000000000 -0600 +++ scipy-0.11.0/scipy/linalg/flapack.pyf.src 2013-02-13 21:25:50.684650798 -0700 @@ -1470,7 +1470,7 @@ subroutine sbevx(ab,ldab,comput !* If JOBZ = 'V', the N-by-N orthogonal matrix used in the !* reduction to tridiagonal form. !* If JOBZ = 'N', the array Q is not referenced. - integer intent(hide),depend(n) :: ldq=(compute_v?n:1) + integer intent(hide),depend(n,compute_v) :: ldq=(compute_v?n:1) dimension(ldq,ldq),intent(hide),depend(ldq) :: q @@ -1495,8 +1495,8 @@ subroutine sbevx(ab,ldab,comput dimension(n),intent(out),depend(n) :: w - dimension(ldz,mmax),intent(out) :: z - integer intent(hide),depend(n) :: ldz=(compute_v?n:1) + dimension(ldz,mmax),depend(ldz,mmax),intent(out) :: z + integer intent(hide),depend(n,compute_v) :: ldz=(compute_v?n:1) ! We use the mmax parameter to fix the size of z ! (only if eigenvalues are requested) @@ -1507,12 +1507,12 @@ subroutine sbevx(ab,ldab,comput ! number of eigenvalues in the interval in advance. ! As default we use the maximum value ! but the user should use an appropriate mmax. - integer intent(in),depend(n) :: mmax=(compute_v?(range==2?(iu-il+1):n):1) + integer intent(in),depend(n,iu,il,compute_v,range) :: mmax=(compute_v?(range==2?(iu-il+1):n):1) integer intent(out) :: m - dimension(7*n),intent(hide) :: work - integer dimension(5*n),intent(hide) :: iwork - integer dimension((compute_v?n:1)),intent(out) :: ifail + dimension(7*n),depend(n),intent(hide) :: work + integer dimension(5*n),depend(n),intent(hide) :: iwork + integer dimension((compute_v?n:1)),depend(n,compute_v),intent(out) :: ifail integer intent(out):: info end subroutine sbevx @@ -1590,7 +1590,7 @@ subroutine hbevx(ab,ldab,compu !* If JOBZ = 'V', the N-by-N orthogonal matrix used in the !* reduction to tridiagonal form. !* If JOBZ = 'N', the array Q is not referenced. - integer intent(hide),depend(n) :: ldq=(compute_v?n:1) + integer intent(hide),depend(n,compute_v) :: ldq=(compute_v?n:1) dimension(ldq,ldq),intent(hide),depend(ldq) :: q @@ -1615,8 +1615,8 @@ subroutine hbevx(ab,ldab,compu dimension(n),intent(out),depend(n) :: w - dimension(ldz,mmax),intent(out) :: z - integer intent(hide),depend(n) :: ldz=(compute_v?n:1) + dimension(ldz,mmax),depend(ldz,mmax),intent(out) :: z + integer intent(hide),depend(n,compute_v) :: ldz=(compute_v?n:1) ! We use the mmax parameter to fix the size of z ! (only if eigenvalues are requested) @@ -1627,13 +1627,13 @@ subroutine hbevx(ab,ldab,compu ! number of eigenvalues in the interval in advance. ! As default we use the maximum value ! but the user should use an appropriate mmax. - integer intent(in),depend(n) :: mmax=(compute_v?(range==2?(iu-il+1):n):1) + integer intent(in),depend(n,iu,il,compute_v,range) :: mmax=(compute_v?(range==2?(iu-il+1):n):1) integer intent(out) :: m - dimension(n),intent(hide) :: work - dimension(7*n),intent(hide) :: rwork - integer dimension(5*n),intent(hide) :: iwork - integer dimension((compute_v?n:1)),intent(out) :: ifail + dimension(n),depend(n),intent(hide) :: work + dimension(7*n),depend(n),intent(hide) :: rwork + integer dimension(5*n),depend(n),intent(hide) :: iwork + integer dimension((compute_v?n:1)),depend(n,compute_v),intent(out) :: ifail integer intent(out):: info end subroutine hbevx diff -up scipy-0.11.0/scipy/sparse/linalg/eigen/arpack/arpack.pyf.src.linalg scipy-0.11.0/scipy/sparse/linalg/eigen/arpack/arpack.pyf.src --- scipy-0.11.0/scipy/sparse/linalg/eigen/arpack/arpack.pyf.src.linalg 2012-09-10 15:37:41.000000000 -0600 +++ scipy-0.11.0/scipy/sparse/linalg/eigen/arpack/arpack.pyf.src 2013-02-13 21:25:50.686650709 -0700 @@ -29,7 +29,7 @@ python module _arpack ! in character :: howmny logical dimension(ncv) :: select <_rd> dimension(nev),intent(out),depend(nev) :: d - <_rd> dimension(n,nev),intent(out),depend(nev) :: z + <_rd> dimension(n,nev),intent(out),depend(n,nev) :: z integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0) <_rd> :: sigma character :: bmat @@ -121,7 +121,7 @@ python module _arpack ! in character :: howmny logical dimension(ncv) :: select <_cd> dimension(nev),depend(nev),intent(out) :: d - <_cd> dimension(n,nev), depend(nev),intent(out) :: z + <_cd> dimension(n,nev), depend(n,nev),intent(out) :: z integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0) <_cd> :: sigma <_cd> dimension(3 * ncv),depend(ncv) :: workev