A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add MPI_Win_get_group, and activate some tests using *c2f and *f2c calls
[simgrid.git]
/
src
/
smpi
/
smpi_pmpi.c
diff --git
a/src/smpi/smpi_pmpi.c
b/src/smpi/smpi_pmpi.c
index
8fc593c
..
e75d645
100644
(file)
--- a/
src/smpi/smpi_pmpi.c
+++ b/
src/smpi/smpi_pmpi.c
@@
-2745,15
+2745,24
@@
int PMPI_Win_set_name(MPI_Win win, char * name)
int PMPI_Win_get_name(MPI_Win win, char * name, int* len)
{
int PMPI_Win_get_name(MPI_Win win, char * name, int* len)
{
- int retval =
0
;
+ int retval =
MPI_SUCCESS
;
if (win == MPI_WIN_NULL) {
if (win == MPI_WIN_NULL) {
- retval = MPI_ERR_
TYPE
;
+ retval = MPI_ERR_
WIN
;
} else if (name == NULL) {
retval = MPI_ERR_ARG;
} else {
smpi_mpi_win_get_name(win, name, len);
} else if (name == NULL) {
retval = MPI_ERR_ARG;
} else {
smpi_mpi_win_get_name(win, name, len);
- retval = MPI_SUCCESS;
+ }
+ return retval;
+}
+
+int PMPI_Win_get_group(MPI_Win win, MPI_Group * group){
+ int retval = MPI_SUCCESS;
+ if (win == MPI_WIN_NULL) {
+ retval = MPI_ERR_WIN;
+ }else {
+ smpi_mpi_win_get_group(win, group);
}
return retval;
}
}
return retval;
}