Make ab13bd array arguments intent(in,copy)

roryyorke · roryyorke · commit 2625e1ffb512 · 2023-07-22T20:59:58.000+02:00
diff --git 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 intent(in,out,copy),dimension(n,n),depend(n) :: a
+    double precision intent(in,copy),dimension(n,n),depend(n) :: a
     integer intent(hide),depend(a) :: lda = shape(a,0)
-    double precision intent(in,out,copy),dimension(n,m),depend(n,m) :: b
+    double precision intent(in,copy),dimension(n,m),depend(n,m) :: b
     integer intent(hide),depend(b) :: ldb = shape(b,0)
-    double precision intent(in,out,copy),dimension(p,n),depend(n,p) :: c
+    double precision intent(in,copy),dimension(p,n),depend(n,p) :: c
     integer intent(hide),depend(c) :: ldc = shape(c,0)
-    double precision intent(in,out,copy),dimension(p,m),depend(m,p) :: d
+    double precision intent(in,copy),dimension(p,m),depend(m,p) :: d
     integer intent(hide),depend(d) :: ldd = shape(d,0)
     integer intent(out) :: nq
     double precision :: tol
