[cig-commits] [commit] rajesh-petsc-schur: Changed the shape of E->tablessinf as part of caps_per_proc_removal (ef7e69b)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Sep 24 15:24:46 PDT 2014
Repository : https://github.com/geodynamics/citcoms
On branch : rajesh-petsc-schur
Link : https://github.com/geodynamics/citcoms/compare/980de677d7efb78fdd5c41fd4b35a9283a2d251f...b86b2dd00f2bd13fb282a2eb9169871be4b1e923
>---------------------------------------------------------------
commit ef7e69b3f3a74b11a628a02c50df9b8b05654097
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date: Wed Sep 24 14:10:15 2014 -0700
Changed the shape of E->tablessinf as part of caps_per_proc_removal
>---------------------------------------------------------------
ef7e69b3f3a74b11a628a02c50df9b8b05654097
lib/Sphere_harmonics.c | 8 ++++----
lib/global_defs.h | 2 +-
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/lib/Sphere_harmonics.c b/lib/Sphere_harmonics.c
index 09e77d5..a3c6192 100644
--- a/lib/Sphere_harmonics.c
+++ b/lib/Sphere_harmonics.c
@@ -127,7 +127,7 @@ void sphere_expansion(E,TG,sphc,sphs)
* E->surf_det[nint][es];
sphs[p] += TG[E->sien[es].node[d]]
* E->sphere.tablesplm[j][p]
- * E->sphere.tablessinf[CPPR][j][mm]
+ * E->sphere.tablessinf[j][mm]
* E->M.vpt[GMVINDEX(d,nint)]
* E->surf_det[nint][es];
}
@@ -195,12 +195,12 @@ static void compute_sphereh_table(E)
E->sphere.tablesplm = (double **) malloc((E->lmesh.nsf+1)*sizeof(double*));
E->sphere.tablescosf = (double **) malloc((E->lmesh.nsf+1)*sizeof(double*));
- E->sphere.tablessinf[CPPR] = (double **) malloc((E->lmesh.nsf+1)*sizeof(double*));
+ E->sphere.tablessinf = (double **) malloc((E->lmesh.nsf+1)*sizeof(double*));
for (i=1;i<=E->lmesh.nsf;i++) {
E->sphere.tablesplm[i]= (double *)malloc((E->sphere.hindice)*sizeof(double));
E->sphere.tablescosf[i]= (double *)malloc((E->output.llmax+1)*sizeof(double));
- E->sphere.tablessinf[CPPR][i]= (double *)malloc((E->output.llmax+1)*sizeof(double));
+ E->sphere.tablessinf[i]= (double *)malloc((E->output.llmax+1)*sizeof(double));
}
for (j=1;j<=E->lmesh.nsf;j++) {
@@ -210,7 +210,7 @@ static void compute_sphereh_table(E)
for (mm=0;mm<=E->output.llmax;mm++) {
mmf = (double)(mm)*f;
E->sphere.tablescosf[j][mm] = cos( mmf );
- E->sphere.tablessinf[CPPR][j][mm] = sin( mmf );
+ E->sphere.tablessinf[j][mm] = sin( mmf );
}
for (ll=0;ll<=E->output.llmax;ll++)
diff --git a/lib/global_defs.h b/lib/global_defs.h
index c64872a..3c99603 100644
--- a/lib/global_defs.h
+++ b/lib/global_defs.h
@@ -284,7 +284,7 @@ struct SPHERE {
double **tablesplm;
double **tablescosf;
- double **tablessinf[NCS];
+ double **tablessinf;
double area[NCS];
double angle[NCS][5];
More information about the CIG-COMMITS
mailing list