source: issm/oecreview/Archive/13393-13976/ISSM-13602-13603.diff@ 13980

../trunk-jpl/src/c/toolkits/petsc/patches/MatMultPatch.cpp

@@ -49 +49 @@
         int lower_row,upper_row,range;
         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);;
         VecGetLocalSize(x,&range);;
@@ -59 +62 @@
         /*synchronize result: */
         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;
         }
         else{