[cig-commits] r5767 - in long/3D/Gale/trunk/src/StgFEM: . SLE/LinearAlgebra/src

[walter at geodynamics.org]

Author: walter
Date: 2007-01-11 21:04:11 -0800 (Thu, 11 Jan 2007)
New Revision: 5767

Modified:
   long/3D/Gale/trunk/src/StgFEM/
   long/3D/Gale/trunk/src/StgFEM/SLE/LinearAlgebra/src/SROpGenerator.c
Log:
 r951 at earth (orig r710):  LukeHodkinson | 2007-01-10 00:14:00 -0800
 Fixed an idiotic bug in the inter-grid operator
 generation routine; shadowed equation numbers
 weren't being sent, instead garbage numbers were.
 Naturally this made for a very unhappy PETSc.
 



Property changes on: long/3D/Gale/trunk/src/StgFEM
___________________________________________________________________
Name: svk:merge
   - 38867592-cf10-0410-9e16-a142ea72ac34:/cig:880
db209038-57f2-0310-97fa-b160e0ae9d04:/branches/decomp3d:709
db209038-57f2-0310-97fa-b160e0ae9d04:/trunk:669
   + 38867592-cf10-0410-9e16-a142ea72ac34:/cig:880
db209038-57f2-0310-97fa-b160e0ae9d04:/branches/decomp3d:710
db209038-57f2-0310-97fa-b160e0ae9d04:/trunk:669

Modified: long/3D/Gale/trunk/src/StgFEM/SLE/LinearAlgebra/src/SROpGenerator.c
===================================================================
--- long/3D/Gale/trunk/src/StgFEM/SLE/LinearAlgebra/src/SROpGenerator.c	2007-01-12 05:04:07 UTC (rev 5766)
+++ long/3D/Gale/trunk/src/StgFEM/SLE/LinearAlgebra/src/SROpGenerator.c	2007-01-12 05:04:11 UTC (rev 5767)
@@ -373,6 +373,7 @@
 		for( dof_i = 0; dof_i < nNodalDofs[n_i]; dof_i++ ) {
 			if( dstArray[n_i][dof_i] != (unsigned)-1 )
 				dstArray[n_i][dof_i] += base;
+			tuples[n_i * maxDofs + dof_i] = dstArray[n_i][dof_i];
 		}
 	}