From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Tue, 2 Jul 2013 16:10:36 +0000 (+0200)
Subject: get the rank and not the index for process creation
X-Git-Tag: v3_9_90~209
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/b7ca8d8e4b0dcab8e81509b753e1b2fa80832f49

get the rank and not the index for process creation
---

diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c
index 1b362b556f..8765cf70f2 100644
--- a/src/smpi/smpi_pmpi.c
+++ b/src/smpi/smpi_pmpi.c
@@ -792,7 +792,7 @@ int PMPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm * newcomm)
     retval = MPI_ERR_GROUP;
   } else if (newcomm == NULL) {
     retval = MPI_ERR_ARG;
-  } else if(smpi_group_index(group,smpi_process_index())==MPI_UNDEFINED){
+  } else if(smpi_group_rank(group,smpi_process_index())==MPI_UNDEFINED){
     *newcomm= MPI_COMM_NULL;
     retval = MPI_SUCCESS;
   }else{