Aquila-Consortium/libsharp2
0
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add a barrier call to improve timing

Browse source
This commit is contained in:
Martin Reinecke 2013-01-14 23:37:52 +01:00
parent 5cba6158f2
commit dcfc611592
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libsharp/sharp_mpi.c
View file

@ -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) static void sharp_execute_job_mpi (sharp_job *job, MPI_Comm comm)
{ {
double timer=wallTime();
int ntasks; int ntasks;
MPI_Comm_size(comm, &ntasks); MPI_Comm_size(comm, &ntasks);
if (ntasks==1) /* fall back to scalar implementation */ if (ntasks==1) /* fall back to scalar implementation */
{ sharp_execute_job (job); return; } { sharp_execute_job (job); return; }
MPI_Barrier(comm);
double timer=wallTime();
int lmax = job->ainfo->lmax; int lmax = job->ainfo->lmax;
job->norm_l = sharp_Ylmgen_get_norm (lmax, job->spin); job->norm_l = sharp_Ylmgen_get_norm (lmax, job->spin);