Index: /issm/trunk/src/c/objects/Elements/Penta.cpp
===================================================================
--- /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 4478)
+++ /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 4479)
@@ -2556,5 +2556,26 @@
 /*FUNCTION Penta::InputUpdateFromSolutionBalancedthickness {{{1*/
 void  Penta::InputUpdateFromSolutionBalancedthickness(double* solution){
-	ISSMERROR(" not supported yet!");
+
+	int i;
+
+	const int    numvertices=6;
+	const int    numdofpervertex=1;
+	const int    numdof=numdofpervertex*numvertices;
+
+	int          doflist[numdof];
+	double       values[numdof];
+
+	int          dummy;
+
+	/*Get dof list: */
+	GetDofList(&doflist[0],&dummy);
+
+	/*Use the dof list to index into the solution vector: */
+	for(i=0;i<numdof;i++){
+		values[i]=solution[doflist[i]];
+	}
+
+	/*Add thickness as inputs to the tria element: */
+	this->inputs->AddInput(new PentaVertexInput(ThicknessEnum,values));
 }
 /*}}}*/