Index: /issm/trunk/src/m/solutions/ice/PenaltySystemMatrices.m
===================================================================
--- /issm/trunk/src/m/solutions/ice/PenaltySystemMatrices.m	(revision 501)
+++ /issm/trunk/src/m/solutions/ice/PenaltySystemMatrices.m	(revision 502)
@@ -6,5 +6,5 @@
 
 %Get stiffness matrix maximum magnitude
-kmax=max(max(abs(Kgg)));
+kmax=norm(Kgg,inf);
 
 if kflag,