Index: /issm/trunk/src/c/objects/Elements/Penta.cpp
===================================================================
--- /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 6987)
+++ /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 6988)
@@ -703,5 +703,5 @@
 
 	/*compute all stiffness matrices for this element*/
-	ElementMatrix* Ke1=CreateKMatrixCouplingMacAyealPattynViscous();
+	ElementMatrix* Ke1=CreateKMatrixCouplingMacAyealStokesViscous();
 	ElementMatrix* Ke2=CreateKMatrixCouplingMacAyealPattynFriction();
 	ElementMatrix* Ke =new ElementMatrix(Ke1,Ke2);