source: issm/oecreview/Archive/13393-13976/ISSM-13759-13760.diff@ 14312

../trunk-jpl/src/c/toolkits/issm/SeqMat.h

@@ -63 +63 @@
                 /*FUNCTION SeqMat(doubletype* serial_mat,int M,int N,doubletype sparsity){{{*/
                 SeqMat(doubletype* serial_mat,int pM,int pN,doubletype sparsity){
 
-                        int i,j;
-
                         this->M=pM;
                         this->N=pN;
                         this->matrix=NULL;

../trunk-jpl/src/c/toolkits/plapack/patches/PlapackInvertMatrix.cpp

@@ -18 +18 @@
         /*inv_A does not yet exist, inv_A was just allocated, that's all*/
 
         /*Error management*/
-        int i,j;
+        int i;
 
         /*input*/
         int mA,nA;
         int local_mA,local_nA;
-        int lower_row,upper_row,range,this_range,this_lower_row;
+        int lower_row,upper_row,range;
         MatType type;
 
         /*Plapack: */
@@ -40 +40 @@
         /*Petsc to Plapack: */
         double    *arrayA=NULL;
         int* idxnA=NULL;
-        int d_nz,o_nz;
 
-        /*Feedback to client*/
-        int computation_status;  
-
         /*Verify that A is square*/
         MatGetSize(*A,&mA,&nA);
         MatGetLocalSize(*A,&local_mA,&local_nA);

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

@@ -46 +46 @@
         /*error management*/
 
         int local_m,local_n;
-        int lower_row,upper_row,range;
+        int range;
         int result=1;
         int sumresult;
         int num_procs;

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

@@ -30 +30 @@
         char* second=NULL;
         char* final=NULL;
         size_t len;
-        int ignore_second;
         int first_token=1;
 
         PetscTokenCreate(options_string,' ',&token);

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

@@ -20 +20 @@
 
 void PetscMatrixToDoubleMatrix(double** pmatrix, int* prows, int* pcols,Mat petsc_matrix){
 
-        int i,j,k;
-
         /*output: */
         double* matrix=NULL;
         int     rows,cols;
 
         /*intermediary: */
+        int     i;
         int*    idxm=NULL;
         int*    idxn=NULL;
 

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

@@ -18 +18 @@
 
 Vec NewVec(int size,COMM comm,bool fromlocalsize){
 
-        int ierr;
         int local_size;
 
         /*output: */

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

@@ -89 +89 @@
         /*parameters: */
         int    m,n;
         int    d_nz,o_nz;
-        int    nnz;
 
         #if _PETSC_MAJOR_ >= 3 
         const MatType type;

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

@@ -28 +28 @@
         double* values=NULL;
 
         /*Vector sizes: */
-        int MA,MB;
+        int MB;
 
         VecGetSize(B,&MB);