fixed problem with ifc compiler [Gerardo]

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@419 c92efa57-630b-4861-b058-cf58834340f0
2003-11-21 11:27:32 +00:00 · 2003-11-21 11:27:32 +00:00 · 155794554e
parent bdd5bd96ea
commit 155794554e
1 changed files with 5 additions and 0 deletions
--- a/CPV/cprsub.f90
+++ b/CPV/cprsub.f90
@ -98,6 +98,11 @@
 !
      !use cell_base
      use gvec
+
+      ! this isn't really needed, but if I remove it, ifc 7.1
+      ! gives an "internal compiler error"
+      use reciprocal_vectors, only: ng0 => gstart
+
      use constants, only: pi, fpi
      use cell_base, only: ainv
      implicit none