--- imach/src/imach.c	2002/11/21 08:46:21	1.64
+++ imach/src/imach.c	2002/12/11 16:58:19	1.65
@@ -1,4 +1,4 @@
-/* $Id: imach.c,v 1.64 2002/11/21 08:46:21 lievre Exp $
+/* $Id: imach.c,v 1.65 2002/12/11 16:58:19 lievre Exp $
    Interpolated Markov Chain
 
   Short summary of the programme:
@@ -1131,7 +1131,7 @@ void mlikeli(FILE *ficres,double p[], in
   powell(p,xi,npar,ftol,&iter,&fret,func);
 
    printf("\n#Number of iterations = %d, -2 Log likelihood = %.12f\n",iter,func(p));
-  fprintf(ficlog,"#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));
   fprintf(ficres,"#Number of iterations = %d, -2 Log likelihood = %.12f \n",iter,func(p));
 
 }
@@ -4010,7 +4010,7 @@ Interval (in months) between two waves:
   free_imatrix(mw,1,lastpass-firstpass+1,1,imx);   
   free_ivector(num,1,n);
   free_vector(agedc,1,n);
-  free_matrix(covar,0,NCOVMAX,1,n);
+  /*free_matrix(covar,0,NCOVMAX,1,n);*/
   /*free_matrix(covar,1,NCOVMAX,1,n);*/
   fclose(ficparo);
   fclose(ficres);
@@ -4293,7 +4293,8 @@ Interval (in months) between two waves:
   free_matrix(oldms, 1,nlstate+ndeath,1,nlstate+ndeath);
   free_matrix(newms, 1,nlstate+ndeath,1,nlstate+ndeath);
   free_matrix(savms, 1,nlstate+ndeath,1,nlstate+ndeath);
- 
+  
+  free_matrix(covar,0,NCOVMAX,1,n);
   free_matrix(matcov,1,npar,1,npar);
   free_vector(delti,1,npar);
   free_matrix(agev,1,maxwav,1,imx);