@@ -166,40 +166,6 @@ function Base.conj(a::BimoduleSector)
166166    return  A4Object (a. j, a. i, _get_dual_cache (typeof (a))[2 ][a. i,a. j][a. label])
167167end 
168168
169- #  function extract_Fsymbol(::Type{A4Object})
170- #      return mapreduce((x, y) -> cat(x, y; dims=1), 1:12) do i
171- #          filename = joinpath(artifact_path, "A4", "Fsymbol_$i.json")
172- #          @assert isfile(filename) "cannot find $filename"
173- #          json_string = read(filename, String)
174- #          Farray_part = copy(JSON3.read(json_string)) # Dict with one entry, that entry has as value a Dict (a,b,c,d,e,f) of Dicts (re, im)
175- #          return map(enumerate(Farray_part[Symbol(i)])) do (I, x)
176- #              j, k, l = Tuple(CartesianIndices((12, 12, 12))[I])
177- #              y = Dict{NTuple{6,Int},Array{ComplexF64,4}}()
178- #              for (key, v) in x
179- #                  a, b, c, d, e, f = parse.(Int, split(string(key)[2:(end - 1)], ", "))
180- #                  a_ob, b_ob, c_ob, d_ob, e_ob, f_ob = A4Object.(((i, j, a), (j, k, b),
181- #                                                                  (k, l, c), (i, l, d),
182- #                                                                  (i, k, e), (j, l, f)))
183- #                  result = Array{ComplexF64,4}(undef,
184- #                                               (Nsymbol(a_ob, b_ob, e_ob),
185- #                                                Nsymbol(e_ob, c_ob, d_ob),
186- #                                                Nsymbol(b_ob, c_ob, f_ob),
187- #                                                Nsymbol(a_ob, f_ob, d_ob)))
188- #                  #@show size(result), a_ob, b_ob, c_ob, d_ob, e_ob, f_ob, v
189- #                  #@show result, v
190- #                  s1 = length(result)
191- #                  s2 = length(v)
192- #                  @assert s1 == s2 "$s1, $s2, $a_ob, $b_ob, $c_ob, $d_ob, $e_ob, $f_ob, $v, $result"
193- #                  map!(result, reshape(v, size(result))) do cmplxdict
194- #                      return complex(cmplxdict[:re], cmplxdict[:im])
195- #                  end
196- 
197- #                  y[(a, b, c, d, e, f)] = result
198- #              end
199- #          end
200- #      end
201- #  end
202- 
203169function  extract_Fsymbol (:: Type{A4Object} )
204170    return  mapreduce ((colordict, Fdict) ->  cat (colordict, Fdict; dims= 1 ), 1 : 12 ) do  i
205171        filename =  joinpath (artifact_path, " A4" " Fsymbol_$i .txt" 
@@ -258,7 +224,6 @@ function convert_Fs(Farray_part::Matrix{Float64}) # Farray_part is a matrix with
258224    return  data_dict
259225end 
260226
261- #  TODO : do we want this type for Fcache?
262227const  Fcache =  IdDict{Type{<: BimoduleSector },
263228                      Array{Dict{NTuple{4 , Int64}, Dict{NTuple{6 , Int64}, Array{ComplexF64, 4 }}}}}()
264229
0 commit comments