Correction of bug related to the covariates

diff --git a/src/imach.c b/src/imach.c
index 46cceb83319d245e118ab1441af6b7663d181db4..75d59e872c886c58f22e31553ef2f7e91b4df770 100644 (file)
--- a/src/imach.c
+++ b/src/imach.c
@@ -1131,7 +1131,7 @@ void mlikeli(FILE *ficres,double p[], int npar, int ncovmodel, int nlstate, doub
   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: Min=%d Max=%d Mean=%.2lf<br>\n
   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: Min=%d Max=%d Mean=%.2lf<br>\n
   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);