/* 
  * Copyright 1997, Regents of the University of Minnesota 
  * 
  * mrefine2.c 
  * 
  * This file contains the driving routines for multilevel refinement 
  * 
  * Started 7/24/97 
  * George 
  * 
  * $Id: mrefine2.c,v 1.1 1998/11/27 17:59:26 karypis Exp $ 
  */ 

 #include <metis.h> 


 /************************************************************************* 
 * This function is the entry point of refinement 
 **************************************************************************/ 
 void MocRefine2Way2(CtrlType *ctrl, GraphType *orggraph, GraphType *graph, float *tpwgts,  
        float *ubvec) 
 { 

   IFSET(ctrl->dbglvl, DBG_TIME, starttimer(ctrl->UncoarsenTmr)); 

   /* Compute the parameters of the coarsest graph */ 
   MocCompute2WayPartitionParams(ctrl, graph); 

   for (;;) { 
     ASSERT(CheckBnd(graph)); 

     IFSET(ctrl->dbglvl, DBG_TIME, starttimer(ctrl->RefTmr)); 
     switch (ctrl->RType) { 
       case RTYPE_FM: 
         MocBalance2Way2(ctrl, graph, tpwgts, ubvec); 
         MocFM_2WayEdgeRefine2(ctrl, graph, tpwgts, ubvec, 8);  
         break; 
       default: 
         errexit("Unknown refinement type: %ld\n", ctrl->RType); 
     } 
     IFSET(ctrl->dbglvl, DBG_TIME, stoptimer(ctrl->RefTmr)); 

     if (graph == orggraph) 
       break; 

     graph = graph->finer; 
     IFSET(ctrl->dbglvl, DBG_TIME, starttimer(ctrl->ProjectTmr)); 
     MocProject2WayPartition(ctrl, graph); 
     IFSET(ctrl->dbglvl, DBG_TIME, stoptimer(ctrl->ProjectTmr)); 
   } 

   IFSET(ctrl->dbglvl, DBG_TIME, stoptimer(ctrl->UncoarsenTmr)); 
 }