From: N. Brouard <brouard@ined.fr>
Date: Tue, 27 Feb 2018 19:25:23 +0000 (+0000)
Subject: Summary: Adding second argument for quitting
X-Git-Tag: imach-099s7~215
X-Git-Url: https://henry.ined.fr/git/?a=commitdiff_plain;h=a36cd1ca436d2375388dab9697b67364d8c6988e;p=.git

Summary: Adding second argument for quitting
---

diff --git a/src/imach.c b/src/imach.c
index 504d69f..c105820 100644
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,11 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.280  2018/02/21 07:58:13  brouard
+  Summary: 0.99r15
+
+  New Makefile with recent VirtualBox 5.26. Bug in sqrt negatve in imach.c
+
   Revision 1.279  2017/07/20 13:35:01  brouard
   Summary: temporary working
 
@@ -10790,8 +10795,13 @@ int main(int argc, char *argv[])
       if(pathr[0] == '\0') break; /* Dirty */
     }
   }
+  else if (argc<=2){
+    strcpy(pathtot,argv[1]);
+  }
   else{
     strcpy(pathtot,argv[1]);
+    strcpy(z,argv[2]);
+    printf("\nargv[2]=%s z=%c\n",argv[2],z[0]);
   }
   /*if(getcwd(pathcd, MAXLINE)!= NULL)printf ("Error pathcd\n");*/
   /*cygwin_split_path(pathtot,path,optionfile);
@@ -10869,8 +10879,6 @@ int main(int argc, char *argv[])
     exit(70); 
   }
 
-
-
   strcpy(filereso,"o");
   strcat(filereso,fileresu);
   if((ficparo=fopen(filereso,"w"))==NULL) { /* opened on subdirectory */
@@ -12656,6 +12664,8 @@ Please run with mle=-1 to get a correct covariance matrix.\n",ageminpar,agemaxpa
   fclose(ficlog);
   /*------ End -----------*/
   
+
+/* Executes gnuplot */
   
   printf("Before Current directory %s!\n",pathcd);
 #ifdef WIN32