Changeset 12477 for issm/trunk-jpl/src/c/solutions/control_core.cpp
- Timestamp:
- 06/20/12 12:31:14 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/solutions/control_core.cpp
r12439 r12477 20 20 int num_controls,num_responses; 21 21 int nsteps; 22 double tol_cm;22 IssmDouble tol_cm; 23 23 bool cm_gradient; 24 24 int dim; … … 28 28 29 29 int* control_type = NULL; 30 double* responses=NULL;30 IssmDouble* responses=NULL; 31 31 int* step_responses=NULL; 32 double* maxiter=NULL;33 double* cm_jump=NULL;32 IssmDouble* maxiter=NULL; 33 IssmDouble* cm_jump=NULL; 34 34 35 35 /*intermediary: */ 36 double search_scalar=1;36 IssmDouble search_scalar=1; 37 37 OptArgs optargs; 38 38 OptPars optpars; … … 43 43 44 44 /*output: */ 45 double* J=NULL;45 IssmDouble* J=NULL; 46 46 47 47 /*Recover parameters used throughout the solution*/ … … 70 70 71 71 /*Initialize responses: */ 72 J=xNew< double>(nsteps);72 J=xNew<IssmDouble>(nsteps); 73 73 step_responses=xNew<int>(num_responses); 74 74 … … 122 122 xDelete<int>(control_type); 123 123 xDelete<int>(step_responses); 124 xDelete< double>(maxiter);125 xDelete< double>(responses);126 xDelete< double>(cm_jump);127 xDelete< double>(J);124 xDelete<IssmDouble>(maxiter); 125 xDelete<IssmDouble>(responses); 126 xDelete<IssmDouble>(cm_jump); 127 xDelete<IssmDouble>(J); 128 128 }
Note:
See TracChangeset
for help on using the changeset viewer.