- Fixed bug in src/bse/X_em1s.F

- removed problematic call to PP_redux_wait in X_em1
yambo-code · Feb 17, 2017 · 10ea794 · 10ea794
1 parent a48c96a
commit 10ea794
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/config/configure.ac b/config/configure.ac
@@ -24,7 +24,7 @@
 AC_INIT(Yambo, 4.0.2 r.5195 , [email protected])
 SVERSION="4"
 SPATCHLEVEL="0"
-SSUBLEVEL="3"
+SSUBLEVEL="4"
 SREVISION="5195"
 AC_SUBST(SVERSION)
 AC_SUBST(SPATCHLEVEL)

diff --git 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
@@ -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
@@ -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
    !