--- imach/src/imach.c	2022/04/05 21:03:51	1.311
+++ imach/src/imach.c	2022/04/11 15:57:42	1.313
@@ -1,6 +1,12 @@
-/* $Id: imach.c,v 1.311 2022/04/05 21:03:51 brouard Exp $
+/* $Id: imach.c,v 1.313 2022/04/11 15:57:42 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.313  2022/04/11 15:57:42  brouard
+  * imach.c (Module): Error in rewriting the 'r' file with yearsfproj or yearsbproj fixed
+
+  Revision 1.312  2022/04/05 21:24:39  brouard
+  *** empty log message ***
+
   Revision 1.311  2022/04/05 21:03:51  brouard
   Summary: Fixed quantitative covariates
 
@@ -1168,12 +1174,12 @@ typedef struct {
 #define ODIRSEPARATOR '\\'
 #endif
 
-/* $Id: imach.c,v 1.311 2022/04/05 21:03:51 brouard Exp $ */
+/* $Id: imach.c,v 1.313 2022/04/11 15:57:42 brouard Exp $ */
 /* $State: Exp $ */
 #include "version.h"
 char version[]=__IMACH_VERSION__;
 char copyright[]="March 2021,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015-2020, Nihon University 2021, INED 2000-2021";
-char fullversion[]="$Revision: 1.311 $ $Date: 2022/04/05 21:03:51 $"; 
+char fullversion[]="$Revision: 1.313 $ $Date: 2022/04/11 15:57:42 $"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
 int erreur=0, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
@@ -4781,7 +4787,7 @@ Title=%s <br>Datafile=%s Firstpass=%d La
       */
       for (z1=1; z1<= nqfveff; z1++) {
 	fprintf(ficlog,"Mean of fixed quantitative variable V%d on %.3g (weighted) individuals sum=%f", ncovcol+z1, idq[z1], meanq[z1]);
-	fprintf(ficlog,", mean=%.3g",meanq[z1]/idq[z1]," stdeviation=%.3g\n",stdq[z1]);
+	fprintf(ficlog,", mean=%.3g\n",meanq[z1]/idq[z1]);
 	if(weightopt==1){
 	  printf(" Weighted mean and standard deviation of");
 	  fprintf(ficlog," Weighted mean and standard deviation of");
@@ -12509,9 +12515,9 @@ Please run with mle=-1 to get a correct
           prvforecast = 1;
 	} 
 	else if((num_filled=sscanf(line,"prevforecast=%d yearsfproj=%lf mobil_average=%d\n",&prevfcast,&yrfproj,&mobilavproj)) !=EOF){/* && (num_filled == 3))*/
-	  printf("prevforecast=%d yearsfproj=%lf.2 mobil_average=%d\n",prevfcast,yrfproj,mobilavproj);
-	  fprintf(ficlog,"prevforecast=%d yearsfproj=%lf.2 mobil_average=%d\n",prevfcast,yrfproj,mobilavproj);
-	  fprintf(ficres,"prevforecast=%d yearsfproj=%lf.2 mobil_average=%d\n",prevfcast,yrfproj,mobilavproj);
+	  printf("prevforecast=%d yearsfproj=%.2lf mobil_average=%d\n",prevfcast,yrfproj,mobilavproj);
+	  fprintf(ficlog,"prevforecast=%d yearsfproj=%.2lf mobil_average=%d\n",prevfcast,yrfproj,mobilavproj);
+	  fprintf(ficres,"prevforecast=%d yearsfproj=%.2lf mobil_average=%d\n",prevfcast,yrfproj,mobilavproj);
           prvforecast = 2;
 	}
 	else {
@@ -12532,9 +12538,9 @@ Please run with mle=-1 to get a correct
           prvbackcast = 1;
 	} 
 	else if((num_filled=sscanf(line,"prevbackcast=%d yearsbproj=%lf mobil_average=%d\n",&prevbcast,&yrbproj,&mobilavproj)) ==3){/* && (num_filled == 3))*/
-	  printf("prevbackcast=%d yearsbproj=%lf.2 mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
-	  fprintf(ficlog,"prevbackcast=%d yearsbproj=%lf.2 mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
-	  fprintf(ficres,"prevbackcast=%d yearsbproj=%lf.2 mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
+	  printf("prevbackcast=%d yearsbproj=%.2lf mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
+	  fprintf(ficlog,"prevbackcast=%d yearsbproj=%.2lf mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
+	  fprintf(ficres,"prevbackcast=%d yearsbproj=%.2lf mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
           prvbackcast = 2;
 	}
 	else {