--- imach/src/imach.c	2019/05/22 19:09:45	1.300
+++ imach/src/imach.c	2019/06/04 13:51:20	1.301
@@ -1,6 +1,9 @@
-/* $Id: imach.c,v 1.300 2019/05/22 19:09:45 brouard Exp $
+/* $Id: imach.c,v 1.301 2019/06/04 13:51:20 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.301  2019/06/04 13:51:20  brouard
+  Summary: Error in 'r'parameter file backcast yearsbproj instead of yearsfproj
+
   Revision 1.300  2019/05/22 19:09:45  brouard
   Summary: version 0.99r19 of May 2019
 
@@ -1119,12 +1122,12 @@ typedef struct {
 #define ODIRSEPARATOR '\\'
 #endif
 
-/* $Id: imach.c,v 1.300 2019/05/22 19:09:45 brouard Exp $ */
+/* $Id: imach.c,v 1.301 2019/06/04 13:51:20 brouard Exp $ */
 /* $State: Exp $ */
 #include "version.h"
 char version[]=__IMACH_VERSION__;
 char copyright[]="May 2019,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015-2020";
-char fullversion[]="$Revision: 1.300 $ $Date: 2019/05/22 19:09:45 $"; 
+char fullversion[]="$Revision: 1.301 $ $Date: 2019/06/04 13:51:20 $"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
 int erreur=0, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
@@ -12390,8 +12393,8 @@ Please run with mle=-1 to get a correct
 	} 
 	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 mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
-	  fprintf(ficlog,"prevbackcast=%d yearsfproj=%lf mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
-	  fprintf(ficres,"prevbackcast=%d yearsfproj=%lf mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
+	  fprintf(ficlog,"prevbackcast=%d yearsbproj=%lf mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
+	  fprintf(ficres,"prevbackcast=%d yearsbproj=%lf mobil_average=%d\n",prevbcast,yrbproj,mobilavproj);
           prvbackcast = 2;
 	}
 	else {