scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

"goto" substitute with "exit" 

gvectors modules are checked with the same tolerance
as in the sorting routine.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@270 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2003-07-22 10:02:07 +00:00
parent 98c2527cd7
commit 09f9816359
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/gk_sort.f90
View File

@ -72,7 +72,7 @@ subroutine gk_sort (k, ngm, g, ecut, ngk, igk, gk)
if ( ( g (1, ng) **2 + g (2, ng) **2 + g (3, ng) **2 ) .gt. ( q2x + eps8 ) ) exit
endif
enddo
call errore ('gk_sort', 'unexpected exit from do-loop', - 1)
if( ng > ngm ) call errore ('gk_sort', 'unexpected exit from do-loop', - 1)
!
! order vector gk keeping initial position in index
!