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
testsome and waitsome in fortran need to fortranize indices.
[simgrid.git]
/
src
/
smpi
/
bindings
/
smpi_f77_request.cpp
diff --git
a/src/smpi/bindings/smpi_f77_request.cpp
b/src/smpi/bindings/smpi_f77_request.cpp
index
ec705b2
..
485f062
100644
(file)
--- a/
src/smpi/bindings/smpi_f77_request.cpp
+++ b/
src/smpi/bindings/smpi_f77_request.cpp
@@
-215,6
+215,7
@@
void mpi_waitsome_ (int* incount, int* requests, int *outcount, int *indices, MP
simgrid::smpi::Request::free_f(requests[indices[i]]);
requests[indices[i]]=MPI_FORTRAN_REQUEST_NULL;
}
simgrid::smpi::Request::free_f(requests[indices[i]]);
requests[indices[i]]=MPI_FORTRAN_REQUEST_NULL;
}
+ indices[i]++;
}
xbt_free(reqs);
}
}
xbt_free(reqs);
}
@@
-279,6
+280,7
@@
void mpi_testsome_ (int* incount, int* requests, int* outcount, int* indices, M
simgrid::smpi::Request::free_f(requests[indices[i]]);
requests[indices[i]]=MPI_FORTRAN_REQUEST_NULL;
}
simgrid::smpi::Request::free_f(requests[indices[i]]);
requests[indices[i]]=MPI_FORTRAN_REQUEST_NULL;
}
+ indices[i]++;
}
xbt_free(reqs);
}
}
xbt_free(reqs);
}