Index: /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16356)
+++ /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16357)
@@ -4875,6 +4875,8 @@
 		IssmDouble pressure[numdof];
 		GetInputListOnVertices(&pressure[0],PressureEnum);
-		if(values[i]>matpar->TMeltingPoint(pressure[i]))     values[i]=matpar->TMeltingPoint(pressure[i]);
-		if(values[i]<matpar->TMeltingPoint(pressure[i])-50.) values[i]=matpar->TMeltingPoint(pressure[i])-50.;
+		for(i=0;i<numdof;i++){
+			if(values[i]>matpar->TMeltingPoint(pressure[i]))     values[i]=matpar->TMeltingPoint(pressure[i]);
+			if(values[i]<matpar->TMeltingPoint(pressure[i])-50.) values[i]=matpar->TMeltingPoint(pressure[i])-50.;
+		}
 	}