--- imach/src/imach.c	2006/02/26 12:57:58	1.114
+++ imach/src/imach.c	2006/02/27 12:17:45	1.115
@@ -1,6 +1,9 @@
-/* $Id: imach.c,v 1.114 2006/02/26 12:57:58 brouard Exp $
+/* $Id: imach.c,v 1.115 2006/02/27 12:17:45 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.115  2006/02/27 12:17:45  brouard
+  (Module): One freematrix added in mlikeli! 0.98c
+
   Revision 1.114  2006/02/26 12:57:58  brouard
   (Module): Some improvements in processing parameter
   filename with strsep.
@@ -301,11 +304,11 @@ extern int errno;
 #define ODIRSEPARATOR '/'
 #endif
 
-/* $Id: imach.c,v 1.114 2006/02/26 12:57:58 brouard Exp $ */
+/* $Id: imach.c,v 1.115 2006/02/27 12:17:45 brouard Exp $ */
 /* $State: Exp $ */
 
-char version[]="Imach version 0.98b, January 2006, INED-EUROREVES ";
-char fullversion[]="$Revision: 1.114 $ $Date: 2006/02/26 12:57:58 $"; 
+char version[]="Imach version 0.98c, February 2006, INED-EUROREVES ";
+char fullversion[]="$Revision: 1.115 $ $Date: 2006/02/27 12:17:45 $"; 
 int erreur, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
 int nvar;
 int cptcovn=0, cptcovage=0, cptcoveff=0,cptcov;
@@ -1668,6 +1671,7 @@ void mlikeli(FILE *ficres,double p[], in
 
   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));