From 7354340d65317972586ec3911112a5836e2fdfed Mon Sep 17 00:00:00 2001
From: MichelJuillard <michel.juillard@mjui.fr>
Date: Wed, 31 Mar 2021 18:26:06 +0200
Subject: [PATCH] adding QR test
---
test/QrAlgo_test.jl | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
create mode 100644 test/QrAlgo_test.jl
diff --git a/test/QrAlgo_test.jl b/test/QrAlgo_test.jl
new file mode 100644
index 0000000..5729d19
--- /dev/null
+++ b/test/QrAlgo_test.jl
@@ -0,0 +1,25 @@
+
+n = 10
+
+#for elty in (Float32, Float64, ComplexF32, ComplexF64)
+
+# A0 = randn(elty, n, n)
+ A0 = randn(n, n)
+
+ A = copy(A0)
+ ws = QrAlgo.QrpWs(A)
+
+ QrAlgo.geqp3!(A, ws)
+
+ target = qr(A0, Val(true))
+
+#display(triu(A))
+#display(triu(target.R))
+
+
+A = randn(n, 15)
+vA = zeros(n, 2)
+vA .= view(A, :, [7, 9])
+ws = QrAlgo.QrWs(vA)
+geqrf_core!(vA, ws)
+ormqr_core!('L', vA', A, ws)
--
GitLab