@@ -108,10 +108,10 @@ end
108108# DefaultAlgorithm intercepts
109109# ---------------------------
110110for f! in (:svd_full! , :svd_compact! , :svd_vals! , :svd_trunc! , :svd_trunc_no_error! )
111- @eval function $f! (A, alg:: DefaultAlgorithm )
111+ @eval function $f! (A:: AbstractMatrix , alg:: DefaultAlgorithm )
112112 return $ f! (A, select_algorithm ($ f!, A, nothing ; alg. kwargs... ))
113113 end
114- @eval function $f! (A, out, alg:: DefaultAlgorithm )
114+ @eval function $f! (A:: AbstractMatrix , out, alg:: DefaultAlgorithm )
115115 return $ f! (A, out, select_algorithm ($ f!, A, nothing ; alg. kwargs... ))
116116 end
117117end
@@ -166,15 +166,15 @@ for (f, f_lapack!, Alg) in (
166166
167167 # MatrixAlgebraKit wrappers
168168 @eval begin
169- function svd_compact! (A, USVᴴ, alg:: $Alg )
169+ function svd_compact! (A:: AbstractMatrix , USVᴴ, alg:: $Alg )
170170 check_input (svd_compact!, A, USVᴴ, alg)
171171 return $ svd_compact_f! (A, USVᴴ... ; alg. kwargs... )
172172 end
173- function svd_full! (A, USVᴴ, alg:: $Alg )
173+ function svd_full! (A:: AbstractMatrix , USVᴴ, alg:: $Alg )
174174 check_input (svd_full!, A, USVᴴ, alg)
175175 return $ svd_full_f! (A, USVᴴ... ; alg. kwargs... )
176176 end
177- function svd_vals! (A, S, alg:: $Alg )
177+ function svd_vals! (A:: AbstractMatrix , S, alg:: $Alg )
178178 check_input (svd_vals!, A, S, alg)
179179 return $ svd_vals_f! (A, S; alg. kwargs... )
180180 end
@@ -353,15 +353,15 @@ for algtype in (:SafeDivideAndConquer, :DivideAndConquer, :QRIteration, :Jacobi,
353353 lapack_algtype = Symbol (:LAPACK_ , algtype)
354354 @eval begin
355355 Base. @deprecate (
356- svd_compact! (A, USVᴴ, alg:: $lapack_algtype ),
356+ svd_compact! (A:: AbstractMatrix , USVᴴ, alg:: $lapack_algtype ),
357357 svd_compact! (A, USVᴴ, $ algtype (; driver = LAPACK (), alg. kwargs... ))
358358 )
359359 Base. @deprecate (
360- svd_full! (A, USVᴴ, alg:: $lapack_algtype ),
360+ svd_full! (A:: AbstractMatrix , USVᴴ, alg:: $lapack_algtype ),
361361 svd_full! (A, USVᴴ, $ algtype (; driver = LAPACK (), alg. kwargs... ))
362362 )
363363 Base. @deprecate (
364- svd_vals! (A, S, alg:: $lapack_algtype ),
364+ svd_vals! (A:: AbstractMatrix , S, alg:: $lapack_algtype ),
365365 svd_vals! (A, S, $ algtype (; driver = LAPACK (), alg. kwargs... ))
366366 )
367367 end
@@ -376,30 +376,30 @@ for (algtype, newtype, drivertype) in (
376376 )
377377 @eval begin
378378 Base. @deprecate (
379- svd_compact! (A, USVᴴ, alg:: $algtype ),
379+ svd_compact! (A:: AbstractMatrix , USVᴴ, alg:: $algtype ),
380380 svd_compact! (A, USVᴴ, $ newtype (; driver = $ drivertype (), alg. kwargs... ))
381381 )
382382 Base. @deprecate (
383- svd_full! (A, USVᴴ, alg:: $algtype ),
383+ svd_full! (A:: AbstractMatrix , USVᴴ, alg:: $algtype ),
384384 svd_full! (A, USVᴴ, $ newtype (; driver = $ drivertype (), alg. kwargs... ))
385385 )
386386 Base. @deprecate (
387- svd_vals! (A, S, alg:: $algtype ),
387+ svd_vals! (A:: AbstractMatrix , S, alg:: $algtype ),
388388 svd_vals! (A, S, $ newtype (; driver = $ drivertype (), alg. kwargs... ))
389389 )
390390 end
391391end
392392
393393# GLA_QRIteration SVD deprecations (eigh methods remain in the GLA extension)
394394Base. @deprecate (
395- svd_compact! (A, USVᴴ, alg:: GLA_QRIteration ),
395+ svd_compact! (A:: AbstractMatrix , USVᴴ, alg:: GLA_QRIteration ),
396396 svd_compact! (A, USVᴴ, QRIteration (; driver = GLA (), alg. kwargs... ))
397397)
398398Base. @deprecate (
399- svd_full! (A, USVᴴ, alg:: GLA_QRIteration ),
399+ svd_full! (A:: AbstractMatrix , USVᴴ, alg:: GLA_QRIteration ),
400400 svd_full! (A, USVᴴ, QRIteration (; driver = GLA (), alg. kwargs... ))
401401)
402402Base. @deprecate (
403- svd_vals! (A, S, alg:: GLA_QRIteration ),
403+ svd_vals! (A:: AbstractMatrix , S, alg:: GLA_QRIteration ),
404404 svd_vals! (A, S, QRIteration (; driver = GLA (), alg. kwargs... ))
405405)
0 commit comments