1 /*
2    (C) 2004 by Argonne National Laboratory.
3        See COPYRIGHT in top-level directory.
4 */
5 #include "collchk.h"
6 
CollChk_same_local_leader(MPI_Comm comm,int ll,char * call)7 int CollChk_same_local_leader(MPI_Comm comm, int ll, char* call)
8 {
9     char err_str[COLLCHK_STD_STRLEN];
10 
11     if(    CollChk_same_int(comm, ll, call, "Local Leader", err_str)
12         != MPI_SUCCESS) {
13         return CollChk_err_han(err_str, COLLCHK_ERR_LL, call, comm);
14     }
15     else {
16         return MPI_SUCCESS;
17     }
18 
19 }
20