--- imach/src/imach.c	2023/05/21 05:05:17	1.354
+++ imach/src/imach.c	2023/05/22 17:03:18	1.355
@@ -1,6 +1,12 @@
-/* $Id: imach.c,v 1.354 2023/05/21 05:05:17 brouard Exp $
+/* $Id: imach.c,v 1.355 2023/05/22 17:03:18 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.355  2023/05/22 17:03:18  brouard
+  Summary: 0.99r46
+
+  * imach.c (Module): In the ILK....txt file, the number of columns
+  before the covariates values is dependent of the number of states (16+nlstate): 0.99r46
+
   Revision 1.354  2023/05/21 05:05:17  brouard
   Summary: Temporary change for imachprax
 
@@ -1373,12 +1379,12 @@ double gnuplotversion=GNUPLOTVERSION;
 #define ODIRSEPARATOR '\\'
 #endif
 
-/* $Id: imach.c,v 1.354 2023/05/21 05:05:17 brouard Exp $ */
+/* $Id: imach.c,v 1.355 2023/05/22 17:03:18 brouard Exp $ */
 /* $State: Exp $ */
 #include "version.h"
 char version[]=__IMACH_VERSION__;
 char copyright[]="April 2023,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-202, INED 2000-2022";
-char fullversion[]="$Revision: 1.354 $ $Date: 2023/05/21 05:05:17 $"; 
+char fullversion[]="$Revision: 1.355 $ $Date: 2023/05/22 17:03:18 $"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
 int erreur=0, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
@@ -8443,7 +8449,8 @@ void printinggnuplot(char fileresu[], ch
     kvar=Tvar[TvarFind[kf]]; /* variable name */
     /* k=18+Tvar[TvarFind[kf]];/\*offset because there are 18 columns in the ILK_ file but could be placed else where *\/ */
     /* k=18+kf;/\*offset because there are 18 columns in the ILK_ file *\/ */
-    k=19+kf;/*offset because there are 19 columns in the ILK_ file */
+    /* k=19+nlstate+kf;/\*offset because there are 19 columns in the ILK_ file *\/ */
+    k=16+nlstate+kf;/*offset because there are 19 columns in the ILK_ file, first cov Vn on col 21 with 4 living states */
     for (i=1; i<= nlstate ; i ++) {
       fprintf(ficgp,"\nset out \"%s-p%dj-%d.png\";set ylabel \"Probability for each individual/wave\";",subdirf2(optionfilefiname,"ILK_"),i,kvar);
       fprintf(ficgp,"unset log;\n# For each simple dummy covariate of the model \n plot  \"%s\"",subdirf(fileresilk));