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

fixed an index error in core map routine

Browse source
This commit is contained in:
Bryan Herman 2012-01-03 15:38:58 -08:00
parent 3bc1f734fc
commit 2b7d2d3908
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmfd_utils.F90
View file

@ -435,11 +435,11 @@ contains
nz = cmfd % indices(3)
! begin loops over spatial indices
ZLOOP: do i = 1,nz
ZLOOP: do k = 1,nz
YLOOP: do j = 1,ny
XLOOP: do k = 1,nx
XLOOP: do i = 1,nx
! check for reflector
if (cmfd % coremap(i,j,k) == 1) then