kalmar/GroupRings.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/GroupRings.jl.git synced 2024-11-14 21:25:28 +01:00
Code Issues Releases Wiki Activity

make complete! use fastm!

Browse Source
This commit is contained in:
kalmar 2017-07-25 14:43:37 +02:00
parent 75627514fd
commit 147cd053e3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/GroupRings.jl
View File

@ -501,9 +501,9 @@ function complete!(RG::GroupRing)
if !isdefined(RG, :basis) if !isdefined(RG, :basis)
RG.basis = [elements(RG.group)...] RG.basis = [elements(RG.group)...]
end end
if !isdefined(RG, :basis_dict)
RG.basis_dict = reverse_dict(RG.basis) fastm!(RG, fill=true)
end
for linidx in find(RG.pm .== 0) for linidx in find(RG.pm .== 0)
i,j = ind2sub(size(RG.pm), linidx) i,j = ind2sub(size(RG.pm), linidx)
RG.pm[i,j] = RG.basis_dict[RG.basis[i]*RG.basis[j]] RG.pm[i,j] = RG.basis_dict[RG.basis[i]*RG.basis[j]]