diff --git a/src/QrAlgo.jl b/src/QrAlgo.jl index bcd89db22d3979aa5617bef4aa1589c8e330bc6d..a62522c7867db8d418efc473bada61ca358c33a5 100644 --- a/src/QrAlgo.jl +++ b/src/QrAlgo.jl @@ -160,7 +160,8 @@ for (geqrf, ormqr, elty) in end end end - +=# + struct QrpWs{T <: Number} <: QR tau::Vector{T} jpvt::Vector{BlasInt} @@ -210,5 +211,5 @@ for (geqp3, elty) in t3 = Adjoint{$elty, <: StridedMatrix} end end -=# + end diff --git a/src/SchurAlgo.jl b/src/SchurAlgo.jl index 4c7ceb249d66869f40c584ac72095b332010caf4..e18354b57876d289f9f985a2163cd79ec52e00ab 100644 --- a/src/SchurAlgo.jl +++ b/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} diff --git a/test/QrAlgo_test.jl b/test/QrAlgo_test.jl index 5729d192ce7a2d94caafc01a33061b4a732588ce..84756b01227650ff427c3473bb6f57f656cc18e2 100644 --- a/test/QrAlgo_test.jl +++ b/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))