From 83a803b83f08029a45e9d636d5b4ad75045cfa12 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Mon, 9 Jan 2012 13:14:49 -0500
Subject: [PATCH] Fixed bug with probability tables (default target velocity).

---
 src/physics.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/physics.F90 b/src/physics.F90
index 4d9a20d336..b0f1e2e2cd 100644
--- a/src/physics.F90
+++ b/src/physics.F90
@@ -498,6 +498,8 @@ contains
     ! Sample velocity of target nucleus
     if (.not. micro_xs(index_nuclide) % use_ptable) then
        call sample_target_velocity(p, nuc, v_t)
+    else
+       v_t = ZERO
     end if
 
     ! Velocity of center-of-mass