Index: /issm/trunk-jpl/src/c/toolkits/petsc/patches/MatMultPatch.cpp
===================================================================
--- /issm/trunk-jpl/src/c/toolkits/petsc/patches/MatMultPatch.cpp	(revision 13602)
+++ /issm/trunk-jpl/src/c/toolkits/petsc/patches/MatMultPatch.cpp	(revision 13603)
@@ -50,5 +50,8 @@
 	int result=1;
 	int sumresult;
-	extern int num_procs;
+	int num_procs2;
+	
+	/*recover num_procs2:*/
+	MPI_Comm_size(comm,&num_procs2);
 
 	MatGetLocalSize(A,&local_m,&local_n);;
@@ -60,5 +63,5 @@
 	MPI_Reduce (&result,&sumresult,1,MPI_INT,MPI_SUM,0,comm );
 	MPI_Bcast(&sumresult,1,MPI_INT,0,comm);                
-	if (sumresult!=num_procs){
+	if (sumresult!=num_procs2){
 		result=0;
 	}