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; }