--- imach/src/imach.c	2003/06/18 12:26:01	1.87
+++ imach/src/imach.c	2003/06/25 15:30:29	1.91
@@ -1,6 +1,26 @@
-/* $Id: imach.c,v 1.87 2003/06/18 12:26:01 brouard Exp $
+/* $Id: imach.c,v 1.91 2003/06/25 15:30:29 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.91  2003/06/25 15:30:29  brouard
+  * imach.c (Repository): Duplicated warning errors corrected.
+  (Repository): Elapsed time after each iteration is now output. It
+  helps to forecast when convergence will be reached. Elapsed time
+  is stamped in powell.  We created a new html file for the graphs
+  concerning matrix of covariance. It has extension -cov.htm.
+
+  Revision 1.90  2003/06/24 12:34:15  brouard
+  (Module): Some bugs corrected for windows. Also, when
+  mle=-1 a template is output in file "or"mypar.txt with the design
+  of the covariance matrix to be input.
+
+  Revision 1.89  2003/06/24 12:30:52  brouard
+  (Module): Some bugs corrected for windows. Also, when
+  mle=-1 a template is output in file "or"mypar.txt with the design
+  of the covariance matrix to be input.
+
+  Revision 1.88  2003/06/23 17:54:56  brouard
+  * imach.c (Repository): Create a sub-directory where all the secondary files are. Only imach, htm, gp and r(imach) are on the main directory. Correct time and other things.
+
   Revision 1.87  2003/06/18 12:26:01  brouard
   Version 0.96
 
@@ -161,12 +181,12 @@
 #define ODIRSEPARATOR '/'
 #endif
 
-/* $Id: imach.c,v 1.87 2003/06/18 12:26:01 brouard Exp $ */
+/* $Id: imach.c,v 1.91 2003/06/25 15:30:29 brouard Exp $ */
 /* $State: Exp $ */
 
-char version[]="Imach version 0.96, June 2003, INED-EUROREVES ";
-char fullversion[]="$Revision: 1.87 $ $Date: 2003/06/18 12:26:01 $"; 
-int erreur; /* Error number */
+char version[]="Imach version 0.96a, June 2003, INED-EUROREVES ";
+char fullversion[]="$Revision: 1.91 $ $Date: 2003/06/25 15:30:29 $"; 
+int erreur, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
 int nvar;
 int cptcovn=0, cptcovage=0, cptcoveff=0,cptcov;
 int npar=NPARMAX;
@@ -198,7 +218,7 @@ char fileresilk[FILENAMELENGTH]; /* File
 FILE *ficresilk;
 FILE *ficgp,*ficresprob,*ficpop, *ficresprobcov, *ficresprobcor;
 FILE *ficresprobmorprev;
-FILE *fichtm; /* Html File */
+FILE *fichtm, *fichtmcov; /* Html File */
 FILE *ficreseij;
 char filerese[FILENAMELENGTH];
 FILE  *ficresvij;
@@ -208,14 +228,26 @@ char fileresvpl[FILENAMELENGTH];
 char title[MAXLINE];
 char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH],  filerespl[FILENAMELENGTH];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH], plotcmd[FILENAMELENGTH];
+char tmpout[FILENAMELENGTH]; 
+char command[FILENAMELENGTH];
+int  outcmd=0;
 
 char fileres[FILENAMELENGTH], filerespij[FILENAMELENGTH], filereso[FILENAMELENGTH], rfileres[FILENAMELENGTH];
+char lfileres[FILENAMELENGTH];
 char filelog[FILENAMELENGTH]; /* Log file */
 char filerest[FILENAMELENGTH];
 char fileregp[FILENAMELENGTH];
 char popfile[FILENAMELENGTH];
 
-char optionfilegnuplot[FILENAMELENGTH], optionfilehtm[FILENAMELENGTH];
+char optionfilegnuplot[FILENAMELENGTH], optionfilehtm[FILENAMELENGTH], optionfilehtmcov[FILENAMELENGTH] ;
+
+struct timeval start_time, end_time, curr_time, last_time, forecast_time;
+struct timezone tzp;
+extern int gettimeofday();
+struct tm tmg, tm, tmf, *gmtime(), *localtime();
+long time_value;
+extern long time();
+char strcurr[80], strfor[80];
 
 #define NR_END 1
 #define FREE_ARG char*
@@ -313,10 +345,10 @@ static	int split( char *path, char *dirc
 
 /******************************************/
 
-void replace(char *s, char*t)
+void replace_back_to_slash(char *s, char*t)
 {
   int i;
-  int lg=20;
+  int lg=0;
   i=0;
   lg=strlen(t);
   for(i=0; i<= lg; i++) {
@@ -696,6 +728,19 @@ void linmin(double p[], double xi[], int
   free_vector(pcom,1,n); 
 } 
 
+char *asc_diff_time(long time_sec, char ascdiff[])
+{
+  long sec_left, days, hours, minutes;
+  days = (time_sec) / (60*60*24);
+  sec_left = (time_sec) % (60*60*24);
+  hours = (sec_left) / (60*60) ;
+  sec_left = (sec_left) %(60*60);
+  minutes = (sec_left) /60;
+  sec_left = (sec_left) % (60);
+  sprintf(ascdiff,"%d day(s) %d hour(s) %d minute(s) %d second(s)",days, hours, minutes, sec_left);  
+  return ascdiff;
+}
+
 /*************** powell ************************/
 void powell(double p[], double **xi, int n, double ftol, int *iter, double *fret, 
 	    double (*func)(double [])) 
@@ -706,6 +751,8 @@ void powell(double p[], double **xi, int
   double del,t,*pt,*ptt,*xit;
   double fp,fptt;
   double *xits;
+  int niterf, itmp;
+
   pt=vector(1,n); 
   ptt=vector(1,n); 
   xit=vector(1,n); 
@@ -716,9 +763,11 @@ void powell(double p[], double **xi, int
     fp=(*fret); 
     ibig=0; 
     del=0.0; 
-    printf("\nPowell iter=%d -2*LL=%.12f",*iter,*fret);
-    fprintf(ficlog,"\nPowell iter=%d -2*LL=%.12f",*iter,*fret);
-    fprintf(ficrespow,"%d %.12f",*iter,*fret);
+    last_time=curr_time;
+    (void) gettimeofday(&curr_time,&tzp);
+    printf("\nPowell iter=%d -2*LL=%.12f %ld sec. %ld sec.",*iter,*fret, curr_time.tv_sec-last_time.tv_sec, curr_time.tv_sec-start_time.tv_sec);fflush(stdout);
+    fprintf(ficlog,"\nPowell iter=%d -2*LL=%.12f %ld sec. %ld sec.",*iter,*fret, curr_time.tv_sec-last_time.tv_sec, curr_time.tv_sec-start_time.tv_sec);
+    fprintf(ficrespow,"%d %.12f %ld",*iter,*fret,curr_time.tv_sec-start_time.tv_sec);
     for (i=1;i<=n;i++) {
       printf(" %d %.12f",i, p[i]);
       fprintf(ficlog," %d %.12lf",i, p[i]);
@@ -726,7 +775,28 @@ void powell(double p[], double **xi, int
     }
     printf("\n");
     fprintf(ficlog,"\n");
-    fprintf(ficrespow,"\n");
+    fprintf(ficrespow,"\n");fflush(ficrespow);
+    if(*iter <=3){
+      tm = *localtime(&curr_time.tv_sec);
+      asctime_r(&tm,strcurr);
+      forecast_time=curr_time;
+      itmp = strlen(strcurr);
+      if(strcurr[itmp-1]=='\n')
+	strcurr[itmp-1]='\0';
+      printf("\nConsidering the time needed for this last iteration #%d: %ld seconds,\n",*iter,curr_time.tv_sec-last_time.tv_sec);
+      fprintf(ficlog,"\nConsidering the time needed for this last iteration #%d: %ld seconds,\n",*iter,curr_time.tv_sec-last_time.tv_sec);
+      for(niterf=10;niterf<=30;niterf+=10){
+	forecast_time.tv_sec=curr_time.tv_sec+(niterf-*iter)*(curr_time.tv_sec-last_time.tv_sec);
+	tmf = *localtime(&forecast_time.tv_sec);
+	asctime_r(&tmf,strfor);
+/* 	strcpy(strfor,asctime(&tmf)); */
+	itmp = strlen(strfor);
+	if(strfor[itmp-1]=='\n')
+	strfor[itmp-1]='\0';
+	printf("   - if your program needs %d iterations to converge, convergence will be \n   reached in %s or\n   on %s (current time is %s);\n",niterf, asc_diff_time(forecast_time.tv_sec-curr_time.tv_sec,tmpout),strfor,strcurr);
+	fprintf(ficlog,"   - if your program needs %d iterations to converge, convergence will be \n   reached in %s or\n   on %s (current time is %s);\n",niterf, asc_diff_time(forecast_time.tv_sec-curr_time.tv_sec,tmpout),strfor,strcurr);
+      }
+    }
     for (i=1;i<=n;i++) { 
       for (j=1;j<=n;j++) xit[j]=xi[j][i]; 
       fptt=(*fret); 
@@ -1357,7 +1427,7 @@ double funcone( double *x)
       ll[s[mw[mi][i]][i]] += 2*weight[i]*lli;
 /*       printf("i=%6d s1=%1d s2=%1d mi=%1d mw=%1d dh=%3d prob=%10.6f w=%6.4f out=%10.6f sav=%10.6f\n",i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],out[s1][s2],savm[s1][s2]); */
       if(globpr){
-	fprintf(ficresilk,"%ld %6d %1d %1d %1d %1d %3d %10.6f %6.4f\
+	fprintf(ficresilk,"%9d %6d %1d %1d %1d %1d %3d %10.6f %6.4f\
  %10.6f %10.6f %10.6f ", \
 		num[i],i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],
 		2*weight[i]*lli,out[s1][s2],savm[s1][s2]);
@@ -1379,6 +1449,34 @@ double funcone( double *x)
   return -l;
 }
 
+char *subdirf(char fileres[])
+{
+  /* Caution optionfilefiname is hidden */
+  strcpy(tmpout,optionfilefiname);
+  strcat(tmpout,"/"); /* Add to the right */
+  strcat(tmpout,fileres);
+  return tmpout;
+}
+
+char *subdirf2(char fileres[], char *preop)
+{
+  
+  strcpy(tmpout,optionfilefiname);
+  strcat(tmpout,"/");
+  strcat(tmpout,preop);
+  strcat(tmpout,fileres);
+  return tmpout;
+}
+char *subdirf3(char fileres[], char *preop, char *preop2)
+{
+  
+  strcpy(tmpout,optionfilefiname);
+  strcat(tmpout,"/");
+  strcat(tmpout,preop);
+  strcat(tmpout,preop2);
+  strcat(tmpout,fileres);
+  return tmpout;
+}
 
 void likelione(FILE *ficres,double p[], int npar, int nlstate, int *globpri, long *ipmx, double *sw, double *fretone, double (*funcone)(double []))
 {
@@ -1389,7 +1487,7 @@ void likelione(FILE *ficres,double p[],
    */
   int k;
 
-  if(*globpri !=0){ /* Just counts and sums no printings */
+  if(*globpri !=0){ /* Just counts and sums, no printings */
     strcpy(fileresilk,"ilk"); 
     strcat(fileresilk,fileres);
     if((ficresilk=fopen(fileresilk,"w"))==NULL) {
@@ -1397,7 +1495,7 @@ void likelione(FILE *ficres,double p[],
       fprintf(ficlog,"Problem with resultfile: %s\n", fileresilk);
     }
     fprintf(ficresilk, "#individual(line's_record) s1 s2 wave# effective_wave# number_of_matrices_product pij weight -2ln(pij)*weight 0pij_x 0pij_(x-stepm) cumulating_loglikeli_by_health_state(reweighted=-2ll*weightXnumber_of_contribs/sum_of_weights) and_total\n");
-    fprintf(ficresilk, "#num_i i s1 s2 mi mw dh likeli weight out sav ");
+    fprintf(ficresilk, "#num_i i s1 s2 mi mw dh likeli weight 2wlli out sav ");
     /* 	i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],2*weight[i]*lli,out[s1][s2],savm[s1][s2]); */
     for(k=1; k<=nlstate; k++) 
       fprintf(ficresilk," -2*gipw/gsw*weight*ll[%d]++",k);
@@ -1407,12 +1505,13 @@ void likelione(FILE *ficres,double p[],
   *fretone=(*funcone)(p);
   if(*globpri !=0){
     fclose(ficresilk);
-    fprintf(fichtm,"\n<br>File of contributions to the likelihood: <a href=\"%s\">%s</a><br>\n",fileresilk,fileresilk);
+    fprintf(fichtm,"\n<br>File of contributions to the likelihood: <a href=\"%s\">%s</a><br>\n",subdirf(fileresilk),subdirf(fileresilk));
     fflush(fichtm); 
   } 
   return;
 }
 
+
 /*********** Maximum Likelihood Estimation ***************/
 
 void mlikeli(FILE *ficres,double p[], int npar, int ncovmodel, int nlstate, double ftol, double (*func)(double []))
@@ -1990,6 +2089,7 @@ void  concatwav(int wav[], int **dh, int
 
     wav[i]=mi;
     if(mi==0){
+      nbwarn++;
       if(first==0){
 	printf("Warning! None valid information for:%ld line=%d (skipped) and may be others, see log file\n",num[i],i);
 	first=1;
@@ -2010,10 +2110,11 @@ void  concatwav(int wav[], int **dh, int
 	    j= rint(agedc[i]*12-agev[mw[mi][i]][i]*12); 
 	    if(j==0) j=1;  /* Survives at least one month after exam */
 	    else if(j<0){
+	      nberr++;
 	      printf("Error! Negative delay (%d to death) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);
-	      j=1; /* Careful Patch */
+	      j=1; /* Temporary Dangerous patch */
 	      printf("   We assumed that the date of interview was correct (and not the date of death) and postponed the death %d month(s) (one stepm) after the interview.\n  You MUST fix the contradiction between dates.\n",stepm);
-	      printf("Error! Negative delay (%d to death) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);
+	      fprintf(ficlog,"Error! Negative delay (%d to death) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);
 	      fprintf(ficlog,"   We assumed that the date of interview was correct (and not the date of death) and postponed the death %d month(s) (one stepm) after the interview.\n  You MUST fix the contradiction between dates.\n",stepm);
 	    }
 	    k=k+1;
@@ -2033,6 +2134,7 @@ void  concatwav(int wav[], int **dh, int
 	  /*	    if (j<10) printf("j=%d jmin=%d num=%d ",j,jmin,i); */
 	  /*printf("%d %lf %d %d %d\n", i,agev[mw[mi][i]][i],j,s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);*/
 	  if(j<0){
+	    nberr++;
 	    printf("Error! Negative delay (%d) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);
 	    fprintf(ficlog,"Error! Negative delay (%d) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);
 	  }
@@ -2368,20 +2470,7 @@ void varevsij(char optionfilefiname[], d
       fprintf(ficresprobmorprev," w%1d p%-d%-d",i,i,j);
   }  
   fprintf(ficresprobmorprev,"\n");
-  if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) {
-    printf("Problem with gnuplot file: %s\n", optionfilegnuplot);
-    fprintf(ficlog,"Problem with gnuplot file: %s\n", optionfilegnuplot);
-    exit(0);
-  }
-  else{
-    fprintf(ficgp,"\n# Routine varevsij");
-  }
-/*   if((fichtm=fopen(optionfilehtm,"a"))==NULL) { */
-/*     printf("Problem with html file: %s\n", optionfilehtm); */
-/*     fprintf(ficlog,"Problem with html file: %s\n", optionfilehtm); */
-/*     exit(0); */
-/*   } */
-/*   else{ */
+  fprintf(ficgp,"\n# Routine varevsij");
   fprintf(fichtm,"\n<li><h4> Computing probabilities of dying over estepm months as a weighted average (i.e global mortality independent of initial healh state)</h4></li>\n");
   fprintf(fichtm,"\n<br>%s  <br>\n",digitp);
 /*   } */
@@ -2596,14 +2685,15 @@ void varevsij(char optionfilefiname[], d
 /*   fprintf(ficgp,"\n plot \"%s\"  u 1:($3*%6.3f) not w l 1 ",fileresprobmorprev,YEARM/estepm); */
 /*   fprintf(ficgp,"\n replot \"%s\"  u 1:(($3+1.96*$4)*%6.3f) t \"95\%% interval\" w l 2 ",fileresprobmorprev,YEARM/estepm); */
 /*   fprintf(ficgp,"\n replot \"%s\"  u 1:(($3-1.96*$4)*%6.3f) not w l 2 ",fileresprobmorprev,YEARM/estepm); */
-  fprintf(ficgp,"\n plot \"%s\"  u 1:($3) not w l 1 ",fileresprobmorprev);
-  fprintf(ficgp,"\n replot \"%s\"  u 1:(($3+1.96*$4)) t \"95\%% interval\" w l 2 ",fileresprobmorprev);
-  fprintf(ficgp,"\n replot \"%s\"  u 1:(($3-1.96*$4)) not w l 2 ",fileresprobmorprev);
-  fprintf(fichtm,"\n<br> File (multiple files are possible if covariates are present): <A href=\"%s\">%s</a>\n",fileresprobmorprev,fileresprobmorprev);
-  fprintf(fichtm,"\n<br> Probability is computed over estepm=%d months. <br> <img src=\"varmuptjgr%s%s%s.png\"> <br>\n", estepm,digitp,optionfilefiname,digit);
+  fprintf(ficgp,"\n plot \"%s\"  u 1:($3) not w l 1 ",subdirf(fileresprobmorprev));
+  fprintf(ficgp,"\n replot \"%s\"  u 1:(($3+1.96*$4)) t \"95\%% interval\" w l 2 ",subdirf(fileresprobmorprev));
+  fprintf(ficgp,"\n replot \"%s\"  u 1:(($3-1.96*$4)) not w l 2 ",subdirf(fileresprobmorprev));
+  fprintf(fichtm,"\n<br> File (multiple files are possible if covariates are present): <A href=\"%s\">%s</a>\n",subdirf(fileresprobmorprev),subdirf(fileresprobmorprev));
+  fprintf(fichtm,"\n<br> Probability is computed over estepm=%d months. <br> <img src=\"%s%s.png\"> <br>\n", estepm,subdirf3(optionfilefiname,"varmuptjgr",digitp),digit);
   /*  fprintf(fichtm,"\n<br> Probability is computed over estepm=%d months and then divided by estepm and multiplied by %.0f in order to have the probability to die over a year <br> <img src=\"varmuptjgr%s%s.png\"> <br>\n", stepm,YEARM,digitp,digit);
 */
-  fprintf(ficgp,"\nset out \"varmuptjgr%s%s%s.png\";replot;",digitp,optionfilefiname,digit);
+/*   fprintf(ficgp,"\nset out \"varmuptjgr%s%s%s.png\";replot;",digitp,optionfilefiname,digit); */
+  fprintf(ficgp,"\nset out \"%s%s.png\";replot;\n",subdirf3(optionfilefiname,"varmuptjgr",digitp),digit);
 
   free_vector(xp,1,npar);
   free_matrix(doldm,1,nlstate,1,nlstate);
@@ -2613,8 +2703,8 @@ void varevsij(char optionfilefiname[], d
   free_matrix(varppt,nlstate+1,nlstate+ndeath,nlstate+1,nlstate+ndeath);
   if (mobilav!=0) free_ma3x(mobaverage,1, AGESUP,1,NCOVMAX, 1,NCOVMAX);
   fclose(ficresprobmorprev);
-  fclose(ficgp);
-/*   fclose(fichtm); */
+  fflush(ficgp);
+  fflush(fichtm); 
 }  /* end varevsij */
 
 /************ Variance of prevlim ******************/
@@ -2771,28 +2861,23 @@ void varprob(char optionfilefiname[], do
   mu=matrix(1,(nlstate)*(nlstate+ndeath), (int) bage, (int)fage);
   varpij=ma3x(1,nlstate*(nlstate+ndeath),1,nlstate*(nlstate+ndeath),(int) bage, (int) fage);
   first=1;
-  if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) {
-    printf("Problem with gnuplot file: %s\n", optionfilegnuplot);
-    fprintf(ficlog,"Problem with gnuplot file: %s\n", optionfilegnuplot);
-    exit(0);
-  }
-  else{
-    fprintf(ficgp,"\n# Routine varprob");
-  }
-/*   if((fichtm=fopen(optionfilehtm,"a"))==NULL) { */
-/*     printf("Problem with html file: %s\n", optionfilehtm); */
-/*     fprintf(ficlog,"Problem with html file: %s\n", optionfilehtm); */
-/*     exit(0); */
-/*   } */
-/*   else{ */
-    fprintf(fichtm,"\n<li><h4> Computing and drawing one step probabilities with their confidence intervals</h4></li>\n");
-    fprintf(fichtm,"\n");
-
-    fprintf(fichtm,"\n<li><h4> Computing matrix of variance-covariance of step probabilities</h4></li>\n");
-    fprintf(fichtm,"\nWe have drawn ellipsoids of confidence around the p<inf>ij</inf>, p<inf>kl</inf> to understand the covariance between two incidences. They are expressed in year<sup>-1</sup> in order to be less dependent of stepm.<br>\n");
-    fprintf(fichtm,"\n<br> We have drawn x'cov<sup>-1</sup>x = 4 where x is the column vector (pij,pkl). It means that if pij and pkl where uncorrelated the (2X2) matrix would have been (1/(var pij), 0 , 0, 1/(var pkl)), and the confidence interval would be 2 standard deviations wide on each axis. <br> When both incidences are correlated we diagonalised the inverse of the covariance matrix and made the appropriate rotation.<br> \n");
-
-/*   } */
+  fprintf(ficgp,"\n# Routine varprob");
+  fprintf(fichtm,"\n<li><h4> Computing and drawing one step probabilities with their confidence intervals</h4></li>\n");
+  fprintf(fichtm,"\n");
+
+  fprintf(fichtm,"\n<li><h4> <a href=\"%s\">Computing matrix of variance-covariance of step probabilities</a></h4></li>\n",optionfilehtmcov);
+  fprintf(fichtmcov,"\n<h4>Computing matrix of variance-covariance of step probabilities</h4>\n\
+  file %s<br>\n",optionfilehtmcov);
+  fprintf(fichtmcov,"\nEllipsoids of confidence centered on point (p<inf>ij</inf>, p<inf>kl</inf>) are estimated\
+and drawn. It helps understanding how is the covariance between two incidences.\
+ They are expressed in year<sup>-1</sup> in order to be less dependent of stepm.<br>\n");
+  fprintf(fichtmcov,"\n<br> Contour plot corresponding to x'cov<sup>-1</sup>x = 4 (where x is the column vector (pij,pkl)) are drawn. \
+It can be understood this way: if pij and pkl where uncorrelated the (2x2) matrix of covariance \
+would have been (1/(var pij), 0 , 0, 1/(var pkl)), and the confidence interval would be 2 \
+standard deviations wide on each axis. <br>\
+ Now, if both incidences are correlated (usual case) we diagonalised the inverse of the covariance matrix\
+ and made the appropriate rotation to look at the uncorrelated principal directions.<br>\
+To be simple, these graphs help to understand the significativity of each parameter in relation to a second other one.<br> \n");
 
   cov[1]=1;
   tj=cptcoveff;
@@ -2974,10 +3059,14 @@ void varprob(char optionfilefiname[], do
  		    fprintf(ficgp,"\nset parametric;unset label");
 		    fprintf(ficgp,"\nset log y;set log x; set xlabel \"p%1d%1d (year-1)\";set ylabel \"p%1d%1d (year-1)\"",k1,l1,k2,l2);
 		    fprintf(ficgp,"\nset ter png small\nset size 0.65,0.65");
-		    fprintf(fichtm,"\n<br>Ellipsoids of confidence cov(p%1d%1d,p%1d%1d) expressed in year<sup>-1</sup> :<a href=\"varpijgr%s%d%1d%1d-%1d%1d.png\">varpijgr%s%d%1d%1d-%1d%1d.png</A>, ",k1,l1,k2,l2,optionfilefiname, j1,k1,l1,k2,l2,optionfilefiname, j1,k1,l1,k2,l2);
-		    fprintf(fichtm,"\n<br><img src=\"varpijgr%s%d%1d%1d-%1d%1d.png\"> ",optionfilefiname, j1,k1,l1,k2,l2);
-		    fprintf(fichtm,"\n<br> Correlation at age %d (%.3f),",(int) age, c12);
-		    fprintf(ficgp,"\nset out \"varpijgr%s%d%1d%1d-%1d%1d.png\"",optionfilefiname, j1,k1,l1,k2,l2);
+		    fprintf(fichtmcov,"\n<br>Ellipsoids of confidence cov(p%1d%1d,p%1d%1d) expressed in year<sup>-1</sup>\
+ :<a href=\"%s%d%1d%1d-%1d%1d.png\">\
+%s%d%1d%1d-%1d%1d.png</A>, ",k1,l1,k2,l2,\
+			    subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2,\
+			    subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2);
+		    fprintf(fichtmcov,"\n<br><img src=\"%s%d%1d%1d-%1d%1d.png\"> ",subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2);
+		    fprintf(fichtmcov,"\n<br> Correlation at age %d (%.3f),",(int) age, c12);
+		    fprintf(ficgp,"\nset out \"%s%d%1d%1d-%1d%1d.png\"",subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2);
 		    fprintf(ficgp,"\nset label \"%d\" at %11.3e,%11.3e center",(int) age, mu1,mu2);
 		    fprintf(ficgp,"\n# Age %d, p%1d%1d - p%1d%1d",(int) age, k1,l1,k2,l2);
 		    fprintf(ficgp,"\nplot [-pi:pi] %11.3e+ %.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)), %11.3e +%.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)) not",\
@@ -2985,7 +3074,7 @@ void varprob(char optionfilefiname[], do
 			    mu2,std,v21,sqrt(lc1),v22,sqrt(lc2));
 		  }else{
 		    first=0;
-		    fprintf(fichtm," %d (%.3f),",(int) age, c12);
+		    fprintf(fichtmcov," %d (%.3f),",(int) age, c12);
 		    fprintf(ficgp,"\n# Age %d, p%1d%1d - p%1d%1d",(int) age, k1,l1,k2,l2);
 		    fprintf(ficgp,"\nset label \"%d\" at %11.3e,%11.3e center",(int) age, mu1,mu2);
 		    fprintf(ficgp,"\nreplot %11.3e+ %.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)), %11.3e +%.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)) not",\
@@ -2994,7 +3083,7 @@ void varprob(char optionfilefiname[], do
 		  }/* if first */
 		} /* age mod 5 */
 	      } /* end loop age */
-	      fprintf(ficgp,"\nset out \"varpijgr%s%d%1d%1d-%1d%1d.png\";replot;",optionfilefiname, j1,k1,l1,k2,l2);
+	      fprintf(ficgp,"\nset out \"%s%d%1d%1d-%1d%1d.png\";replot;",subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2);
 	      first=1;
 	    } /*l12 */
 	  } /* k12 */
@@ -3008,7 +3097,8 @@ void varprob(char optionfilefiname[], do
   fclose(ficresprob);
   fclose(ficresprobcov);
   fclose(ficresprobcor);
-  fclose(ficgp);
+  fflush(ficgp);
+  fflush(fichtmcov);
 }
 
 
@@ -3027,12 +3117,15 @@ void printinghtml(char fileres[], char t
 /*   } */
 
    fprintf(fichtm,"<ul><li><h4>Result files (first order: no variance)</h4>\n \
- - Observed prevalence in each state (during the period defined between %.lf/%.lf/%.lf and %.lf/%.lf/%.lf): <a href=\"p%s\">p%s</a> <br>\n \
- - Estimated transition probabilities over %d (stepm) months: <a href=\"pij%s\">pij%s</a><br>\n \
- - Stable prevalence in each health state: <a href=\"pl%s\">pl%s</a> <br>\n \
+ - Observed prevalence in each state (during the period defined between %.lf/%.lf/%.lf and %.lf/%.lf/%.lf): <a href=\"%s\">%s</a> <br>\n \
+ - Estimated transition probabilities over %d (stepm) months: <a href=\"%s\">%s</a><br>\n \
+ - Stable prevalence in each health state: <a href=\"%s\">%s</a> <br>\n \
  - Life expectancies by age and initial health status (estepm=%2d months): \
-   <a href=\"e%s\">e%s</a> <br>\n</li>", \
-  jprev1, mprev1,anprev1,jprev2, mprev2,anprev2,fileres,fileres,stepm,fileres,fileres,fileres,fileres,estepm,fileres,fileres);
+   <a href=\"%s\">%s</a> <br>\n</li>", \
+	   jprev1, mprev1,anprev1,jprev2, mprev2,anprev2,subdirf2(fileres,"p"),subdirf2(fileres,"p"),\
+	   stepm,subdirf2(fileres,"pij"),subdirf2(fileres,"pij"),\
+	   subdirf2(fileres,"pl"),subdirf2(fileres,"pl"),\
+	   estepm,subdirf2(fileres,"e"),subdirf2(fileres,"e"));
 
 fprintf(fichtm," \n<ul><li><b>Graphs</b></li><p>");
 
@@ -3050,24 +3143,24 @@ fprintf(fichtm," \n<ul><li><b>Graphs</b>
        fprintf(fichtm," ************\n<hr size=\"2\" color=\"#EC5E5E\">");
      }
      /* Pij */
-     fprintf(fichtm,"<br>- Pij or Conditional probabilities to be observed in state j being in state i, %d (stepm) months before: pe%s%d1.png<br> \
-<img src=\"pe%s%d1.png\">",stepm,strtok(optionfile, "."),jj1,strtok(optionfile, "."),jj1);     
+     fprintf(fichtm,"<br>- Pij or Conditional probabilities to be observed in state j being in state i, %d (stepm) months before: %s%d1.png<br> \
+<img src=\"%s%d1.png\">",stepm,subdirf2(optionfilefiname,"pe"),jj1,subdirf2(optionfilefiname,"pe"),jj1);     
      /* Quasi-incidences */
      fprintf(fichtm,"<br>- Pij or Conditional probabilities to be observed in state j being in state i %d (stepm) months\
- before but expressed in per year i.e. quasi incidences if stepm is small and probabilities too: pe%s%d2.png<br> \
-<img src=\"pe%s%d2.png\">",stepm,strtok(optionfile, "."),jj1,strtok(optionfile, "."),jj1); 
+ before but expressed in per year i.e. quasi incidences if stepm is small and probabilities too: %s%d2.png<br> \
+<img src=\"%s%d2.png\">",stepm,subdirf2(optionfilefiname,"pe"),jj1,subdirf2(optionfilefiname,"pe"),jj1); 
        /* Stable prevalence in each health state */
        for(cpt=1; cpt<nlstate;cpt++){
 	 fprintf(fichtm,"<br>- Stable prevalence in each health state : p%s%d%d.png<br> \
-<img src=\"p%s%d%d.png\">",strtok(optionfile, "."),cpt,jj1,strtok(optionfile, "."),cpt,jj1);
+<img src=\"%s%d%d.png\">",subdirf2(optionfilefiname,"p"),cpt,jj1,subdirf2(optionfilefiname,"p"),cpt,jj1);
        }
      for(cpt=1; cpt<=nlstate;cpt++) {
-        fprintf(fichtm,"\n<br>- Health life expectancies by age and initial health state (%d): exp%s%d%d.png <br> \
-<img src=\"exp%s%d%d.png\">",cpt,strtok(optionfile, "."),cpt,jj1,strtok(optionfile, "."),cpt,jj1);
+        fprintf(fichtm,"\n<br>- Health life expectancies by age and initial health state (%d): %s%d%d.png <br> \
+<img src=\"%s%d%d.png\">",cpt,subdirf2(optionfilefiname,"exp"),cpt,jj1,subdirf2(optionfilefiname,"exp"),cpt,jj1);
      }
      fprintf(fichtm,"\n<br>- Total life expectancy by age and \
-health expectancies in states (1) and (2): e%s%d.png<br>\
-<img src=\"e%s%d.png\">",strtok(optionfile, "."),jj1,strtok(optionfile, "."),jj1);
+health expectancies in states (1) and (2): %s%d.png<br>\
+<img src=\"%s%d.png\">",subdirf2(optionfilefiname,"e"),jj1,subdirf2(optionfilefiname,"e"),jj1);
    } /* end i1 */
  }/* End k1 */
  fprintf(fichtm,"</ul>");
@@ -3075,12 +3168,19 @@ health expectancies in states (1) and (2
 
  fprintf(fichtm,"\n<br><li><h4> Result files (second order: variances)</h4>\n\
  - Parameter file with estimated parameters and covariance matrix: <a href=\"%s\">%s</a> <br>\n\
- - Variance of one-step probabilities: <a href=\"prob%s\">prob%s</a> <br>\n\
- - Variance-covariance of one-step probabilities: <a href=\"probcov%s\">probcov%s</a> <br>\n\
- - Correlation matrix of one-step probabilities: <a href=\"probcor%s\">probcor%s</a> <br>\n\
- - Variances and covariances of life expectancies by age and initial health status (estepm=%d months): <a href=\"v%s\">v%s</a><br>\n\
- - Health expectancies with their variances (no covariance): <a href=\"t%s\">t%s</a> <br>\n\
- - Standard deviation of stable prevalences: <a href=\"vpl%s\">vpl%s</a> <br>\n",rfileres,rfileres,fileres,fileres,fileres,fileres,fileres,fileres, estepm, fileres,fileres,fileres,fileres,fileres,fileres);
+ - Variance of one-step probabilities: <a href=\"%s\">%s</a> <br>\n\
+ - Variance-covariance of one-step probabilities: <a href=\"%s\">%s</a> <br>\n\
+ - Correlation matrix of one-step probabilities: <a href=\"%s\">%s</a> <br>\n\
+ - Variances and covariances of life expectancies by age and initial health status (estepm=%d months): <a href=\"%s\">%s</a><br>\n\
+ - Health expectancies with their variances (no covariance): <a href=\"%s\">%s</a> <br>\n\
+ - Standard deviation of stable prevalences: <a href=\"%s\">%s</a> <br>\n",\
+	 rfileres,rfileres,\
+	 subdirf2(fileres,"prob"),subdirf2(fileres,"prob"),\
+	 subdirf2(fileres,"probcov"),subdirf2(fileres,"probcov"),\
+	 subdirf2(fileres,"probcor"),subdirf2(fileres,"probcor"),\
+	 estepm, subdirf2(fileres,"v"),subdirf2(fileres,"v"),\
+	 subdirf2(fileres,"t"),subdirf2(fileres,"t"),\
+	 subdirf2(fileres,"vpl"),subdirf2(fileres,"vpl"));
 
 /*  if(popforecast==1) fprintf(fichtm,"\n */
 /*  - Prevalences forecasting: <a href=\"f%s\">f%s</a> <br>\n */
@@ -3105,8 +3205,8 @@ fprintf(fichtm," <ul><li><b>Graphs</b></
      }
      for(cpt=1; cpt<=nlstate;cpt++) {
        fprintf(fichtm,"<br>- Observed and period prevalence (with confident\
-interval) in state (%d): v%s%d%d.png <br>\
-<img src=\"v%s%d%d.png\">",cpt,strtok(optionfile, "."),cpt,jj1,strtok(optionfile, "."),cpt,jj1);  
+interval) in state (%d): %s%d%d.png <br>\
+<img src=\"%s%d%d.png\">",cpt,subdirf2(optionfilefiname,"v"),cpt,jj1,subdirf2(optionfilefiname,"v"),cpt,jj1);  
      }
    } /* end i1 */
  }/* End k1 */
@@ -3115,65 +3215,73 @@ interval) in state (%d): v%s%d%d.png <br
 }
 
 /******************* Gnuplot file **************/
-void printinggnuplot(char fileres[], double ageminpar, double agemaxpar, double fage , char pathc[], double p[]){
+void printinggnuplot(char fileres[], char optionfilefiname[], double ageminpar, double agemaxpar, double fage , char pathc[], double p[]){
 
+  char dirfileres[132],optfileres[132];
   int m,cpt,k1,i,k,j,jk,k2,k3,ij,l;
   int ng;
-  if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) {
-    printf("Problem with file %s",optionfilegnuplot);
-    fprintf(ficlog,"Problem with file %s",optionfilegnuplot);
-  }
+/*   if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) { */
+/*     printf("Problem with file %s",optionfilegnuplot); */
+/*     fprintf(ficlog,"Problem with file %s",optionfilegnuplot); */
+/*   } */
 
   /*#ifdef windows */
-    fprintf(ficgp,"cd \"%s\" \n",pathc);
+  fprintf(ficgp,"cd \"%s\" \n",pathc);
     /*#endif */
-m=pow(2,cptcoveff);
-  
+  m=pow(2,cptcoveff);
+
+  strcpy(dirfileres,optionfilefiname);
+  strcpy(optfileres,"vpl");
  /* 1eme*/
   for (cpt=1; cpt<= nlstate ; cpt ++) {
    for (k1=1; k1<= m ; k1 ++) {
-     fprintf(ficgp,"\nset out \"v%s%d%d.png\" \n",strtok(optionfile, "."),cpt,k1);
-     fprintf(ficgp,"set xlabel \"Age\" \nset ylabel \"Probability\" \nset ter png small\nset size 0.65,0.65\nplot [%.f:%.f] \"vpl%s\" every :::%d::%d u 1:2 \"\%%lf",ageminpar,fage,fileres,k1-1,k1-1);
+     fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"v"),cpt,k1);
+     fprintf(ficgp,"\n#set out \"v%s%d%d.png\" \n",optionfilefiname,cpt,k1);
+     fprintf(ficgp,"set xlabel \"Age\" \n\
+set ylabel \"Probability\" \n\
+set ter png small\n\
+set size 0.65,0.65\n\
+plot [%.f:%.f] \"%s\" every :::%d::%d u 1:2 \"\%%lf",ageminpar,fage,subdirf2(fileres,"vpl"),k1-1,k1-1);
 
      for (i=1; i<= nlstate ; i ++) {
        if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)");
        else fprintf(ficgp," \%%*lf (\%%*lf)");
      }
-     fprintf(ficgp,"\" t\"Stable prevalence\" w l 0,\"vpl%s\" every :::%d::%d u 1:($2+1.96*$3) \"\%%lf",fileres,k1-1,k1-1);
+     fprintf(ficgp,"\" t\"Stable prevalence\" w l 0,\"%s\" every :::%d::%d u 1:($2+1.96*$3) \"\%%lf",subdirf2(fileres,"vpl"),k1-1,k1-1);
      for (i=1; i<= nlstate ; i ++) {
        if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)");
        else fprintf(ficgp," \%%*lf (\%%*lf)");
      } 
-     fprintf(ficgp,"\" t\"95\%% CI\" w l 1,\"vpl%s\" every :::%d::%d u 1:($2-1.96*$3) \"\%%lf",fileres,k1-1,k1-1); 
+     fprintf(ficgp,"\" t\"95\%% CI\" w l 1,\"%s\" every :::%d::%d u 1:($2-1.96*$3) \"\%%lf",subdirf2(fileres,"vpl"),k1-1,k1-1); 
      for (i=1; i<= nlstate ; i ++) {
        if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)");
        else fprintf(ficgp," \%%*lf (\%%*lf)");
      }  
-     fprintf(ficgp,"\" t\"\" w l 1,\"p%s\" every :::%d::%d u 1:($%d) t\"Observed prevalence \" w l 2",fileres,k1-1,k1-1,2+4*(cpt-1));
+     fprintf(ficgp,"\" t\"\" w l 1,\"%s\" every :::%d::%d u 1:($%d) t\"Observed prevalence \" w l 2",subdirf2(fileres,"p"),k1-1,k1-1,2+4*(cpt-1));
    }
   }
   /*2 eme*/
   
   for (k1=1; k1<= m ; k1 ++) { 
-    fprintf(ficgp,"\nset out \"e%s%d.png\" \n",strtok(optionfile, "."),k1);
+    fprintf(ficgp,"\nset out \"%s%d.png\" \n",subdirf2(optionfilefiname,"e"),k1);
     fprintf(ficgp,"set ylabel \"Years\" \nset ter png small\nset size 0.65,0.65\nplot [%.f:%.f] ",ageminpar,fage);
     
     for (i=1; i<= nlstate+1 ; i ++) {
       k=2*i;
-      fprintf(ficgp,"\"t%s\" every :::%d::%d u 1:2 \"\%%lf",fileres,k1-1,k1-1);
+      fprintf(ficgp,"\"%s\" every :::%d::%d u 1:2 \"\%%lf",subdirf2(fileres,"t"),k1-1,k1-1);
       for (j=1; j<= nlstate+1 ; j ++) {
 	if (j==i) fprintf(ficgp," \%%lf (\%%lf)");
 	else fprintf(ficgp," \%%*lf (\%%*lf)");
       }   
       if (i== 1) fprintf(ficgp,"\" t\"TLE\" w l ,");
       else fprintf(ficgp,"\" t\"LE in state (%d)\" w l ,",i-1);
-      fprintf(ficgp,"\"t%s\" every :::%d::%d u 1:($2-$3*2) \"\%%lf",fileres,k1-1,k1-1);
+      fprintf(ficgp,"\"%s\" every :::%d::%d u 1:($2-$3*2) \"\%%lf",subdirf2(fileres,"t"),k1-1,k1-1);
       for (j=1; j<= nlstate+1 ; j ++) {
 	if (j==i) fprintf(ficgp," \%%lf (\%%lf)");
 	else fprintf(ficgp," \%%*lf (\%%*lf)");
       }   
       fprintf(ficgp,"\" t\"\" w l 0,");
-      fprintf(ficgp,"\"t%s\" every :::%d::%d u 1:($2+$3*2) \"\%%lf",fileres,k1-1,k1-1);
+      fprintf(ficgp,"\"%s\" every :::%d::%d u 1:($2+$3*2) \"\%%lf",subdirf2(fileres,"t"),k1-1,k1-1);
       for (j=1; j<= nlstate+1 ; j ++) {
 	if (j==i) fprintf(ficgp," \%%lf (\%%lf)");
 	else fprintf(ficgp," \%%*lf (\%%*lf)");
@@ -3188,8 +3296,10 @@ m=pow(2,cptcoveff);
   for (k1=1; k1<= m ; k1 ++) { 
     for (cpt=1; cpt<= nlstate ; cpt ++) {
       k=2+nlstate*(2*cpt-2);
-      fprintf(ficgp,"\nset out \"exp%s%d%d.png\" \n",strtok(optionfile, "."),cpt,k1);
-      fprintf(ficgp,"set ter png small\nset size 0.65,0.65\nplot [%.f:%.f] \"e%s\" every :::%d::%d u 1:%d t \"e%d1\" w l",ageminpar,fage,fileres,k1-1,k1-1,k,cpt);
+      fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"exp"),cpt,k1);
+      fprintf(ficgp,"set ter png small\n\
+set size 0.65,0.65\n\
+plot [%.f:%.f] \"%s\" every :::%d::%d u 1:%d t \"e%d1\" w l",ageminpar,fage,subdirf2(fileres,"e"),k1-1,k1-1,k,cpt);
       /*fprintf(ficgp,",\"e%s\" every :::%d::%d u 1:($%d-2*$%d) \"\%%lf ",fileres,k1-1,k1-1,k,k+1);
 	for (i=1; i<= nlstate*2 ; i ++) fprintf(ficgp,"\%%lf (\%%lf) ");
 	fprintf(ficgp,"\" t \"e%d1\" w l",cpt);
@@ -3199,7 +3309,7 @@ m=pow(2,cptcoveff);
 	
       */
       for (i=1; i< nlstate ; i ++) {
-	fprintf(ficgp," ,\"e%s\" every :::%d::%d u 1:%d t \"e%d%d\" w l",fileres,k1-1,k1-1,k+2*i,cpt,i+1);
+	fprintf(ficgp," ,\"%s\" every :::%d::%d u 1:%d t \"e%d%d\" w l",subdirf2(fileres,"e"),k1-1,k1-1,k+2*i,cpt,i+1);
 	
       } 
     }
@@ -3209,15 +3319,18 @@ m=pow(2,cptcoveff);
   for (k1=1; k1<= m ; k1 ++) { 
     for (cpt=1; cpt<=nlstate ; cpt ++) {
       k=3;
-      fprintf(ficgp,"\nset out \"p%s%d%d.png\" \n",strtok(optionfile, "."),cpt,k1);
-      fprintf(ficgp,"set xlabel \"Age\" \nset ylabel \"Probability\" \nset ter png small\nset size 0.65,0.65\nplot [%.f:%.f] \"pij%s\" u ($1==%d ? ($3):1/0):($%d/($%d",ageminpar,agemaxpar,fileres,k1,k+cpt+1,k+1);
+      fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"p"),cpt,k1);
+      fprintf(ficgp,"set xlabel \"Age\" \nset ylabel \"Probability\" \n\
+set ter png small\nset size 0.65,0.65\n\
+unset log y\n\
+plot [%.f:%.f] \"%s\" u ($1==%d ? ($3):1/0):($%d/($%d",ageminpar,agemaxpar,subdirf2(fileres,"pij"),k1,k+cpt+1,k+1);
       
       for (i=1; i< nlstate ; i ++)
 	fprintf(ficgp,"+$%d",k+i+1);
       fprintf(ficgp,")) t\"prev(%d,%d)\" w l",cpt,cpt+1);
       
       l=3+(nlstate+ndeath)*cpt;
-      fprintf(ficgp,",\"pij%s\" u ($1==%d ? ($3):1/0):($%d/($%d",fileres,k1,l+cpt+1,l+1);
+      fprintf(ficgp,",\"%s\" u ($1==%d ? ($3):1/0):($%d/($%d",subdirf2(fileres,"pij"),k1,l+cpt+1,l+1);
       for (i=1; i< nlstate ; i ++) {
 	l=3+(nlstate+ndeath)*cpt;
 	fprintf(ficgp,"+$%d",l+i+1);
@@ -3241,7 +3354,7 @@ m=pow(2,cptcoveff);
 
    for(ng=1; ng<=2;ng++){ /* Number of graphics: first is probabilities second is incidence per year*/
      for(jk=1; jk <=m; jk++) {
-       fprintf(ficgp,"\nset out \"pe%s%d%d.png\" \n",strtok(optionfile, "."),jk,ng); 
+       fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"pe"),jk,ng); 
        if (ng==2)
 	 fprintf(ficgp,"\nset ylabel \"Quasi-incidence per year\"\n");
        else
@@ -3288,7 +3401,7 @@ m=pow(2,cptcoveff);
        } /* end k2 */
      } /* end jk */
    } /* end ng */
-   fclose(ficgp); 
+   fflush(ficgp); 
 }  /* end gnuplot */
 
 
@@ -3628,6 +3741,127 @@ int fileappend(FILE *fichier, char *opti
   fflush(fichier);
   return (1);
 }
+void prwizard(int ncovmodel, int nlstate, int ndeath,  char model[], FILE *ficparo)
+{
+
+  char ca[32], cb[32], cc[32];
+  int i,j, k, l, li, lj, lk, ll, jj, npar, itimes;
+  int numlinepar;
+
+  printf("# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n");
+  fprintf(ficparo,"# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n");
+  for(i=1; i <=nlstate; i++){
+    jj=0;
+    for(j=1; j <=nlstate+ndeath; j++){
+      if(j==i) continue;
+      jj++;
+      /*ca[0]= k+'a'-1;ca[1]='\0';*/
+      printf("%1d%1d",i,j);
+      fprintf(ficparo,"%1d%1d",i,j);
+      for(k=1; k<=ncovmodel;k++){
+	/* 	  printf(" %lf",param[i][j][k]); */
+	/* 	  fprintf(ficparo," %lf",param[i][j][k]); */
+	printf(" 0.");
+	fprintf(ficparo," 0.");
+      }
+      printf("\n");
+      fprintf(ficparo,"\n");
+    }
+  }
+  printf("# Scales (for hessian or gradient estimation)\n");
+  fprintf(ficparo,"# Scales (for hessian or gradient estimation)\n");
+  npar= (nlstate+ndeath-1)*nlstate*ncovmodel; /* Number of parameters*/ 
+  for(i=1; i <=nlstate; i++){
+    jj=0;
+    for(j=1; j <=nlstate+ndeath; j++){
+      if(j==i) continue;
+      jj++;
+      fprintf(ficparo,"%1d%1d",i,j);
+      printf("%1d%1d",i,j);
+      fflush(stdout);
+      for(k=1; k<=ncovmodel;k++){
+	/* 	printf(" %le",delti3[i][j][k]); */
+	/* 	fprintf(ficparo," %le",delti3[i][j][k]); */
+	printf(" 0.");
+	fprintf(ficparo," 0.");
+      }
+      numlinepar++;
+      printf("\n");
+      fprintf(ficparo,"\n");
+    }
+  }
+  printf("# Covariance matrix\n");
+/* # 121 Var(a12)\n\ */
+/* # 122 Cov(b12,a12) Var(b12)\n\ */
+/* # 131 Cov(a13,a12) Cov(a13,b12, Var(a13)\n\ */
+/* # 132 Cov(b13,a12) Cov(b13,b12, Cov(b13,a13) Var(b13)\n\ */
+/* # 212 Cov(a21,a12) Cov(a21,b12, Cov(a21,a13) Cov(a21,b13) Var(a21)\n\ */
+/* # 212 Cov(b21,a12) Cov(b21,b12, Cov(b21,a13) Cov(b21,b13) Cov(b21,a21) Var(b21)\n\ */
+/* # 232 Cov(a23,a12) Cov(a23,b12, Cov(a23,a13) Cov(a23,b13) Cov(a23,a21) Cov(a23,b21) Var(a23)\n\ */
+/* # 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n" */
+  fflush(stdout);
+  fprintf(ficparo,"# Covariance matrix\n");
+  /* # 121 Var(a12)\n\ */
+  /* # 122 Cov(b12,a12) Var(b12)\n\ */
+  /* #   ...\n\ */
+  /* # 232 Cov(b23,a12)  Cov(b23,b12) ... Var (b23)\n" */
+  
+  for(itimes=1;itimes<=2;itimes++){
+    jj=0;
+    for(i=1; i <=nlstate; i++){
+      for(j=1; j <=nlstate+ndeath; j++){
+	if(j==i) continue;
+	for(k=1; k<=ncovmodel;k++){
+	  jj++;
+	  ca[0]= k+'a'-1;ca[1]='\0';
+	  if(itimes==1){
+	    printf("#%1d%1d%d",i,j,k);
+	    fprintf(ficparo,"#%1d%1d%d",i,j,k);
+	  }else{
+	    printf("%1d%1d%d",i,j,k);
+	    fprintf(ficparo,"%1d%1d%d",i,j,k);
+	    /* 	printf(" %.5le",matcov[i][j]); */
+	  }
+	  ll=0;
+	  for(li=1;li <=nlstate; li++){
+	    for(lj=1;lj <=nlstate+ndeath; lj++){
+	      if(lj==li) continue;
+	      for(lk=1;lk<=ncovmodel;lk++){
+		ll++;
+		if(ll<=jj){
+		  cb[0]= lk +'a'-1;cb[1]='\0';
+		  if(ll<jj){
+		    if(itimes==1){
+		      printf(" Cov(%s%1d%1d,%s%1d%1d)",ca,i,j,cb, li,lj);
+		      fprintf(ficparo," Cov(%s%1d%1d,%s%1d%1d)",ca,i,j,cb, li,lj);
+		    }else{
+		      printf(" 0.");
+		      fprintf(ficparo," 0.");
+		    }
+		  }else{
+		    if(itimes==1){
+		      printf(" Var(%s%1d%1d)",ca,i,j);
+		      fprintf(ficparo," Var(%s%1d%1d)",ca,i,j);
+		    }else{
+		      printf(" 0.");
+		      fprintf(ficparo," 0.");
+		    }
+		  }
+		}
+	      } /* end lk */
+	    } /* end lj */
+	  } /* end li */
+	  printf("\n");
+	  fprintf(ficparo,"\n");
+	  numlinepar++;
+	} /* end k*/
+      } /*end j */
+    } /* end i */
+  }
+
+} /* end of prwizard */
+
+
 /***********************************************/
 /**************** Main Program *****************/
 /***********************************************/
@@ -3636,7 +3870,7 @@ int main(int argc, char *argv[])
 {
   int movingaverage(double ***probs, double bage,double fage, double ***mobaverage, int mobilav);
   int i,j, k, n=MAXN,iter,m,size=100,cptcode, cptcod;
-  int jj;
+  int jj, imk;
   int numlinepar=0; /* Current linenumber of parameter file */
   /*  FILE *fichtm; *//* Html File */
   /* FILE *ficgp;*/ /*Gnuplot File */
@@ -3651,7 +3885,8 @@ int main(int argc, char *argv[])
   double ***mobaverage;
   int *indx;
   char line[MAXLINE], linepar[MAXLINE];
-  char path[132],pathc[132],pathcd[132],pathtot[132],model[132];
+  char path[MAXLINE],pathc[MAXLINE],pathcd[MAXLINE],pathtot[MAXLINE],model[MAXLINE];
+  char pathr[MAXLINE]; 
   int firstobs=1, lastobs=10;
   int sdeb, sfin; /* Status at beginning and end */
   int c,  h , cpt,l;
@@ -3685,25 +3920,20 @@ int main(int argc, char *argv[])
   char z[1]="c", occ;
 
   char stra[80], strb[80], strc[80], strd[80],stre[80],modelsav[80];
-  char *strt, *strtend;
+  char strstart[80], *strt, strtend[80];
   char *stratrunc;
   int lstra;
 
   long total_usecs;
-  struct timeval start_time, end_time, curr_time;
-  struct timezone tzp;
-  extern int gettimeofday();
-  struct tm tmg, tm, *gmtime(), *localtime();
-  long time_value;
-  extern long time();
  
   /*   gettimeofday(&start_time, (struct timezone*)0); */ /* at first time */
   (void) gettimeofday(&start_time,&tzp);
+  curr_time=start_time;
   tm = *localtime(&start_time.tv_sec);
   tmg = *gmtime(&start_time.tv_sec);
-  strt=asctime(&tm);
+  strcpy(strstart,asctime(&tm));
 
-/*  printf("Localtime (at start)=%s",strt); */
+/*  printf("Localtime (at start)=%s",strstart); */
 /*  tp.tv_sec = tp.tv_sec +86400; */
 /*  tm = *localtime(&start_time.tv_sec); */
 /*   tmg.tm_year=tmg.tm_year +dsign*dyear; */
@@ -3711,14 +3941,16 @@ int main(int argc, char *argv[])
 /*   tmg.tm_hour=tmg.tm_hour + 1; */
 /*   tp.tv_sec = mktime(&tmg); */
 /*   strt=asctime(&tmg); */
-/*   printf("Time(after) =%s",strt);  */
+/*   printf("Time(after) =%s",strstart);  */
 /*  (void) time (&time_value);
 *  printf("time=%d,t-=%d\n",time_value,time_value-86400);
 *  tm = *localtime(&time_value);
-*  strt=asctime(&tm);
-*  printf("tim_value=%d,asctime=%s\n",time_value,strt); 
+*  strstart=asctime(&tm);
+*  printf("tim_value=%d,asctime=%s\n",time_value,strstart); 
 */
 
+  nberr=0; /* Number of errors and warnings */
+  nbwarn=0;
   getcwd(pathcd, size);
 
   printf("\n%s\n%s",version,fullversion);
@@ -3729,7 +3961,7 @@ int main(int argc, char *argv[])
   else{
     strcpy(pathtot,argv[1]);
   }
-  /*if(getcwd(pathcd, 132)!= NULL)printf ("Error pathcd\n");*/
+  /*if(getcwd(pathcd, MAXLINE)!= NULL)printf ("Error pathcd\n");*/
   /*cygwin_split_path(pathtot,path,optionfile);
     printf("pathtot=%s, path=%s, optionfile=%s\n",pathtot,path,optionfile);*/
   /* cutv(path,optionfile,pathtot,'\\');*/
@@ -3737,7 +3969,17 @@ int main(int argc, char *argv[])
   split(pathtot,path,optionfile,optionfilext,optionfilefiname);
   printf("pathtot=%s,\npath=%s,\noptionfile=%s \noptionfilext=%s \noptionfilefiname=%s\n",pathtot,path,optionfile,optionfilext,optionfilefiname);
   chdir(path);
-  replace(pathc,path);
+  strcpy(command,"mkdir ");
+  strcat(command,optionfilefiname);
+  if((outcmd=system(command)) != 0){
+    printf("Problem creating directory or it already exists %s%s, err=%d\n",path,optionfilefiname,outcmd);
+    /* fprintf(ficlog,"Problem creating directory %s%s\n",path,optionfilefiname); */
+    /* fclose(ficlog); */
+/*     exit(1); */
+  }
+/*   if((imk=mkdir(optionfilefiname))<0){ */
+/*     perror("mkdir"); */
+/*   } */
 
   /*-------- arguments in the command line --------*/
 
@@ -3751,11 +3993,17 @@ int main(int argc, char *argv[])
   fprintf(ficlog,"Log filename:%s\n",filelog);
   fprintf(ficlog,"\n%s\n%s",version,fullversion);
   fprintf(ficlog,"\nEnter the parameter file name: ");
-  fprintf(ficlog,"pathtot=%s, path=%s, optionfile=%s optionfilext=%s optionfilefiname=%s\n",pathtot,path,optionfile,optionfilext,optionfilefiname);
+  fprintf(ficlog,"pathtot=%s\n\
+ path=%s \n\
+ optionfile=%s\n\
+ optionfilext=%s\n\
+ optionfilefiname=%s\n",pathtot,path,optionfile,optionfilext,optionfilefiname);
 
-  printf("Localtime (at start)=%s",strt);
-  fprintf(ficlog,"Localtime (at start)=%s",strt);
+  printf("Localtime (at start):%s",strstart);
+  fprintf(ficlog,"Localtime (at start): %s",strstart);
   fflush(ficlog);
+/*   (void) gettimeofday(&curr_time,&tzp); */
+/*   printf("Elapsed time %d\n", asc_diff_time(curr_time.tv_sec-start_time.tv_sec,tmpout)); */
 
   /* */
   strcpy(fileres,"r");
@@ -3771,9 +4019,11 @@ int main(int argc, char *argv[])
     goto end;
   }
 
+
+
   strcpy(filereso,"o");
   strcat(filereso,fileres);
-  if((ficparo=fopen(filereso,"w"))==NULL) {
+  if((ficparo=fopen(filereso,"w"))==NULL) { /* opened on subdirectory */
     printf("Problem with Output resultfile: %s\n", filereso);
     fprintf(ficlog,"Problem with Output resultfile: %s\n", filereso);
     fflush(ficlog);
@@ -3815,7 +4065,15 @@ int main(int argc, char *argv[])
 
   ncovmodel=2+cptcovn; /*Number of variables = cptcovn + intercept + age */
   nvar=ncovmodel-1; /* Suppressing age as a basic covariate */
-  
+ 
+  if(mle==-1){ /* Print a wizard for help writing covariance matrix */
+    prwizard(ncovmodel, nlstate, ndeath, model, ficparo);
+    printf(" You choose mle=-1, look at file %s for a template of covariance matrix \n",filereso);
+    fprintf(ficlog," You choose mle=-1, look at file %s for a template of covariance matrix \n",filereso);
+    fclose (ficparo);
+    fclose (ficlog);
+    exit(0);
+  }
   /* Read guess parameters */
   /* Reads comments: lines beginning with '#' */
   while((c=getc(ficpar))=='#' && c!= EOF){
@@ -4137,11 +4395,13 @@ int main(int argc, char *argv[])
 	s[m][i]=-1;
       }
       if((int)moisdc[i]==99 && (int)andc[i]==9999 && s[m][i]>nlstate){
+	nberr++;
 	printf("Error! Date of death (month %2d and year %4d) of individual %ld on line %d was unknown, you must set an arbitrary year of death or he/she is skipped and results are biased\n",(int)moisdc[i],(int)andc[i],num[i],i);
 	fprintf(ficlog,"Error! Date of death (month %2d and year %4d) of individual %ld on line %d was unknown, you must set an arbitrary year of death or he/she is skipped and results are biased\n",(int)moisdc[i],(int)andc[i],num[i],i);
 	s[m][i]=-1;
       }
       if((int)moisdc[i]==99 && (int)andc[i]!=9999 && s[m][i]>nlstate){
+	nberr++;
 	printf("Error! Month of death of individual %ld on line %d was unknown %2d, you should set it otherwise the information on the death is skipped and results are biased.\n",num[i],i,(int)moisdc[i]); 
 	fprintf(ficlog,"Error! Month of death of individual %ld on line %d was unknown %f, you should set it otherwise the information on the death is skipped and results are biased.\n",num[i],i,moisdc[i]); 
 	s[m][i]=-1; /* We prefer to skip it (and to skip it in version 0.8a1 too */
@@ -4160,6 +4420,7 @@ int main(int argc, char *argv[])
 	  /*if(moisdc[i]==99 && andc[i]==9999) s[m][i]=-1;*/
 	    else {
 	      if ((int)andc[i]!=9999){
+		nbwarn++;
 		printf("Warning negative age at death: %ld line:%d\n",num[i],i);
 		fprintf(ficlog,"Warning negative age at death: %ld line:%d\n",num[i],i);
 		agev[m][i]=-1;
@@ -4196,6 +4457,7 @@ int main(int argc, char *argv[])
   for (i=1; i<=imx; i++)  {
     for(m=firstpass; (m<=lastpass); m++){
       if (s[m][i] > (nlstate+ndeath)) {
+	nberr++;
 	printf("Error: on wave %d of individual %d status %d > (nlstate+ndeath)=(%d+%d)=%d\n",m,i,s[m][i],nlstate, ndeath, nlstate+ndeath);	
 	fprintf(ficlog,"Error: on wave %d of individual %d status %d > (nlstate+ndeath)=(%d+%d)=%d\n",m,i,s[m][i],nlstate, ndeath, nlstate+ndeath);	
 	goto end;
@@ -4275,15 +4537,27 @@ int main(int argc, char *argv[])
     fprintf(ficgp,"# %s\n", optionfilegnuplot); 
     fprintf(ficgp,"set missing 'NaNq'\n");
   }
-  fclose(ficgp);
+  /*  fclose(ficgp);*/
   /*--------- index.htm --------*/
 
-  strcpy(optionfilehtm,optionfilefiname);
+  strcpy(optionfilehtm,optionfilefiname); /* Main html file */
   strcat(optionfilehtm,".htm");
   if((fichtm=fopen(optionfilehtm,"w"))==NULL)    {
     printf("Problem with %s \n",optionfilehtm), exit(0);
   }
 
+  strcpy(optionfilehtmcov,optionfilefiname); /* Only for matrix of covariance */
+  strcat(optionfilehtmcov,"-cov.htm");
+  if((fichtmcov=fopen(optionfilehtmcov,"w"))==NULL)    {
+    printf("Problem with %s \n",optionfilehtmcov), exit(0);
+  }
+  else{
+  fprintf(fichtmcov,"<body>\n<title>IMaCh Cov %s</title>\n <font size=\"2\">%s <br> %s</font> \
+<hr size=\"2\" color=\"#EC5E5E\"> \n\
+Title=%s <br>Datafile=%s Firstpass=%d Lastpass=%d Stepm=%d Weight=%d Model=%s<br>\n",\
+	  fileres,version,fullversion,title,datafile,firstpass,lastpass,stepm, weightopt, model);
+  }
+
   fprintf(fichtm,"<body>\n<title>IMaCh %s</title>\n <font size=\"2\">%s <br> %s</font> \
 <hr size=\"2\" color=\"#EC5E5E\"> \n\
 Title=%s <br>Datafile=%s Firstpass=%d Lastpass=%d Stepm=%d Weight=%d Model=%s<br>\n\
@@ -4294,32 +4568,28 @@ Title=%s <br>Datafile=%s Firstpass=%d La
  - Log file of the run: <a href=\"%s\">%s</a><br>\n\
  - Gnuplot file name: <a href=\"%s\">%s</a><br>\n\
  - Date and time at start: %s</ul>\n",\
-	  fileres,version,fullversion,title,datafile,firstpass,lastpass,stepm, weightopt,\
-	  model,fileres,fileres,\
-	  filelog,filelog,optionfilegnuplot,optionfilegnuplot,strt);
-  /*fclose(fichtm);*/
+	  fileres,version,fullversion,title,datafile,firstpass,lastpass,stepm, weightopt, model,\
+	  fileres,fileres,\
+	  filelog,filelog,optionfilegnuplot,optionfilegnuplot,strstart);
   fflush(fichtm);
 
+  strcpy(pathr,path);
+  strcat(pathr,optionfilefiname);
+  chdir(optionfilefiname); /* Move to directory named optionfile */
+  strcpy(lfileres,fileres);
+  strcat(lfileres,"/");
+  strcat(lfileres,optionfilefiname);
+  
   /* Calculates basic frequencies. Computes observed prevalence at single age
      and prints on file fileres'p'. */
   freqsummary(fileres, agemin, agemax, s, agev, nlstate, imx,Tvaraff,nbcode, ncodemax,mint,anint);
 
-/*   if((fichtm=fopen(optionfilehtm,"a"))==NULL) { */
-/*     printf("Problem with file: %s\n", optionfilehtm); */
-/*     fprintf(ficlog,"Problem with file: %s\n", optionfilehtm); */
-/*   } */
-
-
-/*   if(fileappend(fichtm, optionfilehtm)){ */
-    fprintf(fichtm,"\n");
-    fprintf(fichtm,"<br>Total number of observations=%d <br>\n\
+  fprintf(fichtm,"\n");
+  fprintf(fichtm,"<br>Total number of observations=%d <br>\n\
 Youngest age at first (selected) pass %.2f, oldest age %.2f<br>\n\
 Interval (in months) between two waves: Min=%d Max=%d Mean=%.2lf<br>\n",\
-	imx,agemin,agemax,jmin,jmax,jmean);
-/*     fclose(fichtm); */
-/*   } */
-
-    pmmij= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */
+	  imx,agemin,agemax,jmin,jmax,jmean);
+  pmmij= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */
     oldms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */
     newms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */
     savms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */
@@ -4507,14 +4777,15 @@ Interval (in months) between two waves:
   /*  freqsummary(fileres, agemin, agemax, s, agev, nlstate, imx,Tvaraff,nbcode, ncodemax,mint,anint);*/
   /*,dateprev1,dateprev2,jprev1, mprev1,anprev1,jprev2, mprev2,anprev2);*/
 
-  printinggnuplot(fileres, ageminpar,agemaxpar,fage, pathc,p);
+  replace_back_to_slash(pathc,path); /* Even gnuplot wants a / */
+  printinggnuplot(fileres, optionfilefiname,ageminpar,agemaxpar,fage, pathc,p);
 
   printinghtml(fileres,title,datafile, firstpass, lastpass, stepm, weightopt,\
 	       model,imx,jmin,jmax,jmean,rfileres,popforecast,estepm,\
 	       jprev1,mprev1,anprev1,jprev2,mprev2,anprev2);
  
   /*------------ free_vector  -------------*/
-  chdir(path);
+  /*  chdir(path); */
  
   free_ivector(wav,1,imx);
   free_imatrix(dh,1,lastpass-firstpass+1,1,imx);
@@ -4831,62 +5102,63 @@ ageminpar, agemax, s[lastpass][imx], age
   free_ivector(Tage,1,15);
   free_ivector(Tcode,1,100);
 
-  /*  fclose(fichtm);*/
-  /*  fclose(ficgp);*/ /* ALready done */
+  fflush(fichtm);
+  fflush(ficgp);
   
 
-  if(erreur >0){
-    printf("End of Imach with error or warning %d\n",erreur);
-    fprintf(ficlog,"End of Imach with error or warning %d\n",erreur);
+  if((nberr >0) || (nbwarn>0)){
+    printf("End of Imach with %d errors and/or warnings %d\n",nberr,nbwarn);
+    fprintf(ficlog,"End of Imach with %d errors and/or warnings %d\n",nberr,nbwarn);
   }else{
-   printf("End of Imach\n");
-   fprintf(ficlog,"End of Imach\n");
+    printf("End of Imach\n");
+    fprintf(ficlog,"End of Imach\n");
   }
   printf("See log file on %s\n",filelog);
-  fclose(ficlog);
   /*  gettimeofday(&end_time, (struct timezone*)0);*/  /* after time */
   (void) gettimeofday(&end_time,&tzp);
   tm = *localtime(&end_time.tv_sec);
   tmg = *gmtime(&end_time.tv_sec);
-  strtend=asctime(&tm);
-  printf("Localtime at start %s and at end=%s",strt, strtend); 
-  fprintf(ficlog,"Localtime at start %s and at end=%s",strt, strtend); 
-  /*  printf("Total time used %d Sec\n", asc_time(end_time.tv_sec -start_time.tv_sec);*/
-
-  printf("Total time was %d Sec. %d uSec.\n", end_time.tv_sec -start_time.tv_sec, end_time.tv_usec -start_time.tv_usec);
-  fprintf(ficlog,"Total time was %d Sec. %d uSec.\n", end_time.tv_sec -start_time.tv_sec, end_time.tv_usec -start_time.tv_usec);
+  strcpy(strtend,asctime(&tm));
+  printf("Localtime at start %s\nLocaltime at end   %s",strstart, strtend); 
+  fprintf(ficlog,"Localtime at start %s\nLocal time at end   %s\n",strstart, strtend); 
+  printf("Total time used %s\n", asc_diff_time(end_time.tv_sec -start_time.tv_sec,tmpout));
+
+  printf("Total time was %d Sec.\n", end_time.tv_sec -start_time.tv_sec);
+  fprintf(ficlog,"Total time used %s\n", asc_diff_time(end_time.tv_sec -start_time.tv_sec,tmpout));
+  fprintf(ficlog,"Total time was %d Sec.\n", end_time.tv_sec -start_time.tv_sec);
   /*  printf("Total time was %d uSec.\n", total_usecs);*/
 /*   if(fileappend(fichtm,optionfilehtm)){ */
-  fprintf(fichtm,"<br>Localtime at start %s and at end=%s<br>",strt, strtend);
+  fprintf(fichtm,"<br>Local time at start %s<br>Local time at end   %s<br>",strstart, strtend);
   fclose(fichtm);
+  fclose(fichtmcov);
+  fclose(ficgp);
+  fclose(ficlog);
   /*------ End -----------*/
 
-  end:
-#ifdef windows
-  /* chdir(pathcd);*/
-#endif 
- /*system("wgnuplot graph.plt");*/
- /*system("../gp37mgw/wgnuplot graph.plt");*/
- /*system("cd ../gp37mgw");*/
- /* system("..\\gp37mgw\\wgnuplot graph.plt");*/
+  chdir(path);
   strcpy(plotcmd,GNUPLOTPROGRAM);
   strcat(plotcmd," ");
   strcat(plotcmd,optionfilegnuplot);
   printf("Starting graphs with: %s",plotcmd);fflush(stdout);
-  system(plotcmd);
+  if((outcmd=system(plotcmd)) != 0){
+    printf(" Problem with gnuplot\n");
+  }
   printf(" Wait...");
-
- /*#ifdef windows*/
   while (z[0] != 'q') {
     /* chdir(path); */
-    printf("\nType e to edit output files, g to graph again, c to start again, and q for exiting: ");
+    printf("\nType e to edit output files, g to graph again and q for exiting: ");
     scanf("%s",z);
-    if (z[0] == 'c') system("./imach");
-    else if (z[0] == 'e') system(optionfilehtm);
+/*     if (z[0] == 'c') system("./imach"); */
+    if (z[0] == 'e') system(optionfilehtm);
     else if (z[0] == 'g') system(plotcmd);
     else if (z[0] == 'q') exit(0);
   }
-  /*#endif */
+  end:
+  while (z[0] != 'q') {
+    printf("\nType  q for exiting: ");
+    scanf("%s",z);
+  }
 }
 
 
+