Bug fix: A function was not robust enough towards small rouding errors.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11281 c92efa57-630b-4861-b058-cf58834340f0