[cig-commits] [commit] rajesh-petsc-schur: Eliminated the 2nd argument of get_rtf_at_ppts, which was set to the caps_per_proc loop variable (3f39177)

[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 3f39177f7e6d296874a9330f12392b0c456b8b23
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date:   Thu Sep 18 13:14:00 2014 -0700

    Eliminated the 2nd argument of get_rtf_at_ppts, which was set to the caps_per_proc loop variable


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

3f39177f7e6d296874a9330f12392b0c456b8b23
 lib/Anisotropic_viscosity.c | 2 +-
 lib/Element_calculations.c  | 2 +-
 lib/Size_does_matter.c      | 3 +--
 lib/Viscosity_structures.c  | 2 +-
 lib/prototypes.h            | 2 +-
 5 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/lib/Anisotropic_viscosity.c b/lib/Anisotropic_viscosity.c
index 19e1359..89c1e5e 100644
--- a/lib/Anisotropic_viscosity.c
+++ b/lib/Anisotropic_viscosity.c
@@ -824,7 +824,7 @@ void align_director_with_ISA_for_element(struct All_variables *E,
 	  (E->mat[CPPR][e] <=   E->viscosity.anivisc_layer))||
 	 ((E->viscosity.anivisc_layer < 0)&&
 	  (E->mat[CPPR][e] ==  -E->viscosity.anivisc_layer))){
-	get_rtf_at_ppts(E, m, lev, e, rtf); /* pressure points */
+	get_rtf_at_ppts(E, lev, e, rtf); /* pressure points */
 	//if((e-1)%E->lmesh.elz==0)
 	construct_c3x3matrix_el(E,e,&E->element_Cc,&E->element_Ccx,lev,1);
 	for(i = 1; i <= ends; i++){	/* velocity at element nodes */
diff --git a/lib/Element_calculations.c b/lib/Element_calculations.c
index 37e4038..684114b 100644
--- a/lib/Element_calculations.c
+++ b/lib/Element_calculations.c
@@ -892,7 +892,7 @@ void get_elt_g(E,el,elt_del,lev)
    if ((el-1)%E->lmesh.ELZ[lev]==0)
       construct_c3x3matrix_el(E,el,&E->element_Cc,&E->element_Ccx,lev,1);
 
-   get_rtf_at_ppts(E, CPPR, lev, el, rtf);
+   get_rtf_at_ppts(E, lev, el, rtf);
 
    temp = p_point[1].weight[dims-1] * E->GDA[lev][CPPR][el].ppt[1];
 
diff --git a/lib/Size_does_matter.c b/lib/Size_does_matter.c
index d438216..bfc3e73 100644
--- a/lib/Size_does_matter.c
+++ b/lib/Size_does_matter.c
@@ -215,8 +215,7 @@ void get_rtf_at_vpts(struct All_variables *E, int m, int lev, int el,
 }
 
 
-void get_rtf_at_ppts(struct All_variables *E, int m, int lev, int el,
-                  double rtf[4][9])
+void get_rtf_at_ppts(struct All_variables *E, int lev, int el, double rtf[4][9])
 {
     int i, k, d;
     double x[4];
diff --git a/lib/Viscosity_structures.c b/lib/Viscosity_structures.c
index e2fc503..a235a84 100644
--- a/lib/Viscosity_structures.c
+++ b/lib/Viscosity_structures.c
@@ -1131,7 +1131,7 @@ void strain_rate_2_inv(E,EEDOT,SQRT)
 
     for(e=1; e<=nel; e++) {
 
-        get_rtf_at_ppts(E, CPPR, lev, e, rtf); /* pressure evaluation
+        get_rtf_at_ppts(E, lev, e, rtf); /* pressure evaluation
 					       points */
         velo_from_element(E, VV, e, sphere_key);
         GNx = &(E->gNX[CPPR][e]);
diff --git a/lib/prototypes.h b/lib/prototypes.h
index 283b22a..f95162c 100644
--- a/lib/prototypes.h
+++ b/lib/prototypes.h
@@ -446,7 +446,7 @@ double lpolydash(int, double);
 void twiddle_thumbs(struct All_variables *);
 void construct_shape_function_derivatives(struct All_variables *);
 void get_rtf_at_vpts(struct All_variables *, int, int, int, double [4][9]);
-void get_rtf_at_ppts(struct All_variables *, int, int, int, double [4][9]);
+void get_rtf_at_ppts(struct All_variables *, int, int, double [4][9]);
 void get_side_x_cart(struct All_variables *, double [4][5], int, int);
 void construct_surf_det(struct All_variables *);
 void construct_bdry_det(struct All_variables *);