--- imach/src/imach.c	2006/06/30 13:02:05	1.128
+++ imach/src/imach.c	2007/08/31 13:49:27	1.129
@@ -1,6 +1,9 @@
-/* $Id: imach.c,v 1.128 2006/06/30 13:02:05 brouard Exp $
+/* $Id: imach.c,v 1.129 2007/08/31 13:49:27 lievre Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.129  2007/08/31 13:49:27  lievre
+  Modification of the way of exiting when the covariate is not binary in order to see on the window the error message before exiting
+
   Revision 1.128  2006/06/30 13:02:05  brouard
   (Module): Clarifications on computing e.j
 
@@ -386,11 +389,11 @@ extern int errno;
 #define ODIRSEPARATOR '/'
 #endif
 
-/* $Id: imach.c,v 1.128 2006/06/30 13:02:05 brouard Exp $ */
+/* $Id: imach.c,v 1.129 2007/08/31 13:49:27 lievre Exp $ */
 /* $State: Exp $ */
 
 char version[]="Imach version 0.98i, June 2006, INED-EUROREVES-Institut de longevite ";
-char fullversion[]="$Revision: 1.128 $ $Date: 2006/06/30 13:02:05 $"; 
+char fullversion[]="$Revision: 1.129 $ $Date: 2007/08/31 13:49:27 $"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
 int erreur, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
@@ -4915,13 +4918,13 @@ run imach with mle=-1 to get a correct t
  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);