source: issm/oecreview/Archive/12678-13393/ISSM-13325-13326.diff

Last change on this file was 13394, checked in by Mathieu Morlighem, 13 years ago

Added 12678-13393
File size: 1.1 KB
RevLine 
[13394]1Index: /u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/modules/AutodiffDriversx/AutodiffDriversx.cpp
2===================================================================
3--- /u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/modules/AutodiffDriversx/AutodiffDriversx.cpp (revision 13325)
4+++ /u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/modules/AutodiffDriversx/AutodiffDriversx.cpp (revision 13326)
5@@ -71,11 +71,7 @@
6 #if 0
7 double **J=xNew<double>(num_dependents,num_independents);
8 jacobian(1,num_dependents,num_independents,xp,J);
9- IssmPDouble *matJ=xNew<IssmPDouble>(num_dependents*num_independents);
10- for (int i=0;i<num_dependents*num_independents;++i)
11- matJ[i]=J[i];
12- results->AddObject(new GenericExternalResult<IssmPDouble*>(results->Size()+1,AutodiffJacobianEnum,matJ,num_independents,num_dependents,1,1,0.0));
13- xDelete<IssmPDouble>(matJ);
14+ results->AddObject(new GenericExternalResult<IssmPDouble*>(results->Size()+1,AutodiffJacobianEnum,*J,num_independents,num_dependents,1,1,0.0));
15 xDelete(J);
16 #endif
17
Note: See TracBrowser for help on using the repository browser.