Changeset 6002

Timestamp:

09/23/10 15:25:17 (14 years ago)

Author:

Mathieu Morlighem

Message:

oops

File:

• issm/trunk/src/m/solvers/solver_adjoint_linear.m (modified) (1 diff)

issm/trunk/src/m/solvers/solver_adjoint_linear.m

@@ -10 +10 @@
         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);