[cig-commits] [commit] rajesh-petsc-schur: Eliminated the 5th argument of build_diagonal_of_K, which was set to the caps_per_proc loop variable (f15de02)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/citcoms

On branch  : rajesh-petsc-schur
Link       : https://github.com/geodynamics/citcoms/compare/464e1b32299b15819f93efd98d969cddb84dfe51...f97ae655a50bdbd6dac1923a3471ee4dae178fbd

>---------------------------------------------------------------

commit f15de02ecfd6b09d6aee28a96066540166a840f6
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date:   Wed Sep 17 15:20:48 2014 -0700

    Eliminated the 5th argument of build_diagonal_of_K, which was set to the caps_per_proc loop variable


>---------------------------------------------------------------

f15de02ecfd6b09d6aee28a96066540166a840f6
 lib/Construct_arrays.c     | 4 ++--
 lib/Element_calculations.c | 6 +++---
 lib/prototypes.h           | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/Construct_arrays.c b/lib/Construct_arrays.c
index b3dca33..06dd3bb 100644
--- a/lib/Construct_arrays.c
+++ b/lib/Construct_arrays.c
@@ -350,7 +350,7 @@ void construct_node_ks(E)
 	    if (E->control.augmented_Lagr)
 	         get_aug_k(E,element,elt_K,level,CPPR);
 
-            build_diagonal_of_K(E,element,elt_K,level,CPPR);
+            build_diagonal_of_K(E,element,elt_K,level);
 
 	    for(i=1;i<=ends;i++) {  /* i, is the node we are storing to */
 	       node=E->IEN[level][CPPR][element].node[i];
@@ -620,7 +620,7 @@ void construct_elt_ks(E)
 	    if (E->control.augmented_Lagr)
 	        get_aug_k(E,el,E->elt_k[lev][CPPR][el].k,lev,CPPR);
 
-            build_diagonal_of_K(E,el,E->elt_k[lev][CPPR][el].k,lev,CPPR);
+            build_diagonal_of_K(E,el,E->elt_k[lev][CPPR][el].k,lev);
 
 	    }
 
diff --git a/lib/Element_calculations.c b/lib/Element_calculations.c
index 63d7710..0039ebe 100644
--- a/lib/Element_calculations.c
+++ b/lib/Element_calculations.c
@@ -558,9 +558,9 @@ void n_assemble_del2_u(E,u,Au,level,strip_bcs)
 }
 
 
-void build_diagonal_of_K(E,el,elt_k,level,m)
+void build_diagonal_of_K(E,el,elt_k,level)
      struct All_variables *E;
-     int level,el,m;
+     int level,el;
      double elt_k[24*24];
 
 {
@@ -586,7 +586,7 @@ void build_diagonal_of_K(E,el,elt_k,level,m)
 	    a1 = E->ID[level][CPPR][node].doff[3];
 	    p=(a-1)*dims+2;
 	    E->BI[level][CPPR][a1] += elt_k[p*n+p];
-            }
+    }
 }
 
 void build_diagonal_of_Ahat(struct All_variables *E)
diff --git a/lib/prototypes.h b/lib/prototypes.h
index aac4567..49f518c 100644
--- a/lib/prototypes.h
+++ b/lib/prototypes.h
@@ -112,7 +112,7 @@ void get_elt_k(struct All_variables *, int, double [24*24], int, int, int);
 void assemble_del2_u(struct All_variables *, double **, double **, int, int);
 void e_assemble_del2_u(struct All_variables *, double **, double **, int, int);
 void n_assemble_del2_u(struct All_variables *, double **, double **, int, int);
-void build_diagonal_of_K(struct All_variables *, int, double [24*24], int, int);
+void build_diagonal_of_K(struct All_variables *, int, double [24*24], int);
 void build_diagonal_of_Ahat(struct All_variables *);
 void assemble_c_u(struct All_variables *, double **, double **, int);
 void assemble_div_rho_u(struct All_variables *, double **, double **, int);