From a4faedb9de64b33a68a2e8a7782065d76d952861 Mon Sep 17 00:00:00 2001
From: "N. Brouard" <brouard@ined.fr>
Date: Wed, 27 Jul 2022 17:40:48 +0000
Subject: [PATCH] Summary: valgrind bug fixed by initializing to zero DummyV as
 well as Tage

---
 src/imach.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/imach.c b/src/imach.c
index 6e6928e..39db19e 100644
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,9 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.327  2022/07/27 14:47:35  brouard
+  Summary: Still a problem for one-step probabilities in case of quantitative variables
+
   Revision 1.326  2022/07/26 17:33:55  brouard
   Summary: some test with nres=1
 
@@ -9597,6 +9600,10 @@ int readdata(char datafile[], int firstobs, int lastobs, int *imax)
 
   DummyV=ivector(1,NCOVMAX); /* 1 to 3 */
   FixedV=ivector(1,NCOVMAX); /* 1 to 3 */
+  for(v=1;v<NCOVMAX;v++){
+    DummyV[v]=0;
+    FixedV[v]=0;
+  }
 
   for(v=1; v <=ncovcol;v++){
     DummyV[v]=0;
@@ -11999,7 +12006,9 @@ Please run with mle=-1 to get a correct covariance matrix.\n",optionfile,numline
   Tage=ivector(1,NCOVMAX); /* Gives the covariate id of covariates associated with age: V2 + V1 + age*V4 + V3*age
 			 4 covariates (3 plus signs)
 			 Tage[1=V3*age]= 4; Tage[2=age*V4] = 3
-		      */  
+			   */  
+  for(i=1;i<NCOVMAX;i++)
+    Tage[i]=0;
   Tmodelind=ivector(1,NCOVMAX);/** gives the k model position of an
 				* individual dummy, fixed or varying:
 				* Tmodelind[Tvaraff[3]]=9,Tvaraff[1]@9={4,
-- 
2.43.0