From 7704390a3b3e0f5aef46df8b68041a9f022f637d Mon Sep 17 00:00:00 2001 From: walshjon Date: Sat, 17 Feb 2018 15:39:55 -0800 Subject: [PATCH] remove . --- src/physics.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/physics.F90 b/src/physics.F90 index 6c267d8758..b614b81851 100644 --- a/src/physics.F90 +++ b/src/physics.F90 @@ -931,7 +931,7 @@ contains E_rel = dot_product((v_neut - v_target), (v_neut - v_target)) if (E_rel < E_up) exit TARGET_ENERGY_LOOP end do TARGET_ENERGY_LOOP - + ! perform Doppler broadening rejection correction (dbrc) xs_0K = elastic_xs_0K(E_rel, nuc) R = xs_0K / xs_max