Index: /issm/trunk/src/m/solutions/gradient_core.m
===================================================================
--- /issm/trunk/src/m/solutions/gradient_core.m	(revision 6262)
+++ /issm/trunk/src/m/solutions/gradient_core.m	(revision 6263)
@@ -30,5 +30,5 @@
 
 		displaystring(verbose,['      compute gradient of J with respect to %s\n'],EnumToString(control_type(i)));
-		grad=Gradj(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters);
+		grad=Gradj(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters,control_type(i));
 
 		if control_steady,