Modification of the way of exiting when the covariate is not binary in order to see...

diff --git a/src/imach.c b/src/imach.c
index 9e7cfe106cbd0580ff3b065b061d0c3a8db1cc6f..f79fd3d61943e859e021cea5fd1d4a13d6d981d6 100644 (file)
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,9 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.128  2006/06/30 13:02:05  brouard
+  (Module): Clarifications on computing e.j
+
   Revision 1.127  2006/04/28 18:11:50  brouard
   (Module): Yes the sum of survivors was wrong since
   imach-114 because nhstepm was no more computed in the age
@@ -4912,13 +4915,13 @@ run imach with mle=-1 to get a correct template of the parameter file.\n",numlin
  and V1=0 V2=1 for (3). V1=1 V2=1 should not exist and the corresponding\n \
  output of IMaCh is often meaningless.\n \
  Exiting.\n",lval,linei, i,line,j);
-       exit(1);
+       goto end;
       }
       covar[j][i]=(double)(lval);
       strcpy(line,stra);
-    } 
+    }  
     lstra=strlen(stra);
-    
+     
     if(lstra > 9){ /* More than 2**32 or max of what printf can write with %ld */
       stratrunc = &(stra[lstra-9]);
       num[i]=atol(stratrunc);