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

u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/modules/AutodiffDriversx/AutodiffDriversx.cpp

@@ -71 +71 @@
 #if 0
                 double **J=xNew<double>(num_dependents,num_independents);
                 jacobian(1,num_dependents,num_independents,xp,J);
-                IssmPDouble *matJ=xNew<IssmPDouble>(num_dependents*num_independents);
-                for (int i=0;i<num_dependents*num_independents;++i)
-                  matJ[i]=J[i];
-                results->AddObject(new GenericExternalResult<IssmPDouble*>(results->Size()+1,AutodiffJacobianEnum,matJ,num_independents,num_dependents,1,1,0.0));
-                xDelete<IssmPDouble>(matJ);
+                results->AddObject(new GenericExternalResult<IssmPDouble*>(results->Size()+1,AutodiffJacobianEnum,*J,num_independents,num_dependents,1,1,0.0));
                 xDelete(J);
 #endif