From f4e4304b1309e120020c7cba9e3cca1058f6fa34 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 12 Nov 2018 14:06:25 -0600 Subject: [PATCH] Fix list --- src/endf.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/endf.F90 b/src/endf.F90 index 0d458a0ab6..58b5549972 100644 --- a/src/endf.F90 +++ b/src/endf.F90 @@ -257,7 +257,7 @@ contains else retval = (MT >= MISC .and. MT /= 27) end if - elseif (MT < 200) then + elseif (MT <= 200) then retval = (.not. is_disappearance(MT)) else retval = .false.