--- imach/src/imach.c 2020/02/22 21:00:05 1.302 +++ imach/src/imach.c 2021/02/11 19:50:15 1.303 @@ -1,6 +1,9 @@ -/* $Id: imach.c,v 1.302 2020/02/22 21:00:05 brouard Exp $ +/* $Id: imach.c,v 1.303 2021/02/11 19:50:15 brouard Exp $ $State: Exp $ $Log: imach.c,v $ + Revision 1.303 2021/02/11 19:50:15 brouard + * (Module): imach.c Someone entered 'results:' instead of 'result:'. Now it is an error which is printed. + Revision 1.302 2020/02/22 21:00:05 brouard * (Module): imach.c Update mle=-3 (for computing Life expectancy and life table from the data without any state) @@ -1126,12 +1129,12 @@ typedef struct { #define ODIRSEPARATOR '\\' #endif -/* $Id: imach.c,v 1.302 2020/02/22 21:00:05 brouard Exp $ */ +/* $Id: imach.c,v 1.303 2021/02/11 19:50:15 brouard Exp $ */ /* $State: Exp $ */ #include "version.h" char version[]=__IMACH_VERSION__; char copyright[]="May 2019,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015-2020"; -char fullversion[]="$Revision: 1.302 $ $Date: 2020/02/22 21:00:05 $"; +char fullversion[]="$Revision: 1.303 $ $Date: 2021/02/11 19:50:15 $"; char strstart[80]; char optionfilext[10], optionfilefiname[FILENAMELENGTH]; int erreur=0, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings */ @@ -12494,11 +12497,14 @@ Please run with mle=-1 to get a correct fprintf(ficres,"result: %s\n",resultline); fprintf(ficlog,"result: %s\n",resultline); break; - case 14: - if(ncovmodel >2 && nresult==0 ){ + case 14: + printf("Error: Unknown command '%s'\n",line); + fprintf(ficlog,"Error: Unknown command '%s'\n",line); + if(ncovmodel >=2 && nresult==0 ){ printf("ERROR: no result lines! It should be at minimum 'result: V2=0 V1=1 or result:.' %s\n",line); - goto end; + fprintf(ficlog,"ERROR: no result lines! It should be at minimum 'result: V2=0 V1=1 or result:.' %s\n",line); } + goto end; break; default: nresult=1;