On Wed, 12 May 2010 13:58:26 -0300, Lisandro Dalcin <dalcinl at gmail.com> 
wrote:
> Likely Barry did not got this

@@ -73,9 +73,7 @@
   } else if (size == 1) {
     *a = A;
     *iscopy = PETSC_FALSE;
-  } else {
-    SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"Cannot get diagonal part for this 
matrix");
-  }
+  } SETERRQ(((PetscObject)A)->comm,PETSC_ERR_SUP,"Cannot get diagonal part for 
this matrix");
   PetscFunctionReturn(0);
 }


Clearly, fix pushed.

Jed

Reply via email to