[cig-commits] r8960 - mc/3D/CitcomS/trunk/lib

[tan2 at geodynamics.org]

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 */