The R Project SVN R-packages

Rev

Rev 155 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 155 Rev 1128
Line 18... Line 18...
18 
/*************************************************************************
 18 
/*************************************************************************
19 
* This function computes cuts and balance information
 19 
* This function computes cuts and balance information
20 
**************************************************************************/
 20 
**************************************************************************/
21 
void ComputePartitionInfo(GraphType *graph, int nparts, idxtype *where)
 21 
void ComputePartitionInfo(GraphType *graph, int nparts, idxtype *where)
22 
{
 22 
{
23 
  int i, j, k, nvtxs, ncon, mustfree=0;
 23 
  int i, j/* , k */, nvtxs, ncon, mustfree=0;
24 
  idxtype *xadj, *adjncy, *vwgt, *adjwgt, *kpwgts, *tmpptr;
 24 
  idxtype *xadj, *adjncy, *vwgt, *adjwgt, *kpwgts, *tmpptr;
25 
  idxtype *padjncy, *padjwgt, *padjcut;
 25 
  idxtype *padjncy, *padjwgt, *padjcut;
26 
 
 26 
 
27 
  nvtxs = graph->nvtxs;
 27 
  nvtxs = graph->nvtxs;
28 
  ncon = graph->ncon;
 28 
  ncon = graph->ncon;
Line 127... Line 127...
127 
/*************************************************************************
 127 
/*************************************************************************
128 
* This function computes cuts and balance information
 128 
* This function computes cuts and balance information
129 
**************************************************************************/
 129 
**************************************************************************/
130 
void ComputePartitionInfoBipartite(GraphType *graph, int nparts, idxtype *where)
 130 
void ComputePartitionInfoBipartite(GraphType *graph, int nparts, idxtype *where)
131 
{
 131 
{
132 
  int i, j, k, nvtxs, ncon, mustfree=0;
 132 
  int i, j/* , k */, nvtxs, ncon, mustfree=0;
133 
  idxtype *xadj, *adjncy, *vwgt, *vsize, *adjwgt, *kpwgts, *tmpptr;
 133 
  idxtype *xadj, *adjncy, *vwgt, *vsize, *adjwgt, *kpwgts/* , *tmpptr */;
134 
  idxtype *padjncy, *padjwgt, *padjcut;
 134 
  idxtype *padjncy, *padjwgt, *padjcut;
135 
 
 135 
 
136 
  nvtxs = graph->nvtxs;
 136 
  nvtxs = graph->nvtxs;
137 
  ncon = graph->ncon;
 137 
  ncon = graph->ncon;
138 
  xadj = graph->xadj;
 138 
  xadj = graph->xadj;
Line 234... Line 234...
234 
**************************************************************************/
 234 
**************************************************************************/
235 
void ComputePartitionBalance(GraphType *graph, int nparts, idxtype *where, float *ubvec)
 235 
void ComputePartitionBalance(GraphType *graph, int nparts, idxtype *where, float *ubvec)
236 
{
 236 
{
237 
  int i, j, nvtxs, ncon;
 237 
  int i, j, nvtxs, ncon;
238 
  idxtype *kpwgts, *vwgt;
 238 
  idxtype *kpwgts, *vwgt;
239 
  float balance;
 239 
/*   float balance; */
240 
 
 240 
 
241 
  nvtxs = graph->nvtxs;
 241 
  nvtxs = graph->nvtxs;
242 
  ncon = graph->ncon;
 242 
  ncon = graph->ncon;
243 
  vwgt = graph->vwgt;
 243 
  vwgt = graph->vwgt;
244 
 
 244