From f8241f567f238df7bddbcf77756945d8e567db56 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 24 Mar 2021 07:56:01 -0500
Subject: [PATCH] Change indexing for prn sampling for URR ptables

---
 src/nuclide.cpp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/nuclide.cpp b/src/nuclide.cpp
index 5ecbdc3b4..b29c0463a 100644
--- a/src/nuclide.cpp
+++ b/src/nuclide.cpp
@@ -808,9 +808,7 @@ void Nuclide::calculate_urr_xs(int i_temp, Particle& p) const
   // reuse random numbers for the same nuclide at different temperatures,
   // therefore preserving correlation of temperature in probability tables.
   p.stream_ = STREAM_URR_PTABLE;
-  //TODO: to maintain the same random number stream as the Fortran code this
-  //replaces, the seed is set with index_ + 1 instead of index_
-  double r = future_prn(static_cast<int64_t>(index_ + 1), *p.current_seed());
+  double r = future_prn(static_cast<int64_t>(index_), *p.current_seed());
   p.stream_ = STREAM_TRACKING;
 
   int i_low = 0;