[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 Nov 5 19:08:02 PST 2014


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

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

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

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