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

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
This commit is contained in:
giannozz 2005-01-07 14:03:56 +00:00
parent dec32b1cdf
commit 53b342099d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CPV/cglib.f90
View File

@ -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