Index: /issm/trunk/src/mex/InputScale/InputScale.cpp
===================================================================
--- /issm/trunk/src/mex/InputScale/InputScale.cpp	(revision 4138)
+++ /issm/trunk/src/mex/InputScale/InputScale.cpp	(revision 4138)
@@ -0,0 +1,63 @@
+/*\file InputScale.c
+ *\brief: duplicate input
+ */
+
+#include "./InputScale.h"
+
+void mexFunction( int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[]){
+
+	/*diverse: */
+	int   noerr=1;
+
+	/*input datasets: */
+	DataSet* elements=NULL;
+	DataSet* nodes=NULL;
+	DataSet* vertices=NULL;
+	DataSet* loads=NULL;
+	DataSet* materials=NULL;
+	Parameters* parameters=NULL;
+	int      enum_type;
+	double   scale_factor;
+
+	/*Boot module: */
+	MODULEBOOT();
+
+	/*checks on arguments on the matlab side: */
+	CheckNumMatlabArguments(nlhs,NLHS,nrhs,NRHS,__FUNCT__,&InputScaleUsage);
+
+	/*Input datasets: */
+	FetchData(&elements,ELEMENTS);
+	FetchData(&nodes,NODES);
+	FetchData(&vertices,VERTICES);
+	FetchData(&loads,LOADS);
+	FetchData(&materials,MATERIALS);
+	FetchParams(&parameters,PARAMETERS);
+	
+	FetchData(&enum_type,ENUMTYPE);
+	FetchData(&scale_factor,SCALEFACTOR);
+
+	/*!Call core code: */
+	InputScalex( elements, nodes, vertices, loads, materials,parameters,enum_type, scale_factor);
+
+	/*write output : */
+	WriteData(ELEMENTSOUT,elements);
+
+	/*Free ressources: */
+	delete elements;
+	delete nodes;
+	delete vertices;
+	delete loads;
+	delete materials;
+	delete parameters;
+	
+	/*end module: */
+	MODULEEND();
+
+}
+
+void InputScaleUsage(void)
+{
+	_printf_("\n");
+	_printf_("   usage: [elements] = %s(elements, nodes, vertices, loads, materials, parameters, enum_type,scale_factor);\n",__FUNCT__);
+	_printf_("\n");
+}
Index: /issm/trunk/src/mex/InputScale/InputScale.h
===================================================================
--- /issm/trunk/src/mex/InputScale/InputScale.h	(revision 4138)
+++ /issm/trunk/src/mex/InputScale/InputScale.h	(revision 4138)
@@ -0,0 +1,37 @@
+/*
+	InputScale.h
+*/
+
+#ifndef _INPUTSCALE_H
+#define _INPUTSCALE_H
+
+/* local prototypes: */
+void InputScaleUsage(void);
+
+#include "../../c/modules/modules.h"
+#include "../../c/DataSet/DataSet.h"
+#include "../../c/shared/shared.h"
+
+#undef __FUNCT__ 
+#define __FUNCT__  "InputScale"
+
+/* serial input macros: */
+#define ELEMENTS (mxArray*)prhs[0]
+#define NODES (mxArray*)prhs[1]
+#define VERTICES (mxArray*)prhs[2]
+#define LOADS (mxArray*)prhs[3]
+#define MATERIALS (mxArray*)prhs[4]
+#define PARAMETERS (mxArray*)prhs[5]
+#define ENUMTYPE (mxArray*)prhs[6]
+#define SCALEFACTOR (mxArray*)prhs[7]
+
+/* serial output macros: */
+#define ELEMENTSOUT (mxArray**)&plhs[0]
+
+/* serial arg counts: */
+#undef NLHS
+#define NLHS  1
+#undef NRHS
+#define NRHS  8
+
+#endif  /* _INPUTSCALE_H */
Index: /issm/trunk/src/mex/InputToResult/InputToResult.cpp
===================================================================
--- /issm/trunk/src/mex/InputToResult/InputToResult.cpp	(revision 4138)
+++ /issm/trunk/src/mex/InputToResult/InputToResult.cpp	(revision 4138)
@@ -0,0 +1,64 @@
+/*\file InputToResult.c
+ *\brief: duplicate input
+ */
+
+#include "./InputToResult.h"
+
+void mexFunction( int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[]){
+
+	/*diverse: */
+	int   noerr=1;
+
+	/*input datasets: */
+	DataSet* elements=NULL;
+	DataSet* nodes=NULL;
+	DataSet* vertices=NULL;
+	DataSet* loads=NULL;
+	DataSet* materials=NULL;
+	Parameters* parameters=NULL;
+	int      enum_type,step; 
+	double   time;
+
+	/*Boot module: */
+	MODULEBOOT();
+
+	/*checks on arguments on the matlab side: */
+	CheckNumMatlabArguments(nlhs,NLHS,nrhs,NRHS,__FUNCT__,&InputToResultUsage);
+
+	/*Input datasets: */
+	FetchData(&elements,ELEMENTS);
+	FetchData(&nodes,NODES);
+	FetchData(&vertices,VERTICES);
+	FetchData(&loads,LOADS);
+	FetchData(&materials,MATERIALS);
+	FetchParams(&parameters,PARAMETERS);
+	
+	FetchData(&enum_type,ENUMTYPE);
+	FetchData(&step,STEP);
+	FetchData(&time,TIME);
+
+	/*!Call core code: */
+	InputToResultx( elements, nodes, vertices, loads, materials,parameters,enum_type, step,time);
+
+	/*write output : */
+	WriteData(ELEMENTSOUT,elements);
+
+	/*Free ressources: */
+	delete elements;
+	delete nodes;
+	delete vertices;
+	delete loads;
+	delete materials;
+	delete parameters;
+	
+	/*end module: */
+	MODULEEND();
+
+}
+
+void InputToResultUsage(void)
+{
+	_printf_("\n");
+	_printf_("   usage: [elements] = %s(elements, nodes, vertices, loads, materials, parameters, enum_type,step,time);\n",__FUNCT__);
+	_printf_("\n");
+}
Index: /issm/trunk/src/mex/InputToResult/InputToResult.h
===================================================================
--- /issm/trunk/src/mex/InputToResult/InputToResult.h	(revision 4138)
+++ /issm/trunk/src/mex/InputToResult/InputToResult.h	(revision 4138)
@@ -0,0 +1,38 @@
+/*
+	InputToResult.h
+*/
+
+#ifndef _INPUTTORESULT_H
+#define _INPUTTORESULT_H
+
+/* local prototypes: */
+void InputToResultUsage(void);
+
+#include "../../c/modules/modules.h"
+#include "../../c/DataSet/DataSet.h"
+#include "../../c/shared/shared.h"
+
+#undef __FUNCT__ 
+#define __FUNCT__  "InputToResult"
+
+/* serial input macros: */
+#define ELEMENTS (mxArray*)prhs[0]
+#define NODES (mxArray*)prhs[1]
+#define VERTICES (mxArray*)prhs[2]
+#define LOADS (mxArray*)prhs[3]
+#define MATERIALS (mxArray*)prhs[4]
+#define PARAMETERS (mxArray*)prhs[5]
+#define ENUMTYPE (mxArray*)prhs[6]
+#define STEP (mxArray*)prhs[7]
+#define TIME (mxArray*)prhs[8]
+
+/* serial output macros: */
+#define ELEMENTSOUT (mxArray**)&plhs[0]
+
+/* serial arg counts: */
+#undef NLHS
+#define NLHS  1
+#undef NRHS
+#define NRHS  9
+
+#endif  /* _INPUTTORESULT_H */