Merge pull request #301 from njoy/develop

NJOY2016.71

ReleaseNotes.md

@@ -1,6 +1,11 @@
 # 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.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.
+
+This update also resolves an issue encountered when processing some JENDL5 evaluation that use LAW=7 (which ACER converts into LAW=1) due to errors in the temporary files. See issue #293 for more information.
+
 ## [NJOY2016.70](https://github.com/njoy/NJOY2016/pull/295)
 This update fixes a number of minor issues:
   - Fixed an issue in HEATR when reading evaluations with large multiplicity tables in MF6.

src/acefc.f90

@@ -2311,7 +2311,7 @@ subroutine topfil(nin,nout,matd,newfor)
             else if (lf.eq.7.and.newfor.eq.1.and.no7.eq.1) then
                ! law=7 for newfor=1 -- convert the law7
                ! data into law1 format.
-               call tab2io(nin,0,0,b,nb,nw)
+               call tab2io(nin,0,0,b,nb,nwb)
                ne=nint(b(6))
                do ie=1,ne
                   ! read in the data
@@ -2334,7 +2334,7 @@ subroutine topfil(nin,nout,matd,newfor)
                   if (ie.eq.1) then
                      b(3)=10+intmu
                      b(4)=intep
-                     call tab2io(0,nout,0,b,nb,nw)
+                     call tab2io(0,nout,0,b,nb,nwb)
                      ncs(nxc)=ncs(nxc)+2
                   endif
                   ! construct a union grid for eprime

src/moder.f90

@@ -1063,6 +1063,17 @@ subroutine file7(nin,nout,nscr,a)
          call error('file7',strng,' ')
       endif
 
+   !--general information (mt=451)
+   else if (mth.eq.451) then
+
+      n=l1h
+      do i=1,n
+         call listio(nin,nout,nscr,a,nb,nw)
+         do while (nb.ne.0)
+            call moreio(nin,nout,nscr,a,nb,nw)
+         enddo
+      enddo
+
    !--illegal mt
    else
       write(strng,'(''illegal mt='',i3)') mth

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.70'
-   character(8),public::vday='04Apr23'
+   character(8),public::vers='2016.71'
+   character(8),public::vday='14Jul23'
 end module version