--- imach/src/imach.c	2002/11/18 23:01:13	1.59
+++ imach/src/imach.c	2002/11/19 00:17:38	1.60
@@ -1,4 +1,4 @@
-/* $Id: imach.c,v 1.59 2002/11/18 23:01:13 brouard Exp $
+/* $Id: imach.c,v 1.60 2002/11/19 00:17:38 brouard Exp $
    Interpolated Markov Chain
 
   Short summary of the programme:
@@ -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:
   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;