[cig-commits] r4984 - in long/3D/Gale/trunk: . src/StgFEM/plugins/StandardConditionFunctions

[walter at geodynamics.org]

Author: walter
Date: 2006-10-13 04:35:01 -0700 (Fri, 13 Oct 2006)
New Revision: 4984

Modified:
   long/3D/Gale/trunk/
   long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c
Log:
 r919 at earth:  boo | 2006-10-13 04:34:48 -0700
 Make StG_FEM_StandardConditionFunctions_AnalyticalTemperatureIC non-functional if erf not available



Property changes on: long/3D/Gale/trunk
___________________________________________________________________
Name: svk:merge
   - 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:917
   + 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:919

Modified: long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c
===================================================================
--- long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c	2006-10-13 11:31:44 UTC (rev 4983)
+++ long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c	2006-10-13 11:35:01 UTC (rev 4984)
@@ -621,6 +621,10 @@
 	double                  lambda, height, width;
 	double                  Tu, Tl, Tr, Ts;
 
+#ifdef NO_ERF
+        printf("StG_FEM_StandardConditionFunctions_AnalyticalTemperatureIC does not work\nbecause erf is not defined.\n");
+        exit(1);
+#else
 	feVariable = (FeVariable*)FieldVariable_Register_GetByName( context->fieldVariable_Register, "TemperatureField" );
 	mesh       = feVariable->feMesh;
 	geometry   = (BlockGeometry*) mesh->layout->elementLayout->geometry;
@@ -658,7 +662,7 @@
 		*result = 1.0;
 	else if ( *result < 0.0 ) 
 		*result = 0.0;
-	
+#endif
 }
 
 void StG_FEM_StandardConditionFunctions_SinusoidalExtension( Node_LocalIndex node_lI, Variable_Index var_I, void* _context, void* _result ) {