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

fixed multigroup index mapping

Browse source
This commit is contained in:
Bryan Herman 2012-04-04 07:39:52 -07:00
parent 1e7ea6dbad
commit 9442aa0fe0
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmfd_loss_operator.F90
View file

@ -460,9 +460,9 @@ contains
! get indices from indexmap
g = mod(irow,ng) + 1
i = cmfd % indexmap(irow+1,1)
j = cmfd % indexmap(irow+1,2)
k = cmfd % indexmap(irow+1,3)
i = cmfd % indexmap(irow/ng+1,1)
j = cmfd % indexmap(irow/ng+1,2)
k = cmfd % indexmap(irow/ng+1,3)
else

6
src/cmfd_prod_operator.F90
View file

@ -281,9 +281,9 @@ contains
! get indices from indexmap
g = mod(irow,ng) + 1
i = cmfd % indexmap(irow+1,1)
j = cmfd % indexmap(irow+1,2)
k = cmfd % indexmap(irow+1,3)
i = cmfd % indexmap(irow/ng+1,1)
j = cmfd % indexmap(irow/ng+1,2)
k = cmfd % indexmap(irow/ng+1,3)
else