HYPRE_Int
hypre_SysPFMGDestroy( void *sys_pfmg_vdata )
{
hypre_SysPFMGData *sys_pfmg_data = sys_pfmg_vdata;
HYPRE_Int l;
if (sys_pfmg_data)
{
if ((sys_pfmg_data -> logging) > 0)
{
hypre_TFree(sys_pfmg_data -> norms);
hypre_TFree(sys_pfmg_data -> rel_norms);
}
if ((sys_pfmg_data -> num_levels) > -1)
{
for (l = 0; l < (sys_pfmg_data -> num_levels); l++)
{
hypre_SysPFMGRelaxDestroy(sys_pfmg_data -> relax_data_l[l]);
hypre_SStructPMatvecDestroy(sys_pfmg_data -> matvec_data_l[l]);
}
for (l = 0; l < ((sys_pfmg_data -> num_levels) - 1); l++)
{
hypre_SysSemiRestrictDestroy(sys_pfmg_data -> restrict_data_l[l]);
hypre_SysSemiInterpDestroy(sys_pfmg_data -> interp_data_l[l]);
}
hypre_TFree(sys_pfmg_data -> relax_data_l);
hypre_TFree(sys_pfmg_data -> matvec_data_l);
hypre_TFree(sys_pfmg_data -> restrict_data_l);
hypre_TFree(sys_pfmg_data -> interp_data_l);
hypre_SStructPVectorDestroy(sys_pfmg_data -> tx_l[0]);
/*hypre_SStructPGridDestroy(sys_pfmg_data -> grid_l[0]);*/
hypre_SStructPMatrixDestroy(sys_pfmg_data -> A_l[0]);
hypre_SStructPVectorDestroy(sys_pfmg_data -> b_l[0]);
hypre_SStructPVectorDestroy(sys_pfmg_data -> x_l[0]);
for (l = 0; l < ((sys_pfmg_data -> num_levels) - 1); l++)
{
hypre_SStructPGridDestroy(sys_pfmg_data -> grid_l[l+1]);
hypre_SStructPGridDestroy(sys_pfmg_data -> P_grid_l[l+1]);
hypre_SStructPMatrixDestroy(sys_pfmg_data -> A_l[l+1]);
hypre_SStructPMatrixDestroy(sys_pfmg_data -> P_l[l]);
hypre_SStructPVectorDestroy(sys_pfmg_data -> b_l[l+1]);
hypre_SStructPVectorDestroy(sys_pfmg_data -> x_l[l+1]);
hypre_SStructPVectorDestroy(sys_pfmg_data -> tx_l[l+1]);
}
hypre_SharedTFree(sys_pfmg_data -> data);
hypre_TFree(sys_pfmg_data -> cdir_l);
hypre_TFree(sys_pfmg_data -> active_l);
hypre_TFree(sys_pfmg_data -> grid_l);
hypre_TFree(sys_pfmg_data -> P_grid_l);
hypre_TFree(sys_pfmg_data -> A_l);
hypre_TFree(sys_pfmg_data -> P_l);
hypre_TFree(sys_pfmg_data -> RT_l);
hypre_TFree(sys_pfmg_data -> b_l);
hypre_TFree(sys_pfmg_data -> x_l);
hypre_TFree(sys_pfmg_data -> tx_l);
}
hypre_FinalizeTiming(sys_pfmg_data -> time_index);
hypre_TFree(sys_pfmg_data);
}
return hypre_error_flag;
}
HYPRE_Int
HYPRE_SStructGridDestroy( HYPRE_SStructGrid grid )
{
HYPRE_Int nparts;
hypre_SStructPGrid **pgrids;
HYPRE_Int *nneighbors;
hypre_SStructNeighbor **neighbors;
hypre_Index **nbor_offsets;
HYPRE_Int **nvneighbors;
hypre_SStructNeighbor ***vneighbors;
hypre_SStructCommInfo **vnbor_comm_info;
HYPRE_Int vnbor_ncomms;
HYPRE_Int *fem_nvars;
HYPRE_Int **fem_vars;
hypre_Index **fem_offsets;
hypre_BoxManager ***managers;
hypre_BoxManager ***nbor_managers;
HYPRE_Int nvars;
HYPRE_Int part, var, i;
if (grid)
{
hypre_SStructGridRefCount(grid) --;
if (hypre_SStructGridRefCount(grid) == 0)
{
nparts = hypre_SStructGridNParts(grid);
pgrids = hypre_SStructGridPGrids(grid);
nneighbors = hypre_SStructGridNNeighbors(grid);
neighbors = hypre_SStructGridNeighbors(grid);
nbor_offsets = hypre_SStructGridNborOffsets(grid);
nvneighbors = hypre_SStructGridNVNeighbors(grid);
vneighbors = hypre_SStructGridVNeighbors(grid);
vnbor_comm_info = hypre_SStructGridVNborCommInfo(grid);
vnbor_ncomms = hypre_SStructGridVNborNComms(grid);
fem_nvars = hypre_SStructGridFEMNVars(grid);
fem_vars = hypre_SStructGridFEMVars(grid);
fem_offsets = hypre_SStructGridFEMOffsets(grid);
managers = hypre_SStructGridBoxManagers(grid);
nbor_managers = hypre_SStructGridNborBoxManagers(grid);
for (part = 0; part < nparts; part++)
{
nvars = hypre_SStructPGridNVars(pgrids[part]);
for (var = 0; var < nvars; var++)
{
hypre_TFree(vneighbors[part][var]);
hypre_BoxManDestroy(managers[part][var]);
hypre_BoxManDestroy(nbor_managers[part][var]);
}
hypre_TFree(neighbors[part]);
hypre_TFree(nbor_offsets[part]);
hypre_TFree(nvneighbors[part]);
hypre_TFree(vneighbors[part]);
hypre_SStructPGridDestroy(pgrids[part]);
hypre_TFree(fem_vars[part]);
hypre_TFree(fem_offsets[part]);
hypre_TFree(managers[part]);
hypre_TFree(nbor_managers[part]);
}
for (i = 0; i < vnbor_ncomms; i++)
{
hypre_CommInfoDestroy(
hypre_SStructCommInfoCommInfo(vnbor_comm_info[i]));
hypre_TFree(vnbor_comm_info[i]);
}
hypre_TFree(vnbor_comm_info);
hypre_TFree(pgrids);
hypre_TFree(nneighbors);
hypre_TFree(neighbors);
hypre_TFree(nbor_offsets);
hypre_TFree(fem_nvars);
hypre_TFree(fem_vars);
hypre_TFree(fem_offsets);
hypre_TFree(nvneighbors);
hypre_TFree(vneighbors);
hypre_TFree(vnbor_comm_info);
hypre_TFree(managers);
hypre_TFree(nbor_managers);
hypre_TFree(grid);
}
}
return hypre_error_flag;
}
