Index: ../trunk-jpl/src/c/analyses/LevelsetAnalysis.cpp
===================================================================
--- ../trunk-jpl/src/c/analyses/LevelsetAnalysis.cpp	(revision 19017)
+++ ../trunk-jpl/src/c/analyses/LevelsetAnalysis.cpp	(revision 19018)
@@ -301,7 +301,7 @@
 					meltingrate_input->GetInputValue(&meltingrate,gauss);
 
 					norm_calving=0.;
-					for(i=0;i<dim;i++) norm_calving+=pow(c[i],2);
+					for(i=0;i<dim;i++) norm_calving+=c[i]*c[i];
 					norm_calving=sqrt(norm_calving)+1.e-14;
 
 					for(i=0;i<dim;i++) m[i]=meltingrate*c[i]/norm_calving;
