Index: /issm/trunk/src/c/ModelProcessorx/DiagnosticStokes/CreateElementsNodesAndMaterialsDiagnosticStokes.cpp
===================================================================
--- /issm/trunk/src/c/ModelProcessorx/DiagnosticStokes/CreateElementsNodesAndMaterialsDiagnosticStokes.cpp	(revision 3549)
+++ /issm/trunk/src/c/ModelProcessorx/DiagnosticStokes/CreateElementsNodesAndMaterialsDiagnosticStokes.cpp	(revision 3550)
@@ -59,10 +59,12 @@
 
 		if(iomodel->my_elements[i]){
+			 if (*(iomodel->elements_type+2*i+1)==StokesFormulationEnum()){
 
-			/*Create and add penta element to elements dataset: */
-			elements->AddObject(new Penta(i,iomodel));
+				 /*Create and add penta element to elements dataset: */
+				 elements->AddObject(new Penta(i,iomodel));
 
-			/*Create and add material property to materials dataset: */
-			materials->AddObject(new Matice(i,iomodel,6));
+				 /*Create and add material property to materials dataset: */
+				 materials->AddObject(new Matice(i,iomodel,6));
+			 }
 
 		}