pivoted Qr

src/QrAlgo.jl

@@ -160,6 +160,7 @@ for (geqrf, ormqr, elty) in
         end
     end    
 end 
+=#
 
 struct QrpWs{T <: Number}  <: QR
     tau::Vector{T}
@@ -210,5 +211,5 @@ for (geqp3, elty) in
         t3 = Adjoint{$elty, <: StridedMatrix}
     end
 end
-=#
+
 end

src/SchurAlgo.jl

@@ -31,7 +31,7 @@ function mycompare(alphar_::Ptr{T}, alphai_::Ptr{T}, beta_::Ptr{T})::Cint where
     return convert(Cint, ((alphar*alphar + alphai*alphai) < criterium*beta*beta) ? 1 : 0)
 end
 
-mutable struct DgeesWs
+struct DgeesWs
     jobvs::Ref{UInt8}
     sdim::Ref{BlasInt}
     wr::Vector{Float64}

test/QrAlgo_test.jl

@@ -11,7 +11,7 @@ n = 10
 
     QrAlgo.geqp3!(A, ws)
 
-    target = qr(A0, Val(true))
+    target = qr(A0, ColumnNorm())
 
 #display(triu(A))
 #display(triu(target.R))