/*************************************************************************
* This function is the entry point of the separator refinement
**************************************************************************/
void Refine2WayNode(CtrlType *ctrl, GraphType *orggraph, GraphType *graph, float ubfactor)
{
IFSET(ctrl->dbglvl, DBG_TIME, starttimer(ctrl->UncoarsenTmr));
for (;;) {
IFSET(ctrl->dbglvl, DBG_TIME, starttimer(ctrl->RefTmr));
if (ctrl->RType != 15)
FM_2WayNodeBalance(ctrl, graph, ubfactor);
switch (ctrl->RType) {
case 1:
FM_2WayNodeRefine(ctrl, graph, ubfactor, 8);
break;
case 2:
FM_2WayNodeRefine_OneSided(ctrl, graph, ubfactor, 8);
break;
case 3:
FM_2WayNodeRefine(ctrl, graph, ubfactor, 8);
FM_2WayNodeRefine_OneSided(ctrl, graph, ubfactor, 8);
break;
case 4:
FM_2WayNodeRefine_OneSided(ctrl, graph, ubfactor, 8);
FM_2WayNodeRefine(ctrl, graph, ubfactor, 8);
break;
case 5:
FM_2WayNodeRefineEqWgt(ctrl, graph, 8);
break;
}
IFSET(ctrl->dbglvl, DBG_TIME, stoptimer(ctrl->RefTmr));
if (graph == orggraph)
break;
graph = graph->finer;
IFSET(ctrl->dbglvl, DBG_TIME, starttimer(ctrl->ProjectTmr));
Project2WayNodePartition(ctrl, graph);
IFSET(ctrl->dbglvl, DBG_TIME, stoptimer(ctrl->ProjectTmr));
}
IFSET(ctrl->dbglvl, DBG_TIME, stoptimer(ctrl->UncoarsenTmr));
}
void Refine2WayNode(ctrl_t *ctrl, graph_t *orggraph, graph_t *graph)
{
IFSET(ctrl->dbglvl, METIS_DBG_TIME, gk_startcputimer(ctrl->UncoarsenTmr));
if (graph == orggraph) {
Compute2WayNodePartitionParams(ctrl, graph);
}
else {
do {
graph = graph->finer;
IFSET(ctrl->dbglvl, METIS_DBG_TIME, gk_startcputimer(ctrl->ProjectTmr));
Project2WayNodePartition(ctrl, graph);
IFSET(ctrl->dbglvl, METIS_DBG_TIME, gk_stopcputimer(ctrl->ProjectTmr));
IFSET(ctrl->dbglvl, METIS_DBG_TIME, gk_startcputimer(ctrl->RefTmr));
FM_2WayNodeBalance(ctrl, graph);
ASSERT(CheckNodePartitionParams(graph));
switch (ctrl->rtype) {
case METIS_RTYPE_SEP2SIDED:
FM_2WayNodeRefine2Sided(ctrl, graph, ctrl->niter);
break;
case METIS_RTYPE_SEP1SIDED:
FM_2WayNodeRefine1Sided(ctrl, graph, ctrl->niter);
break;
default:
gk_errexit(SIGERR, "Unknown rtype of %d\n", ctrl->rtype);
}
IFSET(ctrl->dbglvl, METIS_DBG_TIME, gk_stopcputimer(ctrl->RefTmr));
} while (graph != orggraph);
}
IFSET(ctrl->dbglvl, METIS_DBG_TIME, gk_stopcputimer(ctrl->UncoarsenTmr));
}
