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

An IF statement (line 119) that causes an array ot of bound exception on alpha 

compiler has been modified.
C.S.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@403 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia 2003-11-18 18:33:31 +00:00
parent 17356543fc
commit b3127cda0a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PW/qvan2.f90
View File

@ -63,6 +63,8 @@ subroutine qvan2 (ngy, ih, jh, np, qmod, qg, ylmk0)
! auxiliary variables for intepolation
! auxiliary variable
!
LOGICAL :: ltest
!
! compute the indices which correspond to ih,jh
!
sixth = 1.d0 / 6.d0
@ -112,7 +114,9 @@ subroutine qvan2 (ngy, ih, jh, np, qmod, qg, ylmk0)
!
! calculate quantites depending on the module of G only when needed
!
if (ig.eq.1.or.abs (qmod (ig) - qmod (ig - 1) ) .gt.1.0d-6) then
IF ( ig > 1 ) ltest = ABS( qmod(ig) - qmod(ig-1) ) > 1.0D-6
!
IF ( ig == 1 .OR. ltest ) THEN
qm = qmod (ig) * dqi
px = qm - int (qm)
ux = 1.d0 - px