Fixed typo

src/make_cut.f90

@@ -164,6 +164,7 @@ if (.not.params%excl_vol) then
       if (prod.lt.0.d0 .and. icut.eq.0) then
         matel=params%materialn(i)
         if (zmean.lt.mat(matel)%ztrans) matel=mat(matel)%transnum
+        matnum=matel
       endif
    enddo
 else
@@ -207,6 +208,7 @@ else
        if (lsf(1,i).lt.0.d0) then
          matel=params%materialn(i)
          if (zmean.lt.mat(matel)%ztrans) matel=mat(matel)%transnum
+         matnum=matel
        endif
      enddo
    endif