From 5b44c46e709a003320f7991978cb3f3b805190f0 Mon Sep 17 00:00:00 2001
From: Daniele Micheletti <daniele.micheletti@istp.cnr.it>
Date: Wed, 21 Jun 2017 09:16:10 +0000
Subject: [PATCH] trunk/dispersion: added npra2 re-initialization if
 convergence fails

---
 src/dispersion.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/dispersion.f90 b/src/dispersion.f90
index 0d780e4..ab2529d 100644
--- 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