More array size changes in groupr

njoy · Aug 23, 2023 · 53057d2 · 53057d2
1 parent ba34c1a
commit 53057d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/groupr.f90 b/src/groupr.f90
@@ -6440,7 +6440,7 @@ subroutine getyld(e,enext,idis,yld,mat,mf,mt,lfs,itape)
 
    !--initialize
    if (e.gt.zero) go to 200
-   ntmp=10000
+   ntmp=20000
    allocate(tmp(ntmp))
    mft=mf
    if (mft.ge.40000000) mft=10
@@ -11385,7 +11385,7 @@ subroutine conver(nin,nout,nscr)
    call contio(nin,nout,nscr,scr,nb,nw)
    if (mfh.eq.0) go to 110
    if (mth.ne.452) go to 595
-   nnu=10000
+   nnu=20000
    allocate(nu(nnu))
    l=1
    lnu=l2h