5959
6060for f in (:qr , :lq )
6161 remove_f_gauge_dependence! = Symbol (:remove_ , f, :_gauge_dependence! )
62- remove_f_null_gauge_dependence! = Symbol (:remove_ , f, :_null_gauge_dependence! )
6362 @eval function MAK. $remove_f_gauge_dependence! (
6463 ΔF₁:: AbstractTensorMap , ΔF₂:: AbstractTensorMap , A, F₁, F₂;
6564 kwargs...
6665 )
6766 foreachblock (ΔF₁, ΔF₂, A, F₁, F₂) do _, (Δf₁, Δf₂, a, f₁, f₂)
68- MAK.$ remove_f_gauge_dependence! (Δf₁, Δf₂, a, f₁, f₂)
67+ MAK.$ remove_f_gauge_dependence! (Δf₁, Δf₂, a, f₁, f₂; kwargs ... )
6968 return nothing
7069 end
7170 return ΔF₁, ΔF₂
@@ -88,22 +87,12 @@ for f in (:eig, :eigh)
8887 end
8988 return ΔV
9089 end
91- @eval function MAK. $remove_f_gauge_dependence! (ΔV:: AbstractTensorMap , D, V, inds; kwargs... )
92- foreachblock (ΔV, D, V) do c, (Δv, d, v)
93- haskey (inds, c) || return nothing
94- ind = inds[c]
95- MAK.$ remove_f_gauge_dependence! (Δv, d, v, ind; kwargs... )
96- return nothing
97- end
98- return ΔV
99- end
10090end
10191function MAK. remove_svd_gauge_dependence! (
102- ΔU:: AbstractTensorMap , ΔVᴴ:: AbstractTensorMap , U, S, Vᴴ;
103- kwargs...
92+ ΔU:: AbstractTensorMap , ΔVᴴ:: AbstractTensorMap , U, S, Vᴴ; kwargs...
10493 )
10594 foreachblock (ΔU, ΔVᴴ, U, S, Vᴴ) do c, (Δu, Δvᴴ, u, s, vᴴ)
106- MAK. remove_svd_gauge_dependence! (Δu, Δvᴴ, u, s, vᴴ)
95+ MAK. remove_svd_gauge_dependence! (Δu, Δvᴴ, u, s, vᴴ; kwargs ... )
10796 return nothing
10897 end
10998 return ΔU, ΔVᴴ
0 commit comments