Index: /issm/trunk/src/m/solvers/solver_adjoint_linear.m
===================================================================
--- /issm/trunk/src/m/solvers/solver_adjoint_linear.m	(revision 6001)
+++ /issm/trunk/src/m/solvers/solver_adjoint_linear.m	(revision 6002)
@@ -10,5 +10,5 @@
 	if kffpartitioning,
 		[K_gg,K_ff,K_fs,p_g,p_f,kmax]=SystemMatrices(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters);
-		p_f = Reduceload( p_f, K_fs, femmodel.ys);
+		p_f = Reduceload( p_f, K_fs, femmodel.ys,true);
 	else
 		[K_gg,K_ff,K_fs,p_g,p_f,kmax]=SystemMatrices(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters);