101 lines
5.0 KiB
Diff
101 lines
5.0 KiB
Diff
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 <prefix2>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)
|
|
<ftype2> dimension(ldq,ldq),intent(hide),depend(ldq) :: q
|
|
|
|
|
|
@@ -1495,8 +1495,8 @@ subroutine <prefix2>sbevx(ab,ldab,comput
|
|
|
|
<ftype2> dimension(n),intent(out),depend(n) :: w
|
|
|
|
- <ftype2> dimension(ldz,mmax),intent(out) :: z
|
|
- integer intent(hide),depend(n) :: ldz=(compute_v?n:1)
|
|
+ <ftype2> 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 <prefix2>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
|
|
|
|
- <ftype2> dimension(7*n),intent(hide) :: work
|
|
- integer dimension(5*n),intent(hide) :: iwork
|
|
- integer dimension((compute_v?n:1)),intent(out) :: ifail
|
|
+ <ftype2> 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 <prefix2>sbevx
|
|
|
|
@@ -1590,7 +1590,7 @@ subroutine <prefix2c>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)
|
|
<ftype2c> dimension(ldq,ldq),intent(hide),depend(ldq) :: q
|
|
|
|
|
|
@@ -1615,8 +1615,8 @@ subroutine <prefix2c>hbevx(ab,ldab,compu
|
|
|
|
<ftype2> dimension(n),intent(out),depend(n) :: w
|
|
|
|
- <ftype2c> dimension(ldz,mmax),intent(out) :: z
|
|
- integer intent(hide),depend(n) :: ldz=(compute_v?n:1)
|
|
+ <ftype2c> 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 <prefix2c>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
|
|
|
|
- <ftype2c> dimension(n),intent(hide) :: work
|
|
- <ftype2> dimension(7*n),intent(hide) :: rwork
|
|
- integer dimension(5*n),intent(hide) :: iwork
|
|
- integer dimension((compute_v?n:1)),intent(out) :: ifail
|
|
+ <ftype2c> dimension(n),depend(n),intent(hide) :: work
|
|
+ <ftype2> 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 <prefix2c>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
|