8e9f32b5d0
has not yet been tested. Bug fix for group_excl.c . Add support funtion to set rank within the group. This commit was SVN r814.
36 строки
710 B
C
36 строки
710 B
C
/*
|
|
* $HEADERS$
|
|
*/
|
|
#include "lam_config.h"
|
|
#include <stdio.h>
|
|
|
|
#include "mpi.h"
|
|
#include "mpi/interface/c/bindings.h"
|
|
#include "mpi/group/group.h"
|
|
|
|
#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILING_DEFINES
|
|
#pragma weak MPI_Group_f2c = PMPI_Group_f2c
|
|
#endif
|
|
|
|
MPI_Group MPI_Group_f2c(MPI_Fint group_f) {
|
|
/* local variable */
|
|
lam_group_t *group_c;
|
|
int group_index;
|
|
|
|
group_index=(int)group_f;
|
|
|
|
/* error checks */
|
|
if( MPI_PARAM_CHECK ) {
|
|
if( 0 > group_index ) {
|
|
return NULL;
|
|
}
|
|
if( group_index >= lam_group_f_to_c_table->size ) {
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
group_c=lam_group_f_to_c_table->addr[group_index];
|
|
|
|
return (MPI_Group) group_c;
|
|
}
|