Skip to content

Commit 64d4ac1

Browse files
committed
new ldwork bounds for SB03OD in .pyf
1 parent 57b5c93 commit 64d4ac1

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

slycot/src/synthesis.pyf

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -365,7 +365,7 @@ subroutine sb03od(dico,fact,trans,n,m,a,lda,q,ldq,b,ldb,scale,wr,wi,dwork,ldwork
365365
double precision intent(out),dimension(n),depend(n) :: wr
366366
double precision intent(out),dimension(n),depend(n) :: wi
367367
double precision intent(hide,cache),dimension(ldwork) :: dwork
368-
integer optional,check(ldwork>=max(1,4*n + min(m,n))),depend(n,m) :: ldwork=max(1,4*n + min(m,n))
368+
integer optional,check(ldwork>=max(1,4*n)),depend(n,m) :: ldwork=max(1,4*n + min(m,n))
369369
integer intent(out) :: info
370370
end subroutine sb03od
371371
subroutine sb04md(n,m,a,lda,b,ldb,c,ldc,z,ldz,iwork,dwork,ldwork,info) ! in SB04MD.f

0 commit comments

Comments
 (0)