Index: /issm/trunk/src/c/objects/Elements/Penta.cpp
===================================================================
--- /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 9030)
+++ /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 9031)
@@ -5685,5 +5685,4 @@
 	double xyz_list[NUMVERTICES][3];
 	int*   doflist = NULL;
-	double *vz_ptr = NULL;
 
 	/*Get dof list: */
@@ -5709,9 +5708,5 @@
 	Input* vz_input=inputs->GetInput(VzEnum);
 	if (vz_input){
-		if (vz_input->Enum()!=PentaVertexInputEnum){
-			_error_("Cannot compute Vel as Vz is of type %s",EnumToStringx(vz_input->Enum()));
-		}
-		vz_input->GetValuesPtr(&vz_ptr,&dummy);
-		for(i=0;i<NUMVERTICES;i++) vz[i]=vz_ptr[i];
+		GetParameterListOnVertices(&vz[0],VzEnum);
 	}
 	else{