istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

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

Browse Source
This commit is contained in:
Daniele Micheletti 2017-06-21 09:16:10 +00:00
parent 4f0cc7fb47
commit 5b44c46e70
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/dispersion.f90
View File

@ -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 if (imx.lt.0) then
err=1 err=1
imxx=1 imxx=1
npra2=nprf**2
else else
err=2 err=2
exit exit