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

Fixed i_history in main to be int8. This caused problems before when trying to run greater than 2**31 - 1 particles per cycle.

Browse source
This commit is contained in:
Paul Romano 2011-07-15 16:49:53 -04:00
parent dc9d090227
commit 5c1a1226fe
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/main.f90
View file

@ -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)