[cig-commits] [commit] rajesh-petsc-schur: cleaned up assemble_c_u (4b74abc)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Nov 5 19:03:52 PST 2014
Repository : https://github.com/geodynamics/citcoms
On branch : rajesh-petsc-schur
Link : https://github.com/geodynamics/citcoms/compare/464e1b32299b15819f93efd98d969cddb84dfe51...f97ae655a50bdbd6dac1923a3471ee4dae178fbd
>---------------------------------------------------------------
commit 4b74abccd7fd878fe02e254c4bcc60f3ad79afcc
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date: Mon Sep 8 15:39:21 2014 -0700
cleaned up assemble_c_u
>---------------------------------------------------------------
4b74abccd7fd878fe02e254c4bcc60f3ad79afcc
lib/Element_calculations.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lib/Element_calculations.c b/lib/Element_calculations.c
index cbe26ea..713e262 100644
--- a/lib/Element_calculations.c
+++ b/lib/Element_calculations.c
@@ -665,11 +665,12 @@ void assemble_c_u(struct All_variables *E,
for(m=1;m<=E->sphere.caps_per_proc;m++)
for(a=1;a<=ends;a++) {
p = (a-1)*dims;
- for(e=1;e<=nel;e++) {
+ for(e=0;e<nel;e++) {
b = E->IEN[level][m][e].node[a];
j1= E->ID[level][m][b].doff[1];
j2= E->ID[level][m][b].doff[2];
j3= E->ID[level][m][b].doff[3];
+
result[m][e] += E->elt_c[level][m][e].c[p ][0] * U[m][j1]
+ E->elt_c[level][m][e].c[p+1][0] * U[m][j2]
+ E->elt_c[level][m][e].c[p+2][0] * U[m][j3];
More information about the CIG-COMMITS
mailing list