From 10ea79428ec318119ee307df12d005d19f4de380 Mon Sep 17 00:00:00 2001 From: Davide Sangalli Date: Fri, 17 Feb 2017 02:22:28 +0100 Subject: [PATCH] - Fixed bug in src/bse/X_em1s.F - removed problematic call to PP_redux_wait in X_em1 --- config/configure.ac | 2 +- configure | 2 +- include/version.inc | 4 ++-- src/pol_function/X_em1.F | 3 ++- 4 files changed, 6 insertions(+), 5 deletions(-) diff --git a/config/configure.ac b/config/configure.ac index 9b8c7ca556..6dd0a7c7ee 100644 --- a/config/configure.ac +++ b/config/configure.ac @@ -24,7 +24,7 @@ AC_INIT(Yambo, 4.0.2 r.5195 , yambo@yambo-code.org) SVERSION="4" SPATCHLEVEL="0" -SSUBLEVEL="3" +SSUBLEVEL="4" SREVISION="5195" AC_SUBST(SVERSION) AC_SUBST(SPATCHLEVEL) diff --git a/configure b/configure index 9746df0f9e..d452c8ef6b 100755 --- a/configure +++ b/configure @@ -2535,7 +2535,7 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu SVERSION="4" SPATCHLEVEL="0" -SSUBLEVEL="3" +SSUBLEVEL="4" SREVISION="5195" diff --git a/include/version.inc b/include/version.inc index c48588f83e..2fc10c55ad 100644 --- a/include/version.inc +++ b/include/version.inc @@ -1,5 +1,5 @@ code_version(1)=4 code_version(2)=0 -code_version(3)=3 +code_version(3)=4 code_revision=5195 -code_GPL_revision=104 +code_GPL_revision=107 diff --git a/src/pol_function/X_em1.F b/src/pol_function/X_em1.F index ddce935a30..8f1a67b10c 100644 --- a/src/pol_function/X_em1.F +++ b/src/pol_function/X_em1.F @@ -112,7 +112,8 @@ integer function X_em1(Xen,Xk,q,X,Xw,APPEND_NO_VERIFY) ! ! X%ngostnts is defined only for the group of CPU's that eval q=1 ! and must be spread to all CPUs before doing the IO of the header - call PP_redux_wait((/X%ngostnts/),COMM=PAR_COM_Q_INDEX%COMM) + ! + if(X%iq(1)>1) call PP_redux_wait((/X%ngostnts/),COMM=PAR_COM_Q_INDEX%COMM) ! if (io_RESPONSE) then !