From c42693564379aa9e6d12954222861b8a6cf60f42 Mon Sep 17 00:00:00 2001 From: Rory Yorke Date: Sat, 22 Jul 2023 20:45:25 +0200 Subject: [PATCH] Make ab13bd array arguments `intent(in,out,copy)` --- slycot/src/analysis.pyf | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/slycot/src/analysis.pyf b/slycot/src/analysis.pyf index 183a22f2..999e3b65 100644 --- a/slycot/src/analysis.pyf +++ b/slycot/src/analysis.pyf @@ -307,13 +307,13 @@ function ab13bd(dico,jobn,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nq,tol,dwork,ldwork,iwar integer check(n>=0) :: n integer check(n>=0) :: m integer check(n>=0) :: p - double precision dimension(n,n),depend(n) :: a + double precision intent(in,out,copy),dimension(n,n),depend(n) :: a integer intent(hide),depend(a) :: lda = shape(a,0) - double precision dimension(n,m),depend(n,m) :: b + double precision intent(in,out,copy),dimension(n,m),depend(n,m) :: b integer intent(hide),depend(b) :: ldb = shape(b,0) - double precision dimension(p,n),depend(n,p) :: c + double precision intent(in,out,copy),dimension(p,n),depend(n,p) :: c integer intent(hide),depend(c) :: ldc = shape(c,0) - double precision dimension(p,m),depend(m,p) :: d + double precision intent(in,out,copy),dimension(p,m),depend(m,p) :: d integer intent(hide),depend(d) :: ldd = shape(d,0) integer intent(out) :: nq double precision :: tol