[cig-commits] r5117 - mc/3D/CitcomCU/trunk/src

[tan2 at geodynamics.org]

Author: tan2
Date: 2006-10-30 12:52:43 -0800 (Mon, 30 Oct 2006)
New Revision: 5117

Modified:
   mc/3D/CitcomCU/trunk/src/Element_calculations.c
Log:
Commented out unused coordinate transformation matrix in get_elt_f()

Modified: mc/3D/CitcomCU/trunk/src/Element_calculations.c
===================================================================
--- mc/3D/CitcomCU/trunk/src/Element_calculations.c	2006-10-30 15:17:16 UTC (rev 5116)
+++ mc/3D/CitcomCU/trunk/src/Element_calculations.c	2006-10-30 20:52:43 UTC (rev 5117)
@@ -772,7 +772,7 @@
 	double force[9], force_at_gs[9];
 	//double vector[4], magnitude;
 	//double tmp, rtf[4][9];
-	double rtf[4][9];
+	//double rtf[4][9];
 	double elt_k[24 * 24];
 
 	//struct Shape_function GN;
@@ -857,7 +857,7 @@
 	else if(E->control.Rsphere)
 	{
 
-		get_rtf(E, el, 0, rtf, E->mesh.levmax);
+		//get_rtf(E, el, 0, rtf, E->mesh.levmax);
 		if((el - 1) % E->lmesh.elz == 0)
 			construct_c3x3matrix_el(E, el, &Cc, &Ccx, E->mesh.levmax, 0);