--- imach/src/imach.c	2002/02/22 17:54:20	1.22
+++ imach/src/imach.c	2002/02/22 18:08:30	1.23
@@ -1,4 +1,4 @@
-/* $Id: imach.c,v 1.22 2002/02/22 17:54:20 brouard Exp $
+/* $Id: imach.c,v 1.23 2002/02/22 18:08:30 lievre Exp $
    Interpolate Markov Chain
 
   Short summary of the programme:
@@ -1901,7 +1901,7 @@ int main(int argc, char *argv[])
   char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH],  filerespl[FILENAMELENGTH], optionfilehtm[FILENAMELENGTH];
   char optionfilext[10], optionfilefiname[FILENAMELENGTH], optionfilegnuplot[FILENAMELENGTH], plotcmd[FILENAMELENGTH];
   
-  char fileres[FILENAMELENGTH], filerespij[FILENAMELENGTH], filereso[FILENAMELENGTH], fileresf[FILENAMELENGTH];;
+  char fileres[FILENAMELENGTH], filerespij[FILENAMELENGTH], filereso[FILENAMELENGTH], fileresf[FILENAMELENGTH];
 
   char filerest[FILENAMELENGTH];
   char fileregp[FILENAMELENGTH];
@@ -2991,19 +2991,19 @@ fclose(fichtm);
 	    }
 	  }
 	}
-	free_ma3x(p3mat,1,nlstate+ndeath,1, nlstate+ndeath, 0,nhstepm);
+	/*	free_ma3x(p3mat,1,nlstate+ndeath,1, nlstate+ndeath, 0,nhstepm);*/
       }
       }
     }
   }
-  if (mobilav==1) free_ma3x(mobaverage,1, AGESUP,1,NCOVMAX, 1,NCOVMAX);
+  /*  if (mobilav==1) free_ma3x(mobaverage,1, AGESUP,1,NCOVMAX, 1,NCOVMAX);
   if (popforecast==1) {
     free_ivector(popage,0,AGESUP);
     free_vector(popeffectif,0,AGESUP);
     free_vector(popcount,0,AGESUP);
   }
   free_imatrix(s,1,maxwav+1,1,n);
-  free_vector(weight,1,n);
+  free_vector(weight,1,n);*/
   fclose(ficresf);
   }/* End forecasting */
   else{