Changeset 1960

Timestamp:

08/26/09 15:11:05 (15 years ago)

Author:

Eric.Larour

Message:

Fixed leaks in control_core

File:

• issm/trunk/src/c/parallel/control_core.cpp (modified) (1 diff)

issm/trunk/src/c/parallel/control_core.cpp

@@ -145 +145 @@
         result=new Result(results->Size()+1,0,1,"J",J,nsteps);
         results->AddObject(result);
+
+        /*Free ressources: */
+        xfree((void**)&control_type);
+        xfree((void**)&fit);
+        xfree((void**)&optscal);
+        xfree((void**)&maxiter);
+        PetscSynchronizedPrintf(MPI_COMM_WORLD,"ok2\n");
+        PetscSynchronizedFlush(MPI_COMM_WORLD);
+        VecFree(&new_grad_g); //do not VecFree grad_g and grad_g_old, they point to new_grad_g
+        xfree((void**)&grad_g_double);
+        xfree((void**)&param_g);
+        VecFree(&u_g);
+        xfree((void**)&J);
+
 }