From 27fc981d2b242d0976d02ea178a345677d53b4a0 Mon Sep 17 00:00:00 2001 From: "N. Brouard" Date: Tue, 18 Aug 2015 23:17:52 +0000 Subject: [PATCH] Summary: 0.98q5 --- src/imach.c | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/src/imach.c b/src/imach.c index 8cba3b8..4c46b67 100644 --- 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); -- 2.43.0