From: N. Brouard Date: Tue, 12 Mar 2002 22:13:38 +0000 (+0000) Subject: Some cleaning in esij and nhstepm X-Git-Tag: Version-0-8a~8 X-Git-Url: https://henry.ined.fr/git/?a=commitdiff_plain;h=39e43f297dfd39dd55b0a11f918597cc5d68cb1c;p=.git Some cleaning in esij and nhstepm --- diff --git a/src/imach.c b/src/imach.c index 363eb96..ab994a3 100644 --- a/src/imach.c +++ b/src/imach.c @@ -1559,7 +1559,7 @@ void evsij(char fileres[], double ***eij, double x[], int nlstate, int stepm, in /* nhstepm age range expressed in number of stepm */ nstepm=(int) rint((agelim-age)*YEARM/stepm); /* Typically if 20 years nstepm = 20*12/6=40 stepm */ - if (stepm >= YEARM) hstepm=1; + /* if (stepm >= YEARM) hstepm=1;*/ nhstepm = nstepm/hstepm;/* Expressed in hstepm, typically nhstepm=40/4=10 */ p3mat=ma3x(1,nlstate+ndeath,1, nlstate+ndeath, 0,nhstepm); /* Computed by stepm unit matrices, product of hstepm matrices, stored @@ -1903,7 +1903,7 @@ void printinghtml(char fileres[], char title[], char datafile[], int firstpass, printf("Problem with %s \n",optionfilehtm), exit(0); } - fprintf(fichtm,"