Changeset 13073 for issm/trunk-jpl/src/c/modules/ControlInputScaleGradientx/ControlInputScaleGradientx.cpp

Timestamp:

08/16/12 18:30:40 (13 years ago)

Author:

Eric.Larour

Message:

CHG: extended rest of the code (except for kriging code) to use IssmDouble
and IssmPDouble active and passive types, for use with AD type constructs (using
ADOLC or ADIC in the future).

File:

• issm/trunk-jpl/src/c/modules/ControlInputScaleGradientx/ControlInputScaleGradientx.cpp (modified) (2 diffs)

issm/trunk-jpl/src/c/modules/ControlInputScaleGradientx/ControlInputScaleGradientx.cpp

@@ -9 +9 @@
 #include "../../EnumDefinitions/EnumDefinitions.h"
 
-void ControlInputScaleGradientx(Elements* elements,Nodes* nodes, Vertices* vertices, Loads* loads, Materials* materials, Parameters* parameters,double* norm_list,int step){
+void ControlInputScaleGradientx(Elements* elements,Nodes* nodes, Vertices* vertices, Loads* loads, Materials* materials, Parameters* parameters,IssmDouble* norm_list,int step){
 
         /*Intermediaries*/
         int     i,j,num_controls;
         int    *control_type = NULL;
-        double *scalar_list = NULL;
-        double  scalar;
+        IssmDouble *scalar_list = NULL;
+        IssmDouble  scalar;
 
 
@@ -38 +38 @@
         /*Clean up and return*/
         xDelete<int>(control_type);
-        xDelete<double>(scalar_list);
+        xDelete<IssmDouble>(scalar_list);
 }