version 1.59, 2002/11/18 23:01:13
|
version 1.60, 2002/11/19 00:17:38
|
Line 3652 int main(int argc, char *argv[])
|
Line 3652 int main(int argc, char *argv[])
|
/* Calculates basic frequencies. Computes observed prevalence at single age |
/* Calculates basic frequencies. Computes observed prevalence at single age |
and prints on file fileres'p'. */ |
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] |
/* For Powell, parameters are in a vector p[] starting at p[1] |
Line 3884 Interval (in months) between two waves:
|
Line 3889 Interval (in months) between two waves:
|
fprintf(ficrespl,"\n"); |
fprintf(ficrespl,"\n"); |
|
|
prlim=matrix(1,nlstate,1,nlstate); |
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; |
agebase=ageminpar; |
agelim=agemaxpar; |
agelim=agemaxpar; |