return PMPI_Type_free(datatype);
}
+int MPI_Pcontrol(const int level )
+{
+ return PMPI_Pcontrol(level);
+}
+
int MPI_Type_size(MPI_Datatype datatype, int *size)
{
return PMPI_Type_size(datatype, size);
return PMPI_Comm_size(comm, size);
}
+int MPI_Comm_get_attr (MPI_Comm comm, int comm_keyval, void *attribute_val, int *flag)
+{
+ return PMPI_Comm_get_attr (comm, comm_keyval, attribute_val, flag);
+}
+
int MPI_Comm_get_name (MPI_Comm comm, char* name, int* len)
{
return PMPI_Comm_get_name(comm, name, len);