Index: /issm/trunk/src/c/modules/InputScalex/ScaleInputx.cpp
===================================================================
--- /issm/trunk/src/c/modules/InputScalex/ScaleInputx.cpp	(revision 4074)
+++ /issm/trunk/src/c/modules/InputScalex/ScaleInputx.cpp	(revision 4074)
@@ -0,0 +1,25 @@
+/*!\file ScaleInputx
+ * \brief: duplicte  an input inside the elements, onto another, and wipe it off.
+ */
+
+#include "./ScaleInputx.h"
+#include "../../shared/shared.h"
+#include "../../include/include.h"
+#include "../../toolkits/toolkits.h"
+#include "../../EnumDefinitions/EnumDefinitions.h"
+
+void ScaleInputx(DataSet* elements,DataSet* nodes,DataSet* vertices,DataSet* loads,DataSet* materials,Parameters* parameters,int enum_type, double scale_factor){
+
+	/*intermediary:*/
+	int      i;
+
+	/*First, get elements and nodes configured: */
+	elements->Configure(elements,loads, nodes,vertices, materials,parameters);
+
+	/*Go through elemnets, and ask to reinitialie the input: */
+	for(i=0;i<elements->Size();i++){
+		Element* element=(Element*)elements->GetObjectByOffset(i);
+		element->ScaleInput(enum_type,scale_factor);
+	}
+
+}
Index: /issm/trunk/src/c/modules/InputScalex/ScaleInputx.h
===================================================================
--- /issm/trunk/src/c/modules/InputScalex/ScaleInputx.h	(revision 4074)
+++ /issm/trunk/src/c/modules/InputScalex/ScaleInputx.h	(revision 4074)
@@ -0,0 +1,14 @@
+/*!\file:  ScaleInputx.h
+ * \brief header file for field extrusion
+ */ 
+
+#ifndef _SCALEINPUTX_H
+#define _SCALEINPUTX_H
+
+#include "../../DataSet/DataSet.h"
+
+/* local prototypes: */
+void ScaleInputx(DataSet* elements,DataSet* nodes,DataSet* vertices,DataSet* loads,DataSet* materials,Parameters* parameters,int enum_type, double scale_factor);
+
+#endif  /* _SCALEINPUTX_H */
+