Return MPI_GROUP_NULL, not NULL.
This commit was SVN r946.
Этот коммит содержится в:
родитель
c296eaacc7
Коммит
aac803a3cb
@ -11,6 +11,7 @@
|
|||||||
#pragma weak MPI_Group_f2c = PMPI_Group_f2c
|
#pragma weak MPI_Group_f2c = PMPI_Group_f2c
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
MPI_Group MPI_Group_f2c(MPI_Fint group_f)
|
MPI_Group MPI_Group_f2c(MPI_Fint group_f)
|
||||||
{
|
{
|
||||||
/* local variables */
|
/* local variables */
|
||||||
@ -22,10 +23,10 @@ MPI_Group MPI_Group_f2c(MPI_Fint group_f)
|
|||||||
/* error checks */
|
/* error checks */
|
||||||
if (MPI_PARAM_CHECK) {
|
if (MPI_PARAM_CHECK) {
|
||||||
if (0 > group_index) {
|
if (0 > group_index) {
|
||||||
return NULL;
|
return MPI_GROUP_NULL;
|
||||||
}
|
}
|
||||||
if (group_index >= lam_group_f_to_c_table->size) {
|
if (group_index >= lam_group_f_to_c_table->size) {
|
||||||
return NULL;
|
return MPI_GROUP_NULL;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user