From d34cf26e2c1467f77cd75d743b26303e83121636 Mon Sep 17 00:00:00 2001 From: Wim Haeck Date: Tue, 21 Feb 2023 11:31:11 -0700 Subject: [PATCH 1/2] Added a test to avoid crash if nendf = 0 when iinc = 2 --- src/thermr.f90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/thermr.f90 b/src/thermr.f90 index e389028f..8287c94a 100644 --- a/src/thermr.f90 +++ b/src/thermr.f90 @@ -286,6 +286,11 @@ subroutine thermr endif write(nsyso,'(/'' endf uses endf-'',i1,'' format'')') iverf + !--verify if nendf != 0 for iinc == 2 + if (nendf.eq.0.and.iinc.eq.2) then + call error('thermr','No ENDF tape given for iinc=2 (nendf is 0)',' ') + endif + !--initialize i/o units iold=10 inew=11 From 334d1257cbbe70a6487e57cc6f9f1112eacee0bf Mon Sep 17 00:00:00 2001 From: Wim Haeck Date: Tue, 21 Feb 2023 13:14:08 -0700 Subject: [PATCH 2/2] Updating release notes --- ReleaseNotes.md | 1 + 1 file changed, 1 insertion(+) diff --git a/ReleaseNotes.md b/ReleaseNotes.md index 6375b07a..dba34514 100644 --- a/ReleaseNotes.md +++ b/ReleaseNotes.md @@ -4,6 +4,7 @@ Given here are some release notes for NJOY2016. Each release is made through a f ## [NJOY2016.70](https://github.com/njoy/NJOY2016/pull/xxx) This update fixes a number of minor issues: - Fixed an issue in HEATR when reading evaluations with large multiplicity tables in MF6. + - Fixed a crash in THERMR when asking for S(a,b) processing (iinc=2) while no ENDF tape is given (nendf=0). A few compiler warnings have been resolved as well (unused variables). For source files that were corrected in this way, the remaining warnings relate to equality comparisons for real values, unused dummy arguments in subroutines and potential 0 indices into arrays (in all cases, if statements prevented this from happening).