From b4b32e55470f40d0cc5b97964462ee5213180d3e Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 1 Jul 2011 11:38:04 -0400 Subject: [PATCH] Fixed uid on source particles. --- src/source.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/source.f90 b/src/source.f90 index edc262c5fa..1cadd571cb 100644 --- a/src/source.f90 +++ b/src/source.f90 @@ -126,7 +126,7 @@ contains p => source_bank(source_index) ! set uid - p % uid = bank_first + source_index + p % uid = bank_first + source_index - 1 end function get_source_particle