Bug fix: effective charges eu + US PP + spin-orbit nonmagnetic were not

working in parallel.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9670 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2012-11-26 10:41:59 +00:00
parent 7b60efe602
commit e418ef9f47
1 changed files with 2 additions and 2 deletions

View File

@ -66,8 +66,8 @@ subroutine zstar_eu_us
#endif
! auxiliary space for <psi|ds/du|psi>
allocate (dvscf( dfftp%nnr , nspin, 3))
allocate (dbecsum( nhm*(nhm+1)/2, nat, nspin, 3))
allocate (dvscf( dfftp%nnr , nspin_mag, 3))
allocate (dbecsum( nhm*(nhm+1)/2, nat, nspin_mag, 3))
if (noncolin) allocate (dbecsum_nc( nhm, nhm, nat, nspin, 3))
allocate (aux1( dffts%nnr))
allocate (pdsp(nbnd,nbnd))