void free_tree_table(enum Valid_TreeTypes my_TreeType)
{
int n;
for(n = NOUT - 1; n >= 0; n--)
myfree(TreeNgals[n]);
myfree(TreeFirstHalo);
myfree(TreeNHalos);
// Don't forget to free the open file handle
switch (my_TreeType)
{
#ifdef HDF5
case genesis_lhalo_hdf5:
close_hdf5_file();
break;
#endif
case lhalo_binary:
close_binary_file();
break;
default:
fprintf(stderr, "Your tree type has not been included in the switch statement for ``load_tree_table`` in ``core_io_tree.c``.\n");
fprintf(stderr, "Please add it there.\n");
ABORT(EXIT_FAILURE);
}
}
void close_hdf5_file_(int *iun)
{
/* Fortran interface to the function "close_hdf5_file".
We add an underscore at the end of the function name. */
close_hdf5_file(iun);
}
