From: N. Brouard <brouard@ined.fr>
Date: Tue, 19 Nov 2002 00:17:38 +0000 (+0000)
Subject: Allocation bug
X-Git-Tag: imach-099s7~655
X-Git-Url: https://henry.ined.fr/git/?a=commitdiff_plain;h=e4f50c7e48482b30cea11f032ca95fab29bec831;p=.git

Allocation bug
---

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<br>\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;