From e4f50c7e48482b30cea11f032ca95fab29bec831 Mon Sep 17 00:00:00 2001 From: "N. Brouard" Date: Tue, 19 Nov 2002 00:17:38 +0000 Subject: [PATCH] Allocation bug --- src/imach.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/imach.c b/src/imach.c index 458bb84..0855c36 100644 --- a/src/imach.c +++ b/src/imach.c @@ -3652,6 +3652,11 @@ int main(int argc, char *argv[]) /* Calculates basic frequencies. Computes observed prevalence at single age and prints on file fileres'p'. */ + pmmij= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ + oldms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ + newms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ + savms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ + oldm=oldms; newm=newms; savm=savms; /* Keeps fixed addresses to free */ /* For Powell, parameters are in a vector p[] starting at p[1] @@ -3884,11 +3889,6 @@ Interval (in months) between two waves: Min=%d Max=%d Mean=%.2lf
\n fprintf(ficrespl,"\n"); prlim=matrix(1,nlstate,1,nlstate); - pmmij= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ - oldms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ - newms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ - savms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ - oldm=oldms; newm=newms; savm=savms; /* Keeps fixed addresses to free */ agebase=ageminpar; agelim=agemaxpar; -- 2.43.0