From e5c8770ed894860b80635b5fdd97a5d372981186 Mon Sep 17 00:00:00 2001 From: Wim Haeck Date: Mon, 24 Jul 2023 12:34:51 -0600 Subject: [PATCH 1/2] Adding Skip's group-li fix --- src/groupr.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/groupr.f90 b/src/groupr.f90 index b81a8c9d..068f6c89 100644 --- a/src/groupr.f90 +++ b/src/groupr.f90 @@ -7436,7 +7436,7 @@ subroutine getmf6(ans,ed,enext,idisc,yld,eg,ng,nl,iglo,ng2,nq,& real(kr)::ed,enext,yld real(kr)::ans(nlg,*),eg(*) ! internals - integer::mfn,nb,nw,lct,lct3,ik,nne,ne,int,nss + integer::mfn,nb,nw,lct3,ik,nne,ne,int,nss integer::ie,ilo,jlo,jhi,ii,nn,nnn,langn,lepn,idis,jzap integer::nk,jzad,lang,lep,i,npsx,irr,npp,nmu,l1 integer::j,iss,ip,ir,jgmax,jj,jg,ndlo,nplo,nclo,nphi,nchi @@ -7466,7 +7466,7 @@ subroutine getmf6(ans,ed,enext,idisc,yld,eg,ng,nl,iglo,ng2,nq,& save nne,ne,int save jlo,elo,jhi,ehi,terml save pspmax,langn,lepn,disc102 - save idis,iyss,izss,jjss,jloss,nss,jzap,lct3,lct + save idis,iyss,izss,jjss,jloss,nss,jzap,lct3 !--initialize if (ed.gt.zero) go to 200 From bde623a54c351ae7959571057ac5d48b1965fc19 Mon Sep 17 00:00:00 2001 From: Wim Haeck Date: Mon, 24 Jul 2023 12:35:36 -0600 Subject: [PATCH 2/2] Updating release notes and version number --- ReleaseNotes.md | 4 ++++ src/vers.f90 | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ReleaseNotes.md b/ReleaseNotes.md index 29f61344..60cc3517 100644 --- a/ReleaseNotes.md +++ b/ReleaseNotes.md @@ -1,6 +1,10 @@ # Release Notes—NJOY2016 Given here are some release notes for NJOY2016. Each release is made through a formal [Pull Request](https://github.com/njoy/NJOY2016/pulls) made on GitHub. There are links in this document that point to each of those Pull Requests, where you can see in great details the changes that were made. Often the Pull Requests are made in response to an [issue](https://github.com/njoy/NJOY2016/issues). In such cases, links to those issues are also given. +## [NJOY2016.72](https://github.com/njoy/NJOY2016/pull/xxx) +This update fixes the following issues: + - Fixed an issue in GROUPR related to an error coming up in production matrix calculations. Depending on when a user asks for a production matrix associated to a reaction, it is possible that the reference frame of the previous reaction is used instead (caused by erronously defining an already declared global variable as local with a "save" attribute). In some circumstances, this causes NJOY2016 to error out (with a message related to unsupported reference frames). No test results had to be updated due to this change. + ## [NJOY2016.71](https://github.com/njoy/NJOY2016/pull/301) This update adds the new MF7 MT451 (thermal scattering general information) ENDF format to MODER so that this module will be able to interpret the new MF7 section. No other capability in NJOY2016 currently uses the information in this section. diff --git a/src/vers.f90 b/src/vers.f90 index 8f222095..d20682bb 100644 --- a/src/vers.f90 +++ b/src/vers.f90 @@ -3,6 +3,6 @@ module version ! These values are updated during the NJOY revision-control process. implicit none private - character(8),public::vers='2016.71' - character(8),public::vday='14Jul23' + character(8),public::vers='2016.72' + character(8),public::vday='xxSepXX' end module version