From d09c3016159cb5c625b5d12a26989070428fd34d Mon Sep 17 00:00:00 2001
From: "N. Brouard" <brouard@ined.fr>
Date: Mon, 27 Feb 2006 12:17:45 +0000
Subject: [PATCH] (Module): One freematrix added in mlikeli! 0.98c

---
 src/imach.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/imach.c b/src/imach.c
index 2cdc56d..50f7083 100644
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,10 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.114  2006/02/26 12:57:58  brouard
+  (Module): Some improvements in processing parameter
+  filename with strsep.
+
   Revision 1.113  2006/02/24 14:20:24  brouard
   (Module): Memory leaks checks with valgrind and:
   datafile was not closed, some imatrix were not freed and on matrix
@@ -300,7 +304,7 @@ extern int errno;
 /* $Id$ */
 /* $State$ */
 
-char version[]="Imach version 0.98b, January 2006, INED-EUROREVES ";
+char version[]="Imach version 0.98c, February 2006, INED-EUROREVES ";
 char fullversion[]="$Revision$ $Date$"; 
 int erreur, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
 int nvar;
@@ -1664,6 +1668,7 @@ void mlikeli(FILE *ficres,double p[], int npar, int ncovmodel, int nlstate, doub
 
   powell(p,xi,npar,ftol,&iter,&fret,func);
 
+  free_matrix(xi,1,npar,1,npar);
   fclose(ficrespow);
   printf("\n#Number of iterations = %d, -2 Log likelihood = %.12f\n",iter,func(p));
   fprintf(ficlog,"\n#Number of iterations = %d, -2 Log likelihood = %.12f \n",iter,func(p));
-- 
2.43.0