Remove unused permutation routines lapmt! and lapmr! from lapack.jl

JuliaLang · Dec 6, 2023 · 701e4ba · 701e4ba
1 parent ed3fd1e
commit 701e4ba
Showing 1 changed file with 0 additions and 45 deletions.
diff --git a/stdlib/LinearAlgebra/src/lapack.jl b/stdlib/LinearAlgebra/src/lapack.jl
@@ -7043,50 +7043,5 @@ julia> LAPACK.lacpy!(B, A, 'U')
  0.0  4.0
 ```
 """
-lacpy!(B::AbstractMatrix, A::AbstractMatrix, uplo::AbstractChar)
-
-# Routines for column permutation
-for (fn, elty) in ((:slapmt_, :Float32),
-                (:dlapmt_, :Float64),
-                (:clapmt_, :ComplexF32),
-                (:zlapmt_, :ComplexF64))
-    @eval begin
-        function lapmt!(A::AbstractMatrix{$elty}, p::AbstractVector{<:BlasInt}, fb::Bool)
-            require_one_based_indexing(A)
-            chkstride1(A)
-            m, n = size(A)
-            lda = max(1, stride(A, 2))
-            lp = length(p)
-            if n != lp
-                throw(DimensionMismatch("The second dimension of A, ($m,$n), and P, ($lp), must match"))
-            end
-            ccall((@blasfunc($fn), libblastrampoline), Cvoid,
-            (Ref{BlasInt}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{BlasInt}),
-            fb, m, n, A, lda, p) ;
-        end
-    end
-end
-
-# Routines for row permutation
-for (fn, elty) in ((:slapmr_, :Float32),
-                (:dlapmr_, :Float64),
-                (:clapmr_, :ComplexF32),
-                (:zlapmr_, :ComplexF64))
-    @eval begin
-        function lapmr!(A::AbstractMatrix{$elty}, p::AbstractVector{<:BlasInt}, fb::Bool)
-            require_one_based_indexing(A)
-            chkstride1(A)
-            m, n = size(A)
-            lda = max(1, stride(A, 2))
-            lp = length(p)
-            if m != lp
-                throw(DimensionMismatch("The first dimension of A, ($m,$n), and P, ($lp), must match"))
-            end
-            ccall((@blasfunc($fn), libblastrampoline), Cvoid,
-            (Ref{BlasInt}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{BlasInt}),
-            fb, m, n, A, lda, p) ;
-        end
-    end
-end
 
 end # module