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)7int 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