Changeset 14893 for issm/trunk-jpl/src
- Timestamp:
- 05/04/13 21:50:12 (12 years ago)
- Location:
- issm/trunk-jpl/src/c/solutions
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/solutions/controltao_core.cpp
r14785 r14893 74 74 TaoSetInitialVector(tao,X->pvector->vector); 75 75 TaoSetVariableBounds(tao,XL->pvector->vector,XU->pvector->vector); 76 xdelete(&XL);77 xdelete(&XU);76 delete XL; 77 delete XU; 78 78 79 79 user.J=xNewZeroInit<double>(maxiter+5); … … 102 102 xDelete<int>(control_list); 103 103 xDelete<double>(user.J); 104 xdelete(&X);104 delete X; 105 105 TaoDestroy(&tao); 106 106 TaoFinalize(); … … 123 123 //VecView(X,PETSC_VIEWER_STDOUT_WORLD); 124 124 SetControlInputsFromVectorx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,X); 125 xdelete(&X);125 delete X; 126 126 127 127 /*Recover some parameters*/ … … 148 148 /*Compute gradient*/ 149 149 Gradjx(&gradient,NULL,femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters); 150 VecCopy(gradient->pvector->vector,G); xdelete(&gradient);150 VecCopy(gradient->pvector->vector,G); delete gradient; 151 151 VecScale(G,-1.); 152 152 -
issm/trunk-jpl/src/c/solutions/convergence.cpp
r14822 r14893 60 60 61 61 //clean up 62 xdelete(&KU);63 xdelete(&KUF);62 delete KU; 63 delete KUF; 64 64 } 65 65 … … 79 79 80 80 //clean up 81 xdelete(&KUold);82 xdelete(&KUoldF);81 delete KUold; 82 delete KUoldF; 83 83 84 84 //print … … 102 102 103 103 //clean up 104 xdelete(&duf);104 delete duf; 105 105 106 106 //print … … 127 127 128 128 //clean up 129 xdelete(&duf);129 delete duf; 130 130 131 131 //print -
issm/trunk-jpl/src/c/solutions/gradient_core.cpp
r13216 r14893 29 29 if(VerboseControl()) _pprintLine_(" orthogonalization"); 30 30 ControlInputGetGradientx(&old_gradient,femmodel->elements,femmodel->nodes, femmodel->vertices,femmodel->loads, femmodel->materials,femmodel->parameters); 31 Orthx(&new_gradient,gradient,old_gradient); xdelete(&old_gradient); xdelete(&gradient);31 Orthx(&new_gradient,gradient,old_gradient); delete old_gradient; delete gradient; 32 32 } 33 33 else{ … … 42 42 /*plug back into inputs: */ 43 43 ControlInputSetGradientx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,new_gradient); 44 xdelete(&new_gradient);44 delete new_gradient; 45 45 46 46 /*Scale Gradients*/
Note:
See TracChangeset
for help on using the changeset viewer.