}
void mpi_testall_ (int* count, int * requests, int *flag, MPI_Status * statuses, int* ierr){
- MPI_Request* reqs;
int i;
- reqs = xbt_new(MPI_Request, *count);
+ MPI_Request* reqs = xbt_new(MPI_Request, *count);
for(i = 0; i < *count; i++) {
reqs[i] = smpi_request_f2c(requests[i]);
}
requests[i]=MPI_FORTRAN_REQUEST_NULL;
}
}
+ xbt_free(reqs);
}
void mpi_get_processor_name_(char *name, int *resultlen, int* ierr){
}
char* tvalue = xbt_new(char,valuelen+1);
strncpy(tvalue, value, valuelen);
-
tvalue[valuelen]='\0';
+
*ierr = MPI_Info_set( smpi_info_f2c(*info), tkey, tvalue);
xbt_free(tkey);
}
void mpi_info_free_(int* info, int* ierr){
MPI_Info tmp = smpi_info_f2c(*info);
+ const char* key;
+ char* val;
+ xbt_dict_cursor_t cursor;
+ xbt_dict_foreach(tmp->info_dict,cursor,key,val) {
+ xbt_free(val);
+ }
*ierr = MPI_Info_free(&tmp);
if(*ierr == MPI_SUCCESS) {
free_info(*info);