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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-08-27 12:34:44 -0700 (Mon, 27 Aug 2007)
New Revision: 7896

Modified:
   mc/3D/CitcomS/trunk/lib/Stokes_flow_Incomp.c
Log:
Fixed a index bug in stokes solver

Modified: mc/3D/CitcomS/trunk/lib/Stokes_flow_Incomp.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Stokes_flow_Incomp.c	2007-08-27 19:34:26 UTC (rev 7895)
+++ mc/3D/CitcomS/trunk/lib/Stokes_flow_Incomp.c	2007-08-27 19:34:44 UTC (rev 7896)
@@ -175,7 +175,7 @@
     /* copy the original force vector since we need to keep it intact
        between iterations */
     for(m=1;m<=E->sphere.caps_per_proc;m++)
-        for(j=1;j<=neq;j++)
+        for(j=0;j<neq;j++)
             F[m][j] = FF[m][j];