From 0ced86c595947c64b72386fc41d2fe53938a21e1 Mon Sep 17 00:00:00 2001 From: Sterling Harper Date: Thu, 13 Jul 2017 12:31:06 -0400 Subject: [PATCH] Make sure sab_frac is defined --- src/cross_section.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/cross_section.F90 b/src/cross_section.F90 index 0b3c1fdb0c..68955f2dfc 100644 --- a/src/cross_section.F90 +++ b/src/cross_section.F90 @@ -65,6 +65,7 @@ contains ! CHECK FOR S(A,B) TABLE i_sab = 0 + sab_frac = ZERO ! Check if this nuclide matches one of the S(a,b) tables specified. ! This relies on i_sab_nuclides being in sorted order