From 53b342099d8c810842c037e73c7def7394b1338b Mon Sep 17 00:00:00 2001 From: giannozz Date: Fri, 7 Jan 2005 14:03:56 +0000 Subject: [PATCH] Variable "n" was accessed by two different modules git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1547 c92efa57-630b-4861-b058-cf58834340f0 --- CPV/cglib.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/CPV/cglib.f90 b/CPV/cglib.f90 index 329a1a15e..191ca937e 100644 --- a/CPV/cglib.f90 +++ b/CPV/cglib.f90 @@ -16,7 +16,7 @@ use cvan use uspp_param, only: nh use uspp, only :nhsa=>nkb, nhsavb=>nkbus, qq - use elct + use electrons_base, only: n => nbnd use gvecw, only: ngw use constants, only: pi, fpi use control_flags, only: iprint, iprsta @@ -331,7 +331,6 @@ subroutine pc2(a,beca,b,becb) use ions_base, only: na, nsp use io_global, only: stdout use cvan - use elct use gvecw, only: ngw use constants, only: pi, fpi use control_flags, only: iprint, iprsta @@ -406,7 +405,6 @@ subroutine pcdaga2(a,as ,b ) use ions_base, only: na, nsp use io_global, only: stdout use cvan - use elct use gvecw, only: ngw use constants, only: pi, fpi use control_flags, only: iprint, iprsta