Index: /issm/trunk/src/c/objects/Loads/Pengrid.cpp
===================================================================
--- /issm/trunk/src/c/objects/Loads/Pengrid.cpp	(revision 6051)
+++ /issm/trunk/src/c/objects/Loads/Pengrid.cpp	(revision 6052)
@@ -544,5 +544,5 @@
 	/*Initialize Element vector and return if necessary*/
 	penta->inputs->GetParameterValue(&approximation,ApproximationEnum);
-	if(approximation!=StokesApproximationEnum) return NULL;
+	if(approximation!=StokesApproximationEnum &&  approximation!=PattynStokesApproximationEnum) return NULL;
 	ElementMatrix* Ke=new ElementMatrix(&node,1,this->parameters,StokesApproximationEnum);