From 5c1a1226fe70450ba5cefa72fa045c07f4df9839 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 15 Jul 2011 16:49:53 -0400 Subject: [PATCH] Fixed i_history in main to be int8. This caused problems before when trying to run greater than 2**31 - 1 particles per cycle. --- src/main.f90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/main.f90 b/src/main.f90 index 08fca798f..1d2efa1cf 100644 --- a/src/main.f90 +++ b/src/main.f90 @@ -99,13 +99,13 @@ contains subroutine run_problem() - integer :: i, j - integer :: ierr - integer :: i_cycle ! cycle index - integer :: i_particle ! history index - integer :: total_bank ! total number of particles banked - real(8) :: t0 - real(8) :: t1 + integer :: i, j + integer :: ierr + integer :: i_cycle ! cycle index + integer(8) :: i_particle ! history index + integer :: total_bank ! total number of particles banked + real(8) :: t0 + real(8) :: t1 type(Particle), pointer :: p => null() character(250) :: msg @@ -137,7 +137,7 @@ contains ! set random number seed i_particle = (i_cycle-1)*n_particles + p % uid - call RN_init_particle(int(i_particle,8)) + call RN_init_particle(i_particle) ! transport particle call transport(p)