[cig-commits] r5667 - in long/3D/Gale/trunk/src/StGermain: . Discretisation/Geometry/tests

[walter at geodynamics.org]

Author: walter
Date: 2007-01-05 11:36:25 -0800 (Fri, 05 Jan 2007)
New Revision: 5667

Modified:
   long/3D/Gale/trunk/src/StGermain/
   long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/tests/testComplexVectorMath.c
Log:
 r3238 at earth (orig r3934):  LukeHodkinson | 2007-01-03 16:14:06 -0800
 More!
 



Property changes on: long/3D/Gale/trunk/src/StGermain
___________________________________________________________________
Name: svk:merge
   - 1ef209d2-b310-0410-a72d-e20c9eb0015c:/cig:3196
afb6c753-b9d0-0310-b4e7-dbd8d91cdd35:/branches/decomp3d/StGermain:3933
afb6c753-b9d0-0310-b4e7-dbd8d91cdd35:/trunk/StGermain:3899
   + 1ef209d2-b310-0410-a72d-e20c9eb0015c:/cig:3196
afb6c753-b9d0-0310-b4e7-dbd8d91cdd35:/branches/decomp3d/StGermain:3934
afb6c753-b9d0-0310-b4e7-dbd8d91cdd35:/trunk/StGermain:3899

Modified: long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/tests/testComplexVectorMath.c
===================================================================
--- long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/tests/testComplexVectorMath.c	2007-01-05 19:36:23 UTC (rev 5666)
+++ long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/tests/testComplexVectorMath.c	2007-01-05 19:36:25 UTC (rev 5667)
@@ -208,6 +208,8 @@
 		Cmplx *coordList[4];
 		int d;
 		double realVector[3], tolerance;
+		Cmplx dotProductResult;
+		Cmplx value;
 		
 		tolerance = STG_COMPLEXVECTOR_TOL;
 		
@@ -392,7 +394,6 @@
 		Journal_Printf( stream, "Check Dot Product Function\n");
 		Journal_Printf( stream, "value = A . B \n");
 		
-		Cmplx dotProductResult;
 		for (d = 0; d <=6; d++) {
 		StGermain_ComplexVectorDotProduct(A, B, d, dotProductResult);			
 		Journal_Printf( stream, "dim = %d dot product = %2.3f + %2.3f i\n",
@@ -445,7 +446,6 @@
 
 		Journal_Printf( stream, "\n****************************\n");
 		Journal_Printf( stream, "Check StGermain_ComplexVectorCrossProductMagnitude\n");
-		Cmplx value;
 		A[0][REAL_PART] = 1.0; A[0][IMAG_PART] = 1.0; 
 		A[1][REAL_PART] = 2.0; A[1][IMAG_PART] = 0.0;
 		A[2][REAL_PART] = 3.0; A[2][IMAG_PART] = 0.0;