--- imach/src/imach.c	2022/06/02 04:45:11	1.319
+++ imach/src/imach.c	2022/06/02 05:10:11	1.320
@@ -1,6 +1,9 @@
-/* $Id: imach.c,v 1.319 2022/06/02 04:45:11 brouard Exp $
+/* $Id: imach.c,v 1.320 2022/06/02 05:10:11 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.320  2022/06/02 05:10:11  brouard
+  *** empty log message ***
+
   Revision 1.319  2022/06/02 04:45:11  brouard
   * imach.c (Module): Adding the Wald tests from the log to the main
   htm for better display of the maximum likelihood estimators.
@@ -1195,12 +1198,12 @@ typedef struct {
 #define ODIRSEPARATOR '\\'
 #endif
 
-/* $Id: imach.c,v 1.319 2022/06/02 04:45:11 brouard Exp $ */
+/* $Id: imach.c,v 1.320 2022/06/02 05:10:11 brouard Exp $ */
 /* $State: Exp $ */
 #include "version.h"
 char version[]=__IMACH_VERSION__;
 char copyright[]="May 2022,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.319 $ $Date: 2022/06/02 04:45:11 $"; 
+char fullversion[]="$Revision: 1.320 $ $Date: 2022/06/02 05:10:11 $"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
 int erreur=0, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
@@ -1422,7 +1425,7 @@ int **nbcode, *Tvar; /**< model=V2 => Tv
 /* Tage[cptcovage]=k            5               8      */ /* Position in the model of ith cov*age */
 /* Tvard[1][1]@4={4,3,1,2}    V4*V3 V1*V2              */ /* Position in model of the ith prod without age */
 /* TvarF TvarF[1]=Tvar[6]=2,  TvarF[2]=Tvar[7]=7, TvarF[3]=Tvar[9]=1  ID of fixed covariates or product V2, V1*V2, V1 */
-/* TvarFind; /**< TvarFind[1]=6,  TvarFind[2]=7, TvarFind[3]=9 *//* Inverse V2(6) is first fixed (single or prod)  */
+/* TvarFind;  TvarFind[1]=6,  TvarFind[2]=7, TvarFind[3]=9 *//* Inverse V2(6) is first fixed (single or prod)  */
 /* Type                    */
 /* V         1  2  3  4  5 */
 /*           F  F  V  V  V */
@@ -3645,7 +3648,7 @@ double func( double *x)
 	/* # V1=sex, V2=raedyrs Quant Fixed, State=livarnb4..livarnb11, V3=iadl4..iald11, V4=adlw4..adlw11, V5=r4bmi..r11bmi */
         /*             V5+V4+V3+V4*V3+V5*age+V2+V1*V2+V1*age+V1 */
 	/*  TvarF[1]=Tvar[6]=2,  TvarF[2]=Tvar[7]=7, TvarF[3]=Tvar[9]=1  ID of fixed covariates or product V2, V1*V2, V1 */
-        /* TvarFind; /**< TvarFind[1]=6,  TvarFind[2]=7, TvarFind[3]=9 *//* Inverse V2(6) is first fixed (single or prod)  */
+        /* TvarFind;  TvarFind[1]=6,  TvarFind[2]=7, TvarFind[3]=9 *//* Inverse V2(6) is first fixed (single or prod)  */
 	cov[ioffset+TvarFind[k]]=covar[Tvar[TvarFind[k]]][i];/* V5+V4+V3+V4*V3+V5*age+V2+V1*V2+V1*age+V1, only V1 is fixed (TvarFind[1]=6)*/
 	/* V1*V2 (7)  TvarFind[2]=7, TvarFind[3]=9 */
       }
@@ -6118,9 +6121,9 @@ void  concatwav(int wav[], int **dh, int
 	    varhe[ij][ji][(int)age] += doldm[ij][ji]*hf*hf;
       }
     }
-    if((int)age ==50){
-      printf(" age=%d cij=%d nres=%d varhe[%d][%d]=%f ",(int)age, cij, nres, 1,2,varhe[1][2]);
-    }
+    /* if((int)age ==50){ */
+    /*   printf(" age=%d cij=%d nres=%d varhe[%d][%d]=%f ",(int)age, cij, nres, 1,2,varhe[1][2]); */
+    /* } */
     /* Computing expectancies */
     hpxij(p3matm,nhstepm,age,hstepm,x,nlstate,stepm,oldm, savm, cij,nres);  
     for(i=1; i<=nlstate;i++)