SWZ: added missing fclose() occurrences
parent
15bd597f75
commit
201227ee0c
|
@ -701,6 +701,8 @@ void WriteAllParameters(FILE *f, char *filename, char *id, TStateModel *model)
|
||||||
|
|
||||||
WriteTransitionMatrices(f_in,(char*)NULL,id,model);
|
WriteTransitionMatrices(f_in,(char*)NULL,id,model);
|
||||||
Write_VAR_Parameters(f_in,(char*)NULL,id,model);
|
Write_VAR_Parameters(f_in,(char*)NULL,id,model);
|
||||||
|
|
||||||
|
if(!f) fclose(f_in);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*******************************************************************************/
|
/*******************************************************************************/
|
||||||
|
|
|
@ -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 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());
|
printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
|
||||||
|
|
||||||
|
fclose(mhm->f_out_regime_counts);
|
||||||
fclose(mhm->f_out);
|
fclose(mhm->f_out);
|
||||||
|
|
||||||
/* // After modified harmonic mean draws ansi-c*/
|
/* // After modified harmonic mean draws ansi-c*/
|
||||||
|
|
|
@ -130,6 +130,7 @@ int main(int nargs, char **args)
|
||||||
fprintf(f_out,"\n");
|
fprintf(f_out,"\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
fclose(f_out);
|
||||||
swzFree(spec);
|
swzFree(spec);
|
||||||
swzFree(out);
|
swzFree(out);
|
||||||
swzFree(head);
|
swzFree(head);
|
||||||
|
|
Loading…
Reference in New Issue