Index: /issm/trunk/src/mex/Gradj/Gradj.cpp
===================================================================
--- /issm/trunk/src/mex/Gradj/Gradj.cpp	(revision 6260)
+++ /issm/trunk/src/mex/Gradj/Gradj.cpp	(revision 6261)
@@ -8,15 +8,14 @@
 
 	/*input datasets: */
-	Elements*   elements     = NULL;
+	int         control_type;
+	Elements   *elements     = NULL;
 	Nodes      *nodes        = NULL;
-	Vertices    *vertices     = NULL;
-	Loads     *loads        = NULL;
-	Materials   *materials    = NULL;
+	Vertices   *vertices     = NULL;
+	Loads      *loads        = NULL;
+	Materials  *materials    = NULL;
 	Parameters *parameters   = NULL;
-	int         control_type;
 
 	/* output datasets: */
-	Vec         grad_g       = NULL;
-
+	Vec         gradient       = NULL;
 
 	/*Boot module: */
@@ -33,5 +32,5 @@
 	FetchData((DataSet**)&materials,MATERIALS);
 	FetchParams(&parameters,PARAMETERS);
-	parameters->FindParam(&control_type,ControlTypeEnum);
+	FetchData(&control_type,CONTROLTYPE);
 
 	/*configure: */
@@ -41,8 +40,8 @@
 
 	/*!Call core code: */
-	Gradjx(&grad_g,elements,nodes,vertices,loads,materials,parameters,control_type);
+	Gradjx(&gradient, elements,nodes, vertices,loads, materials,parameters, control_type);
 
 	/*write output : */
-	WriteData(GRADG,grad_g);
+	WriteData(GRADG,gradient);
 
 	/*Free ressources: */
@@ -53,5 +52,5 @@
 	delete materials;
 	delete parameters;
-	VecFree(&grad_g);
+	VecFree(&gradient);
 
 	/*end module: */
@@ -62,5 +61,5 @@
 {
 	_printf_("\n");
-	_printf_("   usage: [grad_g] = %s(elements,nodes,vertices,loads, materials, parameters);\n",__FUNCT__);
+	_printf_("   usage: [gradient] = %s(elements,nodes,vertices,loads, materials, parameters,control_type);\n",__FUNCT__);
 	_printf_("\n");
 }
Index: /issm/trunk/src/mex/Gradj/Gradj.h
===================================================================
--- /issm/trunk/src/mex/Gradj/Gradj.h	(revision 6260)
+++ /issm/trunk/src/mex/Gradj/Gradj.h	(revision 6261)
@@ -24,4 +24,5 @@
 #define MATERIALS (mxArray*)prhs[4]
 #define PARAMETERS (mxArray*)prhs[5]
+#define CONTROLTYPE (mxArray*)prhs[6]
 
 /* serial output macros: */
@@ -32,5 +33,5 @@
 #define NLHS  1
 #undef NRHS
-#define NRHS  6
+#define NRHS  7
 
 #endif  /* _GRADJ_H */
