From 8db9343ebc0322bc956d922574aa6365713af9e0 Mon Sep 17 00:00:00 2001 From: Rory Yorke Date: Mon, 23 Dec 2024 11:04:22 +0200 Subject: [PATCH] Correct iwork size expression for ab09nd --- slycot/src/analysis.pyf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/slycot/src/analysis.pyf b/slycot/src/analysis.pyf index 1789d893..d161e16f 100644 --- a/slycot/src/analysis.pyf +++ b/slycot/src/analysis.pyf @@ -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