Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Correct iwork size expression for ab09nd
  • Loading branch information
roryyorke committed Dec 23, 2024
commit 8db9343ebc0322bc956d922574aa6365713af9e0
2 changes: 1 addition & 1 deletion slycot/src/analysis.pyf
Original file line number Diff line number Diff line change
Expand Up @@ -315,7 +315,7 @@ subroutine ab09nd(dico,job,equil,ordsel,n,m,p,nr,alpha,a,lda,b,ldb,c,ldc,d,ldd,n
double precision intent(out),dimension(n),depend(n) :: hsv
double precision :: tol1 =0.0
double precision :: tol2 =0.0
integer intent(hide,cache),dimension(max(m,p)) :: iwork
integer intent(hide,cache),dimension(max(1,2*n)) :: iwork
double precision intent(hide,cache),dimension(ldwork) :: dwork
integer optional :: ldwork = max(1,n*(2*n+max(n,max(m,p))+5)+n*(n+1)/2)
integer intent(out) :: iwarn
Expand Down