void mpi_attr_get_(int* comm, int* keyval, int* attr_value, int* flag, int* ierr ){
int* value = nullptr;
*ierr = MPI_Attr_get(simgrid::smpi::Comm::f2c(*comm), *keyval, &value, flag);
- *attr_value = *value;
+ if(*flag == 1)
+ *attr_value=*value;
}
void mpi_error_string_(int* errorcode, char* string, int* resultlen, int* ierr){
void mpi_win_get_attr_(int* win, int* type_keyval, int* attribute_val, int* flag, int* ierr){
int* value = nullptr;
*ierr = MPI_Win_get_attr(simgrid::smpi::Win::f2c(*win), *type_keyval, &value, flag);
- *attribute_val=*value;
+ if (*flag == 1)
+ *attribute_val = *value;
}
void mpi_win_set_attr_(int* win, int* type_keyval, void* att, int* ierr){
void mpi_comm_get_attr_ (int* comm, int* comm_keyval, int *attribute_val, int *flag, int* ierr){
int* value = nullptr;
*ierr = MPI_Comm_get_attr (simgrid::smpi::Comm::f2c(*comm), *comm_keyval, &value, flag);
- *attribute_val = *value;
+ if (*flag == 1)
+ *attribute_val = *value;
}
void mpi_comm_set_attr_ (int* comm, int* comm_keyval, void *attribute_val, int* ierr){
void mpi_type_get_attr_ (int* type, int* type_keyval, int *attribute_val, int* flag, int* ierr){
int* value = nullptr;
*ierr = MPI_Type_get_attr ( simgrid::smpi::Datatype::f2c(*type), *type_keyval, &value, flag);
- *attribute_val = *value;
+ if (*flag == 1)
+ *attribute_val = *value;
}
void mpi_type_set_attr_ (int* type, int* type_keyval, void *attribute_val, int* ierr){