trunk/dispersion: added npra2 re-initialization if convergence fails

2017-06-21 09:16:10 +00:00 · 2017-06-21 09:16:10 +00:00 · 5b44c46e70
commit 5b44c46e70
parent 4f0cc7fb47
1 changed files with 1 additions and 0 deletions
--- a/src/dispersion.f90
+++ b/src/dispersion.f90
@ -212,6 +212,7 @@ subroutine warmdisp(xg,yg,mu,npl,nprf,sox,lrm,err,nprr,npri,fast,imx,ex,ey,ez)
      if (imx.lt.0) then
        err=1
        imxx=1
+        npra2=nprf**2
      else
        err=2
        exit