Skip to content

Commit

Permalink
Merge branch 'develop' into fix/mf35-sequence
Browse files Browse the repository at this point in the history
  • Loading branch information
whaeck authored Feb 28, 2023
2 parents cf2d9f7 + 613efe8 commit e76c6eb
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 0 deletions.
1 change: 1 addition & 0 deletions ReleaseNotes.md
Original file line number Diff line number Diff line change
Expand Up @@ -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).
- Multiple ERRORR calls can now be made in the same input file without crashing. This is of interest to users that wish to process MF34 and MF35 (where ERRORR needs to be called for each sub-subsection and incident energy group).

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).
Expand Down
5 changes: 5 additions & 0 deletions src/thermr.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit e76c6eb

Please sign in to comment.