[cig-commits] [commit] rajesh-petsc-schur: Eliminated the 3rd argument of full_rotate_mesh, which was set to the caps_per_proc loop variable (6c1ed6c)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Sep 18 13:17:21 PDT 2014
Repository : https://github.com/geodynamics/citcoms
On branch : rajesh-petsc-schur
Link : https://github.com/geodynamics/citcoms/compare/b8ceede151860da20e44adbb561266c5d0878b18...0aff4ed493594ce0d58153a5e0b72afdba61d6fd
>---------------------------------------------------------------
commit 6c1ed6cd6b6d2118fe850dae9de2b6581868ad00
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date: Thu Sep 18 09:31:50 2014 -0700
Eliminated the 3rd argument of full_rotate_mesh, which was set to the caps_per_proc loop variable
>---------------------------------------------------------------
6c1ed6cd6b6d2118fe850dae9de2b6581868ad00
lib/Full_version_dependent.c | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/lib/Full_version_dependent.c b/lib/Full_version_dependent.c
index 325e862..0771ad1 100644
--- a/lib/Full_version_dependent.c
+++ b/lib/Full_version_dependent.c
@@ -44,8 +44,7 @@ double theta_g(double , struct All_variables *);
/* =================================================
rotate the mesh by a rotation matrix
=================================================*/
-static void full_rotate_mesh(struct All_variables *E, double dircos[4][4],
- int m, int icap)
+static void full_rotate_mesh(struct All_variables *E, double dircos[4][4], int icap)
{
int i,lev;
double t[4], myatan();
@@ -69,8 +68,6 @@ static void full_rotate_mesh(struct All_variables *E, double dircos[4][4],
E->SX[lev][CPPR][2][i] = myatan(t[1],t[0]);
}
} /* lev */
-
- return;
}
/* =================================================
@@ -192,7 +189,7 @@ void full_node_locations(E)
dircos[3][3] = cos(ro);
ii = E->sphere.capid[CPPR];
- full_rotate_mesh(E,dircos,CPPR,ii);
+ full_rotate_mesh(E,dircos,ii);
if (E->control.verbose) {
for (lev=E->mesh.levmin;lev<=E->mesh.levmax;lev++) {
More information about the CIG-COMMITS
mailing list