Summary: Some fixes in parameter files errors

Author: Nicolas Brouard

diff --git a/src/imach.c b/src/imach.c
index 7712c0ce19051f983991f28de5a387d41532e586..d5fcfc2c61966ab448a9d4b4304edde332d276b3 100644 (file)
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,12 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.148  2014/06/17 17:38:48  brouard
+  Summary: Nothing new
+  Author: Brouard
+
+  Just a new packaging for OS/X version 0.98nS
+
   Revision 1.147  2014/06/16 10:33:11  brouard
   *** empty log message ***
 
@@ -489,7 +495,7 @@ extern int errno;
 /* $Id$ */
 /* $State$ */
 
-char version[]="Imach version 0.98nS, January 2014,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121)";
+char version[]="Imach version 0.98nT, January 2014,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121)";
 char fullversion[]="$Revision$ $Date$"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
@@ -5379,10 +5385,11 @@ int main(int argc, char *argv[])
   /*---------arguments file --------*/
 
   if((ficpar=fopen(optionfile,"r"))==NULL)    {
-    printf("Problem with optionfile %s\n",optionfile);
-    fprintf(ficlog,"Problem with optionfile %s\n",optionfile);
+    printf("Problem with optionfile %s with errno=%s\n",optionfile,strerror(errno));
+    fprintf(ficlog,"Problem with optionfile %s with errno=%s\n",optionfile,strerror(errno));
     fflush(ficlog);
-    goto end;
+    /* goto end; */
+    exit(70); 
   }