crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Allow runs with more than 2147483647 particles.

Browse source
This commit is contained in:
Paul Romano 2011-07-08 20:10:48 -04:00
parent 229903b7bb
commit dc9d090227
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/global.f90
View file

@ -68,7 +68,7 @@ module global
integer(8) :: n_bank ! # of sites in fission bank
integer(8) :: bank_first ! index of first particle in bank
integer(8) :: bank_last ! index of last particle in bank
integer :: work ! number of particles per processor
integer(8) :: work ! number of particles per processor
! cycle keff
real(8) :: keff
@ -362,7 +362,7 @@ contains
function str_to_int(str) result(num)
character(*), intent(in) :: str
integer :: num
integer(8) :: num
character(5) :: fmt
integer :: w

4
src/source.f90
View file

@ -21,7 +21,7 @@ contains
integer :: i ! loop index over processors
integer(8) :: j ! loop index over bank sites
integer :: k ! dummy loop index
integer :: maxwork ! maxinum # of particles per processor
integer(8) :: maxwork ! maxinum # of particles per processor
real(8) :: r(3) ! sampled coordinates
real(8) :: phi ! azimuthal angle
real(8) :: mu ! cosine of polar angle
@ -35,7 +35,7 @@ contains
! Determine maximum amount of particles to simulate on each
! processor
maxwork = ceiling(real(n_particles)/n_procs)
maxwork = ceiling(real(n_particles)/n_procs,8)
! Allocate fission and source banks
allocate(source_bank(maxwork))