shunt a warning, quite dirtily

diff --git a/examples/smpi/MM/Summa.c b/examples/smpi/MM/Summa.c
index 6b64619..280f254 100644 (file)
--- a/examples/smpi/MM/Summa.c
+++ b/examples/smpi/MM/Summa.c
@@ -24,8 +24,11 @@ inline double Summa(
   double *B_a     , *B_b     ; //matrix blocks
   size_t err;
   //double alpha = 1, beta = 1;  //C := alpha * a * b + beta * c
   double *B_a     , *B_b     ; //matrix blocks
   size_t err;
   //double alpha = 1, beta = 1;  //C := alpha * a * b + beta * c

-  size_t B_proc_col, B_proc_row; // Number of bloc(row or col) on one processor
+  size_t B_proc_row; // Number of bloc(row or col) on one processor
+#ifndef CYCLIC
+  size_t B_proc_col;

   B_proc_col =  k_b / Block_size;  // Number of block on one processor
   B_proc_col =  k_b / Block_size;  // Number of block on one processor

+#endif

   B_proc_row = k_a / Block_size; // Number of block on one processor
 
   //size_t lda = k_a, ldb = n, ldc = n;
   B_proc_row = k_a / Block_size; // Number of block on one processor
 
   //size_t lda = k_a, ldb = n, ldc = n;