@@ -31,8 +31,8 @@ function _leftorth!(t, alg::Union{OFA,AbstractAlgorithm}; kwargs...)
3131
3232 kind = _kindof (alg)
3333 if kind == :svd
34- alg_svd = alg === LAPACK_QRIteration () ? alg :
35- alg === LAPACK_DivideAndConquer () ? alg :
34+ alg_svd = alg === LAPACK_QRIteration () ? alg :
35+ alg === LAPACK_DivideAndConquer () ? alg :
3636 alg === SVD () ? LAPACK_QRIteration () :
3737 alg === SDD () ? LAPACK_DivideAndConquer () :
3838 throw (ArgumentError (lazy " Unknown algorithm $alg" ))
5050_leftorth! (t, alg; kwargs... ) = left_orth! (t, alg; kwargs... )
5151
5252function leftnull! (t:: AbstractTensorMap ;
53- alg:: Union{LAPACK_HouseholderQR,LAPACK_QRIteration, LAPACK_DivideAndConquer,PolarViaSVD,QR,QRpos,SVD,SDD,Nothing} = nothing , kwargs... )
53+ alg:: Union {LAPACK_HouseholderQR,LAPACK_QRIteration,
54+ LAPACK_DivideAndConquer,PolarViaSVD,QR,QRpos,SVD,SDD,Nothing}= nothing ,
55+ kwargs... )
5456 InnerProductStyle (t) === EuclideanInnerProduct () ||
5557 throw_invalid_innerproduct (:leftnull! )
5658 trunc = isempty (kwargs) ? nothing : (; kwargs... )
@@ -60,8 +62,8 @@ function leftnull!(t::AbstractTensorMap;
6062
6163 kind = _kindof (alg)
6264 if kind == :svd
63- alg_svd = alg === LAPACK_QRIteration () ? alg :
64- alg === LAPACK_DivideAndConquer () ? alg :
65+ alg_svd = alg === LAPACK_QRIteration () ? alg :
66+ alg === LAPACK_DivideAndConquer () ? alg :
6567 alg === SVD () ? LAPACK_QRIteration () :
6668 alg === SDD () ? LAPACK_DivideAndConquer () :
6769 throw (ArgumentError (lazy " Unknown algorithm $alg" ))
@@ -75,11 +77,13 @@ function leftnull!(t::AbstractTensorMap;
7577end
7678
7779function rightorth! (t:: AbstractTensorMap ;
78- alg:: Union{LAPACK_HouseholderLQ,LAPACK_QRIteration, LAPACK_DivideAndConquer,PolarViaSVD,LQ,LQpos,RQ,RQpos,SVD,SDD,Polar,Nothing} = nothing , kwargs... )
80+ alg:: Union {LAPACK_HouseholderLQ,LAPACK_QRIteration,
81+ LAPACK_DivideAndConquer,PolarViaSVD,LQ,LQpos,RQ,RQpos,SVD,
82+ SDD,Polar,Nothing}= nothing , kwargs... )
7983 InnerProductStyle (t) === EuclideanInnerProduct () ||
8084 throw_invalid_innerproduct (:rightorth! )
8185 trunc = isempty (kwargs) ? nothing : (; kwargs... )
82-
86+
8387 alg isa OFA && Base. depwarn (lazy " $alg is deprecated" , :rightorth! )
8488
8589 isnothing (alg) && return right_orth! (t; trunc)
@@ -94,8 +98,8 @@ function rightorth!(t::AbstractTensorMap;
9498
9599 kind = _kindof (alg)
96100 if kind == :svd
97- alg_svd = alg === LAPACK_QRIteration () ? alg :
98- alg === LAPACK_DivideAndConquer () ? alg :
101+ alg_svd = alg === LAPACK_QRIteration () ? alg :
102+ alg === LAPACK_DivideAndConquer () ? alg :
99103 alg === SVD () ? LAPACK_QRIteration () :
100104 alg === SDD () ? LAPACK_DivideAndConquer () :
101105 throw (ArgumentError (lazy " Unknown algorithm $alg" ))
@@ -111,7 +115,9 @@ function rightorth!(t::AbstractTensorMap;
111115end
112116
113117function rightnull! (t:: AbstractTensorMap ;
114- alg:: Union{LAPACK_HouseholderLQ, LAPACK_QRIteration, LAPACK_DivideAndConquer,PolarViaSVD,LQ,LQpos,SVD,SDD,Nothing} = nothing , kwargs... )
118+ alg:: Union {LAPACK_HouseholderLQ,LAPACK_QRIteration,
119+ LAPACK_DivideAndConquer,PolarViaSVD,LQ,LQpos,SVD,SDD,
120+ Nothing}= nothing , kwargs... )
115121 InnerProductStyle (t) === EuclideanInnerProduct () ||
116122 throw_invalid_innerproduct (:rightnull! )
117123 trunc = isempty (kwargs) ? nothing : (; kwargs... )
@@ -122,8 +128,8 @@ function rightnull!(t::AbstractTensorMap;
122128
123129 kind = _kindof (alg)
124130 if kind == :svd
125- alg_svd = alg === LAPACK_QRIteration () ? alg :
126- alg === LAPACK_DivideAndConquer () ? alg :
131+ alg_svd = alg === LAPACK_QRIteration () ? alg :
132+ alg === LAPACK_DivideAndConquer () ? alg :
127133 alg === SVD () ? LAPACK_QRIteration () :
128134 alg === SDD () ? LAPACK_DivideAndConquer () :
129135 throw (ArgumentError (lazy " Unknown algorithm $alg" ))
0 commit comments