Merge pull request #146 from njoy/fix/acer-missing-particle

Added test to detect missing outgoing particle in acelf6
njoy · Jan 22, 2020 · d0cab91 · d0cab91
2 parents e7eae75 + f9fd661
commit d0cab91
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/acefc.f90 b/src/acefc.f90
@@ -7032,6 +7032,10 @@ subroutine acelf6(next,i,matd,mt,q,iza,izai,nin,newfor,ismooth)
       endif
       if (ikk.eq.nk) idone=1
    enddo
+   if (ik.eq.0) then
+      write(strng,'(''outgoing'',i6,'' mt '',i3)') izai,mt
+      call error('acelf6','could not find required mf6 subsection',strng)
+   endif
    if (ik.gt.1) write(nsyso,&
      '(/'' multiple mf6 subsections found for mt='',i3)') mth
    if (ivar.eq.1) write(nsyso,&

diff --git 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.54'
-   character(8),public::vday='16Jan20'
+   character(8),public::vers='2016.55'
+   character(8),public::vday='21Jan20'
 end module version