Removed the check on npert <= 6. There are cases in which it could be larger.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7201 c92efa57-630b-4861-b058-cf58834340f0
2010-11-09 08:53:05 +00:00 · 2010-11-09 08:53:05 +00:00 · 9dc5e24a51
parent b8d28952a9
commit 9dc5e24a51
1 changed files with 0 additions and 1 deletions
--- a/PH/set_irr.f90
+++ b/PH/set_irr.f90
@ -259,7 +259,6 @@ subroutine set_irr (nat, at, bg, xq, s, sr, tau, ntyp, ityp, ftau, invs, nsym, &
        if (abs (eigen (imode) - eigen (imode-1) ) / (abs (eigen (imode) ) &
          + abs (eigen (imode-1) ) ) .lt.1.d-4) then
           npert (nirr) = npert (nirr) + 1
-           if (npert (nirr) .gt. 6) call errore('set_irr', 'npert > 6 ', nirr)
        else
           nirr = nirr + 1
           npert (nirr) = 1