[cig-commits] r8960 - mc/3D/CitcomS/trunk/lib
tan2 at geodynamics.org
tan2 at geodynamics.org
Thu Dec 20 12:25:34 PST 2007
Author: tan2
Date: 2007-12-20 12:25:33 -0800 (Thu, 20 Dec 2007)
New Revision: 8960
Modified:
mc/3D/CitcomS/trunk/lib/Construct_arrays.c
Log:
Fixed a redundant cast
Modified: mc/3D/CitcomS/trunk/lib/Construct_arrays.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Construct_arrays.c 2007-12-19 20:08:13 UTC (rev 8959)
+++ mc/3D/CitcomS/trunk/lib/Construct_arrays.c 2007-12-20 20:25:33 UTC (rev 8960)
@@ -661,7 +661,7 @@
for(j=0;j<E->lmesh.NEQ[lev];j++) {
if(E->BI[lev][m][j] ==0.0) fprintf(stderr,"me= %d level %d, equation %d/%d has zero diagonal term\n",E->parallel.me,lev,j,E->mesh.NEQ[lev]);
assert( E->BI[lev][m][j] != 0 /* diagonal of matrix = 0, not acceptable */);
- E->BI[lev][m][j] = (float) 1.0/E->BI[lev][m][j];
+ E->BI[lev][m][j] = (double) 1.0/E->BI[lev][m][j];
}
} /* end for level */
More information about the cig-commits
mailing list