SCM

SCM Repository

[matrix] Diff of /pkg/src/Metis_utils.c
ViewVC logotype

Diff of /pkg/src/Metis_utils.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 148, Mon May 3 12:49:17 2004 UTC revision 150, Tue May 4 22:52:19 2004 UTC
# Line 5  Line 5 
5  {  {
6      int  j, num_flag = 0, options_flag = 0;      int  j, num_flag = 0, options_flag = 0;
7      idxtype      idxtype
         *xadj = Calloc(n+1, idxtype),  
         *adj = Calloc(2 * (Tp[n] - n), idxtype),  
8          *perm = Calloc(n, idxtype), /* in case idxtype != int */          *perm = Calloc(n, idxtype), /* in case idxtype != int */
9          *iperm = Calloc(n, idxtype);          *iperm = Calloc(n, idxtype),
10            *xadj = Calloc(n+1, idxtype),
11            *adj = Calloc(2 * (Tp[n] - n), idxtype);
12    
13                                  /* temporarily use perm to store lengths */                                  /* temporarily use perm to store lengths */
14      memset(perm, 0, sizeof(idxtype) * n);      memset(perm, 0, sizeof(idxtype) * n);
# Line 40  Line 40 
40      }      }
41      METIS_NodeND(&n, xadj, adj, &num_flag, &options_flag, perm, iperm);      METIS_NodeND(&n, xadj, adj, &num_flag, &options_flag, perm, iperm);
42      for (j = 0; j < n; j++) {      for (j = 0; j < n; j++) {
43          Perm[i] = (int) perm[i];          Perm[j] = (int) perm[j];
44          iPerm[i] = (int) iperm[i];          iPerm[j] = (int) iperm[j];
45      }      }
46      Free(iperm); Free(perm); Free(xadj); Free(adj);      Free(iperm); Free(perm); Free(xadj); Free(adj);
47  }  }

Legend:
Removed from v.148  
changed lines
  Added in v.150

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge