--- imach/src/imach.c	2002/04/05 15:45:00	1.39
+++ imach/src/imach.c	2002/04/19 13:46:19	1.40
@@ -1,4 +1,4 @@
-/* $Id: imach.c,v 1.39 2002/04/05 15:45:00 lievre Exp $
+/* $Id: imach.c,v 1.40 2002/04/19 13:46:19 lievre Exp $
    Interpolated Markov Chain
 
   Short summary of the programme:
@@ -3227,13 +3227,13 @@ while((c=getc(ficpar))=='#' && c!= EOF){
 	    for(j=1; j<=nlstate+ndeath;j++)
 	      fprintf(ficrespij," %1d-%1d",i,j);
 	  fprintf(ficrespij,"\n");
-	  for (h=0; h<=nhstepm; h++){
+	   for (h=0; h<=nhstepm; h++){
 	    fprintf(ficrespij,"%d %.0f %.0f",k,agedeb, agedeb+ h*hstepm/YEARM*stepm );
 	    for(i=1; i<=nlstate;i++)
 	      for(j=1; j<=nlstate+ndeath;j++)
 		fprintf(ficrespij," %.5f", p3mat[i][j][h]);
 	    fprintf(ficrespij,"\n");
-	  }
+	     }
 	  free_ma3x(p3mat,1,nlstate+ndeath,1, nlstate+ndeath, 0,nhstepm);
 	  fprintf(ficrespij,"\n");
 	}