Index: /issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscMat.cpp
===================================================================
--- /issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscMat.cpp	(revision 26114)
+++ /issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscMat.cpp	(revision 26115)
@@ -180,4 +180,13 @@
 }
 /*}}}*/
+IssmDouble* PetscMat::ToMPISerial(void){/*{{{*/
+
+	 IssmDouble* output=NULL;
+sa
+	 MatToMPISerial(&output,this->matrix,IssmComm::GetComm());
+	 return output;
+
+}
+/*}}}*/
 void PetscMat::SetValues(int m,int* idxm,int n,int* idxn,IssmDouble* values,InsMode mode){/*{{{*/
 
Index: /issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscMat.h
===================================================================
--- /issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscMat.h	(revision 26114)
+++ /issm/trunk-jpl/src/c/toolkits/petsc/objects/PetscMat.h	(revision 26115)
@@ -50,4 +50,5 @@
 		PetscMat* Duplicate(void);
 		IssmDouble* ToSerial(void);
+		IssmDouble* ToMPISerial(void);
 		void SetValues(int m,int* idxm,int n,int* idxn,IssmDouble* values,InsMode mode);
 		void Convert(MatrixType type);