From dcfc611592d2183b1147efa4a130011c8a469f77 Mon Sep 17 00:00:00 2001
From: Martin Reinecke <martin@mpa-garching.mpg.de>
Date: Mon, 14 Jan 2013 23:37:52 +0100
Subject: [PATCH] add a barrier call to improve timing

---
 libsharp/sharp_mpi.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/libsharp/sharp_mpi.c b/libsharp/sharp_mpi.c
index 6e75aa6..5d15abf 100644
--- a/libsharp/sharp_mpi.c
+++ b/libsharp/sharp_mpi.c
@@ -209,12 +209,13 @@ static void map2alm_comm (sharp_job *job, const sharp_mpi_info *minfo)
 
 static void sharp_execute_job_mpi (sharp_job *job, MPI_Comm comm)
   {
-  double timer=wallTime();
   int ntasks;
   MPI_Comm_size(comm, &ntasks);
   if (ntasks==1) /* fall back to scalar implementation */
     { sharp_execute_job (job); return; }
 
+  MPI_Barrier(comm);
+  double timer=wallTime();
   int lmax = job->ainfo->lmax;
 
   job->norm_l = sharp_Ylmgen_get_norm (lmax, job->spin);