mirror of https://gitlab.com/QEF/q-e.git
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:
parent
680b2dafb1
commit
720c90733b
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue