source: issm/oecreview/Archive/11025-11228/ISSM-11069-11070.diff@ 11232

proj/ice/larour/issm-uci-clean/trunk-jpl/src/c/shared/Numerics/isnan.h

@@ -7 +7 @@
 
 #ifdef _INTEL_WIN_
 int isnan(double X);
+#define NAN 0.0/0.0
 #endif
 
 #endif

proj/ice/larour/issm-uci-clean/trunk-jpl/src/c/shared/Numerics/UnitConversion.cpp

@@ -66 +66 @@
                 case SurfaceforcingsAblationRateEnum:     scale=yts;break; //m/yr
                 case SurfaceforcingsMassBalanceEnum:      scale=yts;break; //m/yr
                 case MisfitEnum:      scale=pow(yts,2);break; //(m/yr)^2
-                case MassFluxEnum:    scale=pow(10,-12)*yts;break; // (GigaTon/year)
+                case MassFluxEnum:    scale=pow((double)10,-12)*yts;break; // (GigaTon/year)
                 default: scale=1.0; break;
         }
         return scale;

proj/ice/larour/issm-uci-clean/trunk-jpl/src/c/objects/Elements/Tria.cpp

@@ -4901 +4901 @@
         for(i=0;i<numdof;i++){
                 values[i]=solution[doflist[i]];
                 if(isnan(values[i])) _error_("NaN found in solution vector");
-                if (values[i]<pow(10,-10))values[i]=pow(10,-10); //correcting the water column to positive values
+                if (values[i]<pow((double)10,(double)-10))values[i]=pow((double)10,(double)-10); //correcting the water column to positive values
  
         }
 

proj/ice/larour/issm-uci-clean/trunk-jpl/src/c/objects/Inputs/IntInput.cpp

@@ -189 +189 @@
 void IntInput::SquareMin(double* psquaremin, bool process_units,Parameters* parameters){
 
         /*square min of an integer is the square of the integer itself: */
-        *psquaremin=pow(value,2);
+        *psquaremin=pow((double)value,2);
 }
 /*}}}*/
 /*FUNCTION IntInput::Scale{{{1*/