fixed calculation of source distribution

This commit is contained in:
Bryan Herman 2012-02-27 11:33:06 -08:00
parent 3b61602b24
commit fbb705359e

View file

@ -189,7 +189,7 @@ contains
! bank source
cmfd % openmc_src(g,i,j,k) = cmfd % openmc_src(g,i,j,k) + &
& cmfd % nfissxs(h,g,i,j,k)
& t % scores(score_index,2) % val
end do INGROUP