[cig-commits] r6776 - cs/cigma/trunk/sandbox/okada/disloc3d

[brad at geodynamics.org]

Author: brad
Date: 2007-05-03 17:23:50 -0700 (Thu, 03 May 2007)
New Revision: 6776

Modified:
   cs/cigma/trunk/sandbox/okada/disloc3d/cervelli.c
Log:
Fixed bug in setting fault parameters (start at 0 not 1).

Modified: cs/cigma/trunk/sandbox/okada/disloc3d/cervelli.c
===================================================================
--- cs/cigma/trunk/sandbox/okada/disloc3d/cervelli.c	2007-05-04 00:14:53 UTC (rev 6775)
+++ cs/cigma/trunk/sandbox/okada/disloc3d/cervelli.c	2007-05-04 00:23:50 UTC (rev 6776)
@@ -144,7 +144,7 @@
     double east;
     double north;
 
-    for (j = 1; j < nmod; j++)
+    for (j = 0; j < nmod; j++)
     {
         fault = &fi[11*j];
         model = &M[10*j];