Example #1
0
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;
}
Example #2
0
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;
}