crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fix multipole l value counting

Browse source
This commit is contained in:
Sterling Harper 2018-03-14 12:51:19 -04:00
parent b71ad222d0
commit 1e49f3c889
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/multipole_header.F90
View file

@ -147,7 +147,7 @@ contains
! Figure out the number of unique l values in the l_value array.
do i = 1, n_poles
if (.not. l_val_dict % has(this % l_value(i))) then
call l_val_dict % set(i, 0)
call l_val_dict % set(this % l_value(i), 0)
end if
end do
this % num_l = l_val_dict % size()