Skip to content

Commit 430a7d5

Browse files
bnavigatorbnavigator
authored
Merge pull request #167 from bnavigator/fix-np1.22-mb03rd-wrapper
Fix numpy 1.22 f2py wrapper
2 parents 063fed3 + c1dc25a commit 430a7d5

2 files changed

Lines changed: 12 additions & 12 deletions

File tree

‎slycot/src/analysis.pyf‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -116,13 +116,13 @@ subroutine ab08nd(equil,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nu,rank_bn,dinfz,nkror,nkr
116116
integer intent(in),check(m>=0),required :: m
117117
integer intent(in),check(p>=0),required :: p
118118
double precision intent(in),dimension(lda,*),check(shape(a,1)>=n) :: a
119-
integer intent(hide),check(lda>=max(1,n)) :: lda=shape(a,0)
119+
integer intent(hide),check(lda>=max(1,n)),depend(n,a) :: lda=shape(a,0)
120120
double precision intent(in),dimension(ldb,*),check(shape(b,1)>=m) :: b
121-
integer intent(hide),check(ldb>=max(1,n)) :: ldb=shape(b,0)
121+
integer intent(hide),check(ldb>=max(1,n)),depend(n,b) :: ldb=shape(b,0)
122122
double precision intent(in),dimension(ldc,*),check(shape(c,1)>=n) :: c
123-
integer intent(hide),check(ldc>=max(1,p)) :: ldc=shape(c,0)
123+
integer intent(hide),check(ldc>=max(1,p)),depend(p,c) :: ldc=shape(c,0)
124124
double precision intent(in),dimension(ldd,*),check(shape(d,1)>=m) :: d
125-
integer intent(hide),check(ldd>=max(1,p)) :: ldd=shape(d,0)
125+
integer intent(hide),check(ldd>=max(1,p)),depend(p,d) :: ldd=shape(d,0)
126126
integer intent(out) :: nu
127127
integer intent(out) :: rank_bn
128128
integer intent(out) :: dinfz
@@ -147,13 +147,13 @@ subroutine ab08nz(equil,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nu,rank_bn,dinfz,nkror,nkr
147147
integer intent(in),check(m>=0),required :: m
148148
integer intent(in),check(p>=0),required :: p
149149
complex*16 intent(in),dimension(lda,*),check(shape(a,1)>=n) :: a
150-
integer intent(hide),check(lda>=max(1,n)) :: lda=shape(a,0)
150+
integer intent(hide),check(lda>=max(1,n)),depend(n,a) :: lda=shape(a,0)
151151
complex*16 intent(in),dimension(ldb,*),check(shape(b,1)>=m) :: b
152-
integer intent(hide),check(ldb>=max(1,n)) :: ldb=shape(b,0)
152+
integer intent(hide),check(ldb>=max(1,n)),depend(n,b) :: ldb=shape(b,0)
153153
complex*16 intent(in),dimension(ldc,*),check(shape(c,1)>=n) :: c
154-
integer intent(hide),check(ldc>=max(1,p)) :: ldc=shape(c,0)
154+
integer intent(hide),check(ldc>=max(1,p)),depend(p,c) :: ldc=shape(c,0)
155155
complex*16 intent(in),dimension(ldd,*),check(shape(d,1)>=m) :: d
156-
integer intent(hide),check(ldd>=max(1,p)) :: ldd=shape(d,0)
156+
integer intent(hide),check(ldd>=max(1,p)),depend(p,d) :: ldd=shape(d,0)
157157
integer intent(out) :: nu
158158
integer intent(out) :: rank_bn
159159
integer intent(out) :: dinfz
@@ -163,9 +163,9 @@ subroutine ab08nz(equil,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nu,rank_bn,dinfz,nkror,nkr
163163
integer intent(out),dimension(max(n,m)+1) :: kronr
164164
integer intent(out),dimension(max(n,p)+1) :: kronl
165165
complex*16 intent(out),dimension(max(1,n+m),n+min(p,m)) :: af
166-
integer intent(hide),check(ldaf>=max(1,n+m)) :: ldaf=shape(af,0)
166+
integer intent(hide),check(ldaf>=max(1,n+m)),depend(n,p,af) :: ldaf=shape(af,0)
167167
complex*16 intent(out),dimension(max(1,n+p),n+m) :: bf
168-
integer intent(hide),check(ldbf>=max(1,n+p)) :: ldbf=shape(bf,0)
168+
integer intent(hide),check(ldbf>=max(1,n+p)),depend(n,p,bf) :: ldbf=shape(bf,0)
169169
double precision intent(in) :: tol = 0.0
170170
integer intent(hide),cache,dimension(max(m,p)) :: iwork
171171
double precision intent(hide),cache,dimension(max(n,2*max(p,m))) :: dwork

‎slycot/src/math.pyf‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -18,9 +18,9 @@ subroutine mb03rd(jobx,sort,n,pmax,a,lda,x,ldx,nblcks,blsize,wr,wi,tol,dwork,inf
1818
integer intent(in),required,check(n>=0) :: n
1919
double precision intent(in),required,check(pmax>=1.0) :: pmax
2020
double precision intent(in,out,copy),dimension(lda,n),depend(n) :: a
21-
integer intent(hide),check(lda>=max(1,n)) :: lda=shape(a,0)
21+
integer intent(hide),check(lda>=max(1,n)),depend(a,n) :: lda=shape(a,0)
2222
double precision intent(in,out,copy),dimension(ldx,n),depend(n) :: x
23-
integer intent(hide),check((*jobx == 'N' && ldx>=1) || (*jobx == 'U' && ldx >= max(1,n))) :: ldx=shape(x,0)
23+
integer intent(hide),check((*jobx == 'N' && ldx>=1) || (*jobx == 'U' && ldx >= max(1,n))),depend(x,n,jobx) :: ldx=shape(x,0)
2424
integer intent(out) :: nblcks
2525
integer intent(out),dimension(n) :: blsize
2626
double precision intent(out),dimension(n) :: wr

0 commit comments

Comments
 (0)