From dc9d090227766ce222b7d33da65ed856ec145fd8 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 8 Jul 2011 20:10:48 -0400 Subject: [PATCH] Allow runs with more than 2147483647 particles. --- src/global.f90 | 4 ++-- src/source.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/global.f90 b/src/global.f90 index 6995cd66e5..2cad2c5ef4 100644 --- a/src/global.f90 +++ b/src/global.f90 @@ -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 diff --git a/src/source.f90 b/src/source.f90 index 1cadd571cb..0aa4104c15 100644 --- a/src/source.f90 +++ b/src/source.f90 @@ -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))