From 720c90733be0cec11e288fbd5695cc8ac7be2d56 Mon Sep 17 00:00:00 2001 From: dalcorso Date: Mon, 11 Jun 2012 14:36:15 +0000 Subject: [PATCH] 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 --- PHonon/PH/add_zstar_ue_us.f90 | 2 +- PHonon/PH/zstar_eu_us.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/PHonon/PH/add_zstar_ue_us.f90 b/PHonon/PH/add_zstar_ue_us.f90 index 800a377fe..f8327f28b 100644 --- a/PHonon/PH/add_zstar_ue_us.f90 +++ b/PHonon/PH/add_zstar_ue_us.f90 @@ -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 diff --git a/PHonon/PH/zstar_eu_us.f90 b/PHonon/PH/zstar_eu_us.f90 index e0e0a08b5..2149d697f 100644 --- a/PHonon/PH/zstar_eu_us.f90 +++ b/PHonon/PH/zstar_eu_us.f90 @@ -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