diff --git a/src/acefc.f90 b/src/acefc.f90 index 3357d765..8475d1a4 100644 --- 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 index 436dec3d..457ab327 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.54' - character(8),public::vday='16Jan20' + character(8),public::vers='2016.55' + character(8),public::vday='21Jan20' end module version