From 39e43f297dfd39dd55b0a11f918597cc5d68cb1c Mon Sep 17 00:00:00 2001 From: "N. Brouard" Date: Tue, 12 Mar 2002 22:13:38 +0000 Subject: [PATCH] Some cleaning in esij and nhstepm --- src/imach.c | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) 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,"