int Petsc_MPI_Attr_get(MPI_Comm comm,int keyval,void *attribute_val,int *flag)
{
if (!keyval) Keyval_setup();
*flag = attr[keyval].active;
*(int **)attribute_val = (int *)attr[keyval].attribute_val;
return MPI_SUCCESS;
}
int MPI_Attr_get(MPI_Comm comm,int keyval,void *attribute_val,int *flag)
{
if (comm-1 < 0 || comm-1 > 3) return 1;
if (!keyval) Keyval_setup();
*flag = attr[comm-1][keyval].active;
*(void **)attribute_val = attr[comm-1][keyval].attribute_val;
return MPI_SUCCESS;
}