Merge pull request #93 from njoy/feature/purr-endf8

Feature/purr endf8

Author: whaeck

src/unresr.f90

@@ -592,6 +592,11 @@ subroutine rdunf2(eunr,scr,arry,jx)
          call ilist(enow,eunr,nunr)
       endif
    enddo
+   if (enow.lt.eh) then
+      write(strng,&
+        '(''between'',1p,e12.4,'' and'',1p,e12.4,'' eV'')') enow, eh
+      call error('rdunf2','energy dependent data undefined',strng) 
+   endif
    ! loop over l states
    do l=1,nls
       call contio(nendf,0,0,scr,nb,nw)
@@ -669,12 +674,17 @@ subroutine rdunf2(eunr,scr,arry,jx)
             enddo
             inow=inow+6
             ! add to list of energy nodes
+            enow=sigfig(scr(jnow+1),7,0)
             if (n.ne.1.and.n.ne.ne.and.l.eq.1.and.j.eq.1) then
-               enow=sigfig(scr(jnow+1),7,0)
                call ilist(enow,eunr,nunr)
             endif
             jnow=jnow+6
          enddo
+         if (enow.lt.eh) then
+            write(strng,&
+              '(''between'',1p,e12.4,'' and'',1p,e12.4,'' eV'')') enow, eh
+            call error('rdunf2','energy dependent data undefined',strng) 
+         endif
       enddo
    enddo
    if (inow.gt.jx) call error('rdunf2','storage exceeded.',' ')

src/vers.f90

@@ -3,7 +3,7 @@ module version
    ! These values are updated during the NJOY revision-control process.
    implicit none
    private
-   character(8),public::vers='2016.38'
-   character(8),public::vday='18Jun18'
+   character(8),public::vers='2016.39'
+   character(8),public::vday='03Jul18'
 end module version