Index: /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16158)
+++ /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16159)
@@ -8581,5 +8581,5 @@
 
 	/*Intermediaries */
-	int         approximation;
+	int         i,approximation;
 	IssmDouble  viscosity,Jdet;
 	IssmDouble  FSreconditioning;
@@ -8626,5 +8626,5 @@
 		material->GetViscosity3dFS(&viscosity,&epsilon[0]);
 
-		for(int i=0;i<NUMVERTICES;i++){
+		for(i=0;i<NUMVERTICES;i++){
 			pe->values[i*NDOF3+0]+=-Jdet*gauss->weight*viscosity*dw[0]*dbasis[2][i];
 			pe->values[i*NDOF3+1]+=-Jdet*gauss->weight*viscosity*dw[1]*dbasis[2][i];