fixed index in sammy background array for LRF=3, and the overwriting of number of channels when there is a 2nd fission channel width at a lower energy than a 1st fission channel width

Author: amlewis1578

src/reconr.f90

@@ -147,9 +147,9 @@ subroutine reconr
 
    !--set samrml options
    Want_Partial_Derivs=.false.
-   Want_Angular_Dist=.false.
+   Want_Angular_Dist=.true.
    Want_SAMRML_BW=.false.
-   Want_SAMRML_RM=.false.
+   Want_SAMRML_RM=.true.
 
    !--define local i/o units
    nscr1=-10

src/samm.f90

@@ -886,7 +886,7 @@ subroutine rdsammy(nin,ier,jnow,nro,naps,mode,el,eh,&
             lspin(i,j,ier)=0
             chspin(i,j,ier)=0
             backgr(i,j,ier)=0
-            backgrdata(i,igroup,ier,:)=0
+            backgrdata(i,j,ier,:)=0
          enddo
       enddo
       pari=1
@@ -1023,8 +1023,12 @@ subroutine rdsammy(nin,ier,jnow,nro,naps,mode,el,eh,&
             gamf2=res(jj+5)
             if (gamf.ne.zero) then
                gamma(2,ires,ier)=gamf
-               if (nchan(ig,ier).lt.2) then
-                  nchan(ig,ier)=2
+               if (nchan(ig,ier).ne.2) then
+                  !-- if num channels is already set to 3,
+                  !-- don't overwrite it with 2
+                  if (nchan(ig,ier).ne.3) then
+                      nchan(ig,ier)=2
+                  endif
                   ipp(2,ig,ier)=3
                endif
             endif