Merge branch 'master' into fix/acer-missing-particle

njoy · Jan 22, 2020 · f9fd661 · f9fd661
2 parents ea2ab8c + e7eae75
commit f9fd661
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/heatr.f90 b/src/heatr.f90
@@ -2791,6 +2791,14 @@ subroutine sixbar(e,ebar,yld,dame,nin,c,ncmax,nscr,b,nbmax,&
    awp=c2h
    law=l2h
    l=l+nw
+
+   !--error for awp=0. for non photons
+   if (zap.ne.0.and.awp.eq.0) then
+     write(strng,'(''awp is zero for for mt'',i3,'' particle '',i5)')&
+       mth,nint(zap)
+     call error('sixbar',strng,' ')
+   endif
+
    do while (nb.ne.0)
       call moreio(nin,0,0,c(l),nb,nw)
       l=l+nw