stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

SWZ: added missing fclose() occurrences

time-shift
Michel Juillard 2010-07-31 11:20:13 +02:00
parent 15bd597f75
commit 201227ee0c
3 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
matlab/swz/c-code/sbvar/var/VARio.c
View File

@ -701,6 +701,8 @@ void WriteAllParameters(FILE *f, char *filename, char *id, TStateModel *model)
WriteTransitionMatrices(f_in,(char*)NULL,id,model);
Write_VAR_Parameters(f_in,(char*)NULL,id,model);
if(!f) fclose(f_in);
}
/*******************************************************************************/

1
matlab/swz/c-code/sbvar/var/mhm_VAR_main_1.c
View File

@ -513,6 +513,7 @@ int main(int nargs, char **args)
printf("Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies);
printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
fclose(mhm->f_out_regime_counts);
fclose(mhm->f_out);
/* // After modified harmonic mean draws ansi-c*/

1
matlab/swz/c-code/sbvar/var/probabilities.c
View File

@ -130,6 +130,7 @@ int main(int nargs, char **args)
fprintf(f_out,"\n");
}
fclose(f_out);
swzFree(spec);
swzFree(out);
swzFree(head);