|
1 | | -# Orthogonalization |
2 | | -# ----------------- |
| 1 | +# Inputs |
| 2 | +# ------ |
3 | 3 | copy_input(::typeof(left_orth), A) = copy_input(qr_compact, A) # do we ever need anything else |
4 | 4 | copy_input(::typeof(right_orth), A) = copy_input(lq_compact, A) # do we ever need anything else |
5 | 5 | copy_input(::typeof(left_null), A) = copy_input(qr_null, A) # do we ever need anything else |
@@ -35,7 +35,8 @@ check_input(::typeof(right_null_lq!), A, Nᴴ, alg::AbstractAlgorithm) = |
35 | 35 | check_input(lq_null!, A, Nᴴ, alg) |
36 | 36 | check_input(::typeof(right_null_svd!), A, Nᴴ, alg::AbstractAlgorithm) = nothing |
37 | 37 |
|
38 | | - |
| 38 | +# Outputs |
| 39 | +# ------- |
39 | 40 | initialize_output(::typeof(left_orth!), A, alg::AbstractAlgorithm) = |
40 | 41 | initialize_output(left_orth_kind(alg), A, alg) |
41 | 42 | initialize_output(::typeof(left_orth_qr!), A, alg::AbstractAlgorithm) = |
@@ -66,8 +67,6 @@ initialize_output(::typeof(right_null_lq!), A, alg::AbstractAlgorithm) = |
66 | 67 | initialize_output(lq_null!, A, alg) |
67 | 68 | initialize_output(::typeof(right_null_svd!), A, alg::AbstractAlgorithm) = nothing |
68 | 69 |
|
69 | | -# Outputs |
70 | | -# ------- |
71 | 70 | function initialize_orth_svd(A::AbstractMatrix, F, alg) |
72 | 71 | S = Diagonal(initialize_output(svd_vals!, A, alg)) |
73 | 72 | return F[1], S, F[2] |
|
0 commit comments