From 701e4ba01d6a644dbbdd656c8864b0cb3202e66b Mon Sep 17 00:00:00 2001
From: Aravindh Krishnamoorthy <aravindh.krishnamoorthy@fau.de>
Date: Wed, 6 Dec 2023 19:29:03 +0100
Subject: [PATCH] Remove unused permutation routines lapmt! and lapmr! from
 lapack.jl

---
 stdlib/LinearAlgebra/src/lapack.jl | 45 ------------------------------
 1 file changed, 45 deletions(-)

diff --git a/stdlib/LinearAlgebra/src/lapack.jl b/stdlib/LinearAlgebra/src/lapack.jl
index ddca231f0e0c4..d225500e7bd3a 100644
--- 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