Summary: 0.98q5

diff --git a/src/imach.c b/src/imach.c
index 8cba3b8195b2a543ef14f3a32a8e8d22ae62e760..4c46b678976b61392e92ae8b05fc702714ba7028 100644 (file)
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,14 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.195  2015/08/18 16:28:39  brouard
+  Summary: Adding a hack for testing purpose
+
+  After reading the title, ftol and model lines, if the comment line has
+  a q, starting with #q, the answer at the end of the run is quit. It
+  permits to run test files in batch with ctest. The former workaround was
+  $ echo q | imach foo.imach
+
   Revision 1.194  2015/08/18 13:32:00  brouard
   Summary:  Adding error when the covariance matrix doesn't contain the exact number of lines required by the model line.
 
@@ -702,8 +710,9 @@ typedef struct {
 
 /* $Id$ */
 /* $State$ */
-
-char version[]="Imach version 0.98q5, August 2015,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015";
+#include "version.h"
+char version[]=__IMACH_VERSION__;
+char copyright[]="August 2015,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015";
 char fullversion[]="$Revision$ $Date$"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
@@ -2898,7 +2907,7 @@ void lubksb(double **a, int n, int *indx, double b[])
 
 void pstamp(FILE *fichier)
 {
-  fprintf(fichier,"# %s.%s\n#%s\n#%s\n# %s", optionfilefiname,optionfilext,version,fullversion,strstart);
+  fprintf(fichier,"# %s.%s\n#IMaCh version %s, %s\n#%s\n# %s", optionfilefiname,optionfilext,version,copyright, fullversion, strstart);
 }
 
 /************ Frequencies ********************/
@@ -6365,7 +6374,7 @@ int main(int argc, char *argv[])
   getcwd(pathcd, size);
 #endif
   syscompilerinfo(0);
-  printf("\n%s\n%s",version,fullversion);
+  printf("\nIMaCh version %s, %s\n%s",version, copyright, fullversion);
   if(argc <=1){
     printf("\nEnter the parameter file name: ");
     fgets(pathr,FILENAMELENGTH,stdin);