version 1.39, 2002/04/05 15:45:00
|
version 1.40, 2002/04/19 13:46:19
|
Line 3227 while((c=getc(ficpar))=='#' && c!= EOF){
|
Line 3227 while((c=getc(ficpar))=='#' && c!= EOF){
|
for(j=1; j<=nlstate+ndeath;j++)
|
for(j=1; j<=nlstate+ndeath;j++)
|
fprintf(ficrespij," %1d-%1d",i,j);
|
fprintf(ficrespij," %1d-%1d",i,j);
|
fprintf(ficrespij,"\n");
|
fprintf(ficrespij,"\n");
|
for (h=0; h<=nhstepm; h++){
|
for (h=0; h<=nhstepm; h++){
|
fprintf(ficrespij,"%d %.0f %.0f",k,agedeb, agedeb+ h*hstepm/YEARM*stepm );
|
fprintf(ficrespij,"%d %.0f %.0f",k,agedeb, agedeb+ h*hstepm/YEARM*stepm );
|
for(i=1; i<=nlstate;i++)
|
for(i=1; i<=nlstate;i++)
|
for(j=1; j<=nlstate+ndeath;j++)
|
for(j=1; j<=nlstate+ndeath;j++)
|
fprintf(ficrespij," %.5f", p3mat[i][j][h]);
|
fprintf(ficrespij," %.5f", p3mat[i][j][h]);
|
fprintf(ficrespij,"\n");
|
fprintf(ficrespij,"\n");
|
}
|
}
|
free_ma3x(p3mat,1,nlstate+ndeath,1, nlstate+ndeath, 0,nhstepm);
|
free_ma3x(p3mat,1,nlstate+ndeath,1, nlstate+ndeath, 0,nhstepm);
|
fprintf(ficrespij,"\n");
|
fprintf(ficrespij,"\n");
|
}
|
}
|