Index: /issm/trunk-jpl/src/c/cores/extrudefromtop_core.cpp
===================================================================
--- /issm/trunk-jpl/src/c/cores/extrudefromtop_core.cpp	(revision 18825)
+++ /issm/trunk-jpl/src/c/cores/extrudefromtop_core.cpp	(revision 18826)
@@ -12,10 +12,26 @@
 void extrudefromtop_core(FemModel* femmodel){
 
+	/*Intermediaries*/
+	int elementtype,domaintype;
+
 	if(VerboseSolution()) _printf0_("extruding solution from top...\n");
 
-	/*Call on core computations: */
-	femmodel->SetCurrentConfiguration(ExtrudeFromTopAnalysisEnum);
-	femmodel->UpdateConstraintsExtrudeFromTopx();
-	solutionsequence_linear(femmodel);
+	/*Get parameters*/
+	femmodel->parameters->FindParam(&domaintype,DomainTypeEnum);
+	femmodel->parameters->FindParam(&elementtype,MeshElementtypeEnum);
 
+	/*If this is a 2D horizontal domain, return (no need to extrude)*/
+	if(domaintype==Domain2DhorizontalEnum) return;
+
+	/*Special method for Penta, otherwise call solution sequence*/
+	if(elementtype==PentaEnum){
+		int inputenum; femmodel->parameters->FindParam(&inputenum,InputToExtrudeEnum);
+		InputExtrudex(femmodel,inputenum,+1);
+	}
+	else{
+		/*Call on core computations: */
+		femmodel->SetCurrentConfiguration(ExtrudeFromTopAnalysisEnum);
+		femmodel->UpdateConstraintsExtrudeFromTopx();
+		solutionsequence_linear(femmodel);
+	}
 }