Index: /issm/trunk/src/c/modules/Reduceloadx/Reduceloadx.cpp
===================================================================
--- /issm/trunk/src/c/modules/Reduceloadx/Reduceloadx.cpp	(revision 6010)
+++ /issm/trunk/src/c/modules/Reduceloadx/Reduceloadx.cpp	(revision 6011)
@@ -11,15 +11,15 @@
 #include "./Reduceloadx.h"
 
-void	Reduceloadx( Vec pf, Mat Kfs, Vec y_s, bool flag_ys0){
+void	Reduceloadx( Vec pf, Mat Kfs, Vec y_s,Parameters* parameters,bool flag_ys0){
 
 	/*intermediary*/
-	Vec y_s0=NULL;
-	Vec Kfsy_s=NULL;
-	int Kfsm,Kfsn;
+	Vec         y_s0   = NULL;
+	Vec         Kfsy_s = NULL;
+	int         Kfsm,Kfsn;
 	PetscScalar a;
-	bool fromlocalsize=true;
-	int  verbose=1;
+	bool        fromlocalsize = true;
+	int         verbose;
 
-	//parameters->FindParam(&verbose,VerboseEnum);
+	parameters->FindParam(&verbose,VerboseEnum);
 	if (verbose) _printf_("   Dirichlet lifting applied to load vector\n");
 	
Index: /issm/trunk/src/c/modules/Reduceloadx/Reduceloadx.h
===================================================================
--- /issm/trunk/src/c/modules/Reduceloadx/Reduceloadx.h	(revision 6010)
+++ /issm/trunk/src/c/modules/Reduceloadx/Reduceloadx.h	(revision 6011)
@@ -9,5 +9,5 @@
 
 /* local prototypes: */
-void	Reduceloadx( Vec pf, Mat Kfs, Vec ys, bool flag_ys0=false);
+void	Reduceloadx( Vec pf, Mat Kfs, Vec ys,Parameters* parameters, bool flag_ys0=false);
 
 #endif  /* _REDUCELOADX_H */
Index: /issm/trunk/src/c/solvers/solver_adjoint_linear.cpp
===================================================================
--- /issm/trunk/src/c/solvers/solver_adjoint_linear.cpp	(revision 6010)
+++ /issm/trunk/src/c/solvers/solver_adjoint_linear.cpp	(revision 6011)
@@ -23,5 +23,5 @@
 	if(kffpartitioning){
 		SystemMatricesx(NULL,&Kff, &Kfs, NULL,&pf, NULL,femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters);
-		Reduceloadx(pf, Kfs, femmodel->ys,true); MatFree(&Kfs); //true means spc = 0
+		Reduceloadx(pf, Kfs, femmodel->ys,femmodel->parameters,true); MatFree(&Kfs); //true means spc = 0
 	}
 	else{
Index: /issm/trunk/src/c/solvers/solver_diagnostic_nonlinear.cpp
===================================================================
--- /issm/trunk/src/c/solvers/solver_diagnostic_nonlinear.cpp	(revision 6010)
+++ /issm/trunk/src/c/solvers/solver_diagnostic_nonlinear.cpp	(revision 6011)
@@ -56,5 +56,5 @@
 		if(kffpartitioning){
 			SystemMatricesx(NULL,&Kff, &Kfs, NULL,&pf, NULL,femmodel->elements,femmodel->nodes,femmodel->vertices,loads,femmodel->materials,femmodel->parameters);
-			Reduceloadx(pf, Kfs, femmodel->ys); MatFree(&Kfs);
+			Reduceloadx(pf, Kfs, femmodel->ys,femmodel->parameters); MatFree(&Kfs);
 		}
 		else{
Index: /issm/trunk/src/c/solvers/solver_linear.cpp
===================================================================
--- /issm/trunk/src/c/solvers/solver_linear.cpp	(revision 6010)
+++ /issm/trunk/src/c/solvers/solver_linear.cpp	(revision 6011)
@@ -21,5 +21,5 @@
 	if(kffpartitioning){
 		SystemMatricesx(NULL,&Kff, &Kfs, NULL,&pf, NULL,femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters);
-		Reduceloadx(pf, Kfs, femmodel->ys); MatFree(&Kfs);
+		Reduceloadx(pf, Kfs, femmodel->ys,femmodel->parameters); MatFree(&Kfs);
 	}
 	else{
Index: /issm/trunk/src/c/solvers/solver_thermal_nonlinear.cpp
===================================================================
--- /issm/trunk/src/c/solvers/solver_thermal_nonlinear.cpp	(revision 6010)
+++ /issm/trunk/src/c/solvers/solver_thermal_nonlinear.cpp	(revision 6011)
@@ -53,5 +53,5 @@
 		if(kffpartitioning){
 			SystemMatricesx(NULL,&Kff, &Kfs, NULL,&pf,&melting_offset,femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters);
-			Reduceloadx(pf, Kfs, femmodel->ys); MatFree(&Kfs);
+			Reduceloadx(pf, Kfs, femmodel->ys,femmodel->parameters); MatFree(&Kfs);
 		}
 		else{