[cig-commits] [commit] rajesh-petsc-schur: Removed caps_per_proc for loops from Sphere_util.c (467d305)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Sep 17 16:12:47 PDT 2014
Repository : https://github.com/geodynamics/citcoms
On branch : rajesh-petsc-schur
Link : https://github.com/geodynamics/citcoms/compare/1bfd8478d42e61b89bc8cfc1679ae9dcc94936f5...b8ceede151860da20e44adbb561266c5d0878b18
>---------------------------------------------------------------
commit 467d3057f7c8eabc0b10337f25f33b92b1d06a64
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date: Wed Sep 17 12:58:51 2014 -0700
Removed caps_per_proc for loops from Sphere_util.c
>---------------------------------------------------------------
467d3057f7c8eabc0b10337f25f33b92b1d06a64
lib/Sphere_util.c | 11 +----------
1 file changed, 1 insertion(+), 10 deletions(-)
diff --git a/lib/Sphere_util.c b/lib/Sphere_util.c
index 5d9e58e..062ab8d 100644
--- a/lib/Sphere_util.c
+++ b/lib/Sphere_util.c
@@ -57,8 +57,7 @@ void even_divide_arc12(elx,x1,y1,z1,x2,y2,z2,theta,fi)
fi[j] = myatan(yy,xx);
}
- return;
- }
+}
/* ================================================
compute angle and area
@@ -73,7 +72,6 @@ void compute_angle_surf_area (E)
void get_angle_sphere_cap();
void parallel_process_termination();
- for (m=1;m<=E->sphere.caps_per_proc;m++) {
ia[1] = 1;
ia[2] = E->lmesh.noz*E->lmesh.nox-E->lmesh.noz+1;
ia[3] = E->lmesh.nno-E->lmesh.noz+1;
@@ -111,13 +109,7 @@ void compute_angle_surf_area (E)
E->sphere.area1[lev][CPPR][es] = area_sphere_cap(angle);
-/* fprintf(E->fp_out,"lev%d %d %.6e %.6e %.6e %.6e %.6e\n",lev,es,angle[1],angle[2],angle[3],angle[4],E->sphere.area1[lev][m][es]); */
-
} /* end for lev and es */
-
- } /* end for m */
-
- return;
}
/* ================================================
@@ -232,7 +224,6 @@ void get_angle_sphere_cap(xx,angle)
}
angle[5] = get_angle(y1,y2); /* angle5 for betw 1 and 3: diagonal */
- return;
}
/* ================================
More information about the CIG-COMMITS
mailing list