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

Small bug fix: a routine called with too many arguments. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9074 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2012-06-11 14:36:15 +00:00
parent 680b2dafb1
commit 720c90733b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PHonon/PH/add_zstar_ue_us.f90
View File

@ -71,7 +71,7 @@ subroutine add_zstar_ue_us(imode0,npe)
! Note: we need becp1
!
pdsp = (0.d0,0.d0)
call psidspsi (ik, u (1, mode), pdsp,npw)
call psidspsi (ik, u (1, mode), pdsp )
#ifdef __MPI
call mp_sum(pdsp, intra_pool_comm )
#endif

2
PHonon/PH/zstar_eu_us.f90
View File

@ -211,7 +211,7 @@ subroutine zstar_eu_us
call davcio (dvpsi, lrebar, iuebar, nrec, - 1)
!
pdsp = (0.d0,0.d0)
call psidspsi (ik, u (1, mode), pdsp,npw)
call psidspsi (ik, u (1, mode), pdsp )
#ifdef __MPI
call mp_sum( pdsp, intra_pool_comm )
#endif