Changeset 3085 for inundation/pymetis/metis-4.0/Lib/meshpart.c
- Timestamp:
- Jun 5, 2006, 5:03:48 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
inundation/pymetis/metis-4.0/Lib/meshpart.c
r2051 r3085 31 31 esize = esizes[*etype]; 32 32 33 printf("Inside METIS_PartMeshNodal\n"); 34 33 35 if (*numflag == 1) 34 36 ChangeMesh2CNumbering((*ne)*esize, elmnts); … … 37 39 adjncy = idxmalloc(20*(*nn), "METIS_MESHPARTNODAL: adjncy"); 38 40 41 printf("Calling METIS_MeshToNodal\n"); 39 42 METIS_MeshToNodal(ne, nn, elmnts, etype, &pnumflag, xadj, adjncy); 40 43 printf("After METIS_MeshToNodal\n"); 44 41 45 adjncy = realloc(adjncy, xadj[*nn]*sizeof(idxtype)); 42 46 43 47 options[0] = 0; 48 printf("Calling METIS_PartGraphKway\n"); 44 49 METIS_PartGraphKway(nn, xadj, adjncy, NULL, NULL, &wgtflag, &pnumflag, nparts, options, edgecut, npart); 45 50 46 51 /* OK, now compute an element partition based on the nodal partition npart */ 52 printf("Starting loop 1\n"); 47 53 idxset(*ne, -1, epart); 48 54 pwgts = idxsmalloc(*nparts, 0, "METIS_MESHPARTNODAL: pwgts"); … … 59 65 } 60 66 67 printf("Starting loop 2\n"); 61 68 maxpwgt = 1.03*(*ne)/(*nparts); 62 69 for (i=0; i<*ne; i++) { … … 96 103 } 97 104 105 printf("ChangeMesh2FNumbering2\n"); 98 106 if (*numflag == 1) 99 107 ChangeMesh2FNumbering2((*ne)*esize, elmnts, *ne, *nn, epart, npart); 100 108 109 printf("Free\n"); 101 110 GKfree(&xadj, &adjncy, &pwgts, LTERM); 111 printf("Done\n"); 102 112 103 113 }
Note: See TracChangeset
for help on using the changeset viewer.