Some quality of life improvements

Author: whaeck

src/groupr.f90

@@ -6514,6 +6514,7 @@ subroutine getyld(e,enext,idis,yld,mat,mf,mt,lfs,itape)
    enext=tmp(7+2*nr)
   190 continue
    idis=0
+   if (allocated(yield)) deallocate(yield)
    allocate(yield(na))
    do i=1,na
       yield(i)=tmp(i)

src/moder.f90

@@ -59,7 +59,7 @@ subroutine moder
    character(4)::hb(17)
    real(kr)::rb(17)
    equivalence(hb(1),rb(1))
-   real(kr)::a(5200)
+   real(kr),allocatable::a(:)
    real(kr)::z(20)
    character(4)::zc(20)
    equivalence(zc(1),z(1))
@@ -68,6 +68,8 @@ subroutine moder
    ninl=0
    matl=-2
 
+   allocate(a(1000000)) ! deallocated automatically at end of subroutine
+
    !--read user input, initialize,
    !--and write output header.
    call timer(time)