Index: /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 15771)
+++ /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 15772)
@@ -7015,4 +7015,5 @@
 	Friction*  friction=NULL;
 	GaussPenta *gauss=NULL;
+	Node *node_list[20];
 
 	/*If on water or not FS, skip stiffness: */
@@ -7024,6 +7025,5 @@
 	int numnodes  = 2*vnumnodes-1+pnumnodes;
 
-	Node       *node_list[numnodes];
-	int         cs_list[numnodes];
+	int* cs_list = xNew<int>(numnodes);
 
 	ElementMatrix* Ke1=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,SSAApproximationEnum);
@@ -8258,4 +8258,9 @@
 	ElementVector* pe1=CreatePVectorCouplingHOFSViscous();
 	ElementVector* pe2=CreatePVectorCouplingHOFSFriction();
+//	if(id==15){
+//	pe1->Echo();
+//	pe2->Echo();
+//	_error_("");
+//	}
 	ElementVector* pe =new ElementVector(pe1,pe2);