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

Workaround for ifc 7.1 internal compiler error 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@395 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2003-11-14 14:01:37 +00:00
parent dcf56abadb
commit 32951806bf
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CPV/modules.f90
View File

@ -98,10 +98,11 @@ module gvec
use cell_base, only: tpiba, tpiba2
use reciprocal_vectors, only: &
gl, g, gx, g2_g, mill_g, mill_l, ig_l2g, igl, bi1, bi2, bi3
use gvecp, only: &
ng => ngm, &
ngl => ngml, &
ng_g => ngmt, &
gl, g, gx, g2_g, mill_g, mill_l, ig_l2g, igl, bi1, bi2, bi3
ng_g => ngmt
! tpiba = 2*pi/alat
! tpiba2 = (2*pi/alat)**2