1 #include <petsc/private/partitionerimpl.h> /*I "petscpartitioner.h" I*/ 2 3 typedef struct { 4 PetscSection section; /* Sizes for each partition */ 5 IS partition; /* Points in each partition */ 6 PetscBool random; /* Flag for a random partition */ 7 } PetscPartitioner_Shell; 8 9 static PetscErrorCode PetscPartitionerReset_Shell(PetscPartitioner part) 10 { 11 PetscPartitioner_Shell *p = (PetscPartitioner_Shell *) part->data; 12 13 PetscFunctionBegin; 14 CHKERRQ(PetscSectionDestroy(&p->section)); 15 CHKERRQ(ISDestroy(&p->partition)); 16 PetscFunctionReturn(0); 17 } 18 19 static PetscErrorCode PetscPartitionerDestroy_Shell(PetscPartitioner part) 20 { 21 PetscFunctionBegin; 22 CHKERRQ(PetscPartitionerReset_Shell(part)); 23 CHKERRQ(PetscFree(part->data)); 24 PetscFunctionReturn(0); 25 } 26 27 static PetscErrorCode PetscPartitionerView_Shell_ASCII(PetscPartitioner part, PetscViewer viewer) 28 { 29 PetscPartitioner_Shell *p = (PetscPartitioner_Shell *) part->data; 30 31 PetscFunctionBegin; 32 if (p->random) { 33 CHKERRQ(PetscViewerASCIIPushTab(viewer)); 34 CHKERRQ(PetscViewerASCIIPrintf(viewer, "using random partition\n")); 35 CHKERRQ(PetscViewerASCIIPopTab(viewer)); 36 } 37 PetscFunctionReturn(0); 38 } 39 40 static PetscErrorCode PetscPartitionerView_Shell(PetscPartitioner part, PetscViewer viewer) 41 { 42 PetscBool iascii; 43 44 PetscFunctionBegin; 45 PetscValidHeaderSpecific(part, PETSCPARTITIONER_CLASSID, 1); 46 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 2); 47 CHKERRQ(PetscObjectTypeCompare((PetscObject) viewer, PETSCVIEWERASCII, &iascii)); 48 if (iascii) CHKERRQ(PetscPartitionerView_Shell_ASCII(part, viewer)); 49 PetscFunctionReturn(0); 50 } 51 52 static PetscErrorCode PetscPartitionerSetFromOptions_Shell(PetscOptionItems *PetscOptionsObject, PetscPartitioner part) 53 { 54 PetscBool random = PETSC_FALSE, set; 55 56 PetscFunctionBegin; 57 CHKERRQ(PetscOptionsHead(PetscOptionsObject, "PetscPartitioner Shell Options")); 58 CHKERRQ(PetscPartitionerShellGetRandom(part, &random)); 59 CHKERRQ(PetscOptionsBool("-petscpartitioner_shell_random", "Use a random partition", "PetscPartitionerView", PETSC_FALSE, &random, &set)); 60 if (set) CHKERRQ(PetscPartitionerShellSetRandom(part, random)); 61 CHKERRQ(PetscOptionsTail()); 62 PetscFunctionReturn(0); 63 } 64 65 static PetscErrorCode PetscPartitionerPartition_Shell(PetscPartitioner part, PetscInt nparts, PetscInt numVertices, PetscInt start[], PetscInt adjacency[], PetscSection vertSection, PetscSection targetSection, PetscSection partSection, IS *partition) 66 { 67 PetscPartitioner_Shell *p = (PetscPartitioner_Shell *) part->data; 68 PetscInt np; 69 70 PetscFunctionBegin; 71 if (p->random) { 72 PetscRandom r; 73 PetscInt *sizes, *points, v, p; 74 PetscMPIInt rank; 75 76 CHKERRMPI(MPI_Comm_rank(PetscObjectComm((PetscObject) part), &rank)); 77 CHKERRQ(PetscRandomCreate(PETSC_COMM_SELF, &r)); 78 CHKERRQ(PetscRandomSetInterval(r, 0.0, (PetscScalar) nparts)); 79 CHKERRQ(PetscRandomSetFromOptions(r)); 80 CHKERRQ(PetscCalloc2(nparts, &sizes, numVertices, &points)); 81 for (v = 0; v < numVertices; ++v) {points[v] = v;} 82 for (p = 0; p < nparts; ++p) {sizes[p] = numVertices/nparts + (PetscInt) (p < numVertices % nparts);} 83 for (v = numVertices-1; v > 0; --v) { 84 PetscReal val; 85 PetscInt w, tmp; 86 87 CHKERRQ(PetscRandomSetInterval(r, 0.0, (PetscScalar) (v+1))); 88 CHKERRQ(PetscRandomGetValueReal(r, &val)); 89 w = PetscFloorReal(val); 90 tmp = points[v]; 91 points[v] = points[w]; 92 points[w] = tmp; 93 } 94 CHKERRQ(PetscRandomDestroy(&r)); 95 CHKERRQ(PetscPartitionerShellSetPartition(part, nparts, sizes, points)); 96 CHKERRQ(PetscFree2(sizes, points)); 97 } 98 PetscCheck(p->section,PetscObjectComm((PetscObject) part), PETSC_ERR_ARG_WRONG, "Shell partitioner information not provided. Please call PetscPartitionerShellSetPartition()"); 99 CHKERRQ(PetscSectionGetChart(p->section, NULL, &np)); 100 PetscCheckFalse(nparts != np,PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Number of requested partitions %d != configured partitions %d", nparts, np); 101 CHKERRQ(ISGetLocalSize(p->partition, &np)); 102 PetscCheckFalse(numVertices != np,PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Number of input vertices %d != configured vertices %d", numVertices, np); 103 CHKERRQ(PetscSectionCopy(p->section, partSection)); 104 *partition = p->partition; 105 CHKERRQ(PetscObjectReference((PetscObject) p->partition)); 106 PetscFunctionReturn(0); 107 } 108 109 static PetscErrorCode PetscPartitionerInitialize_Shell(PetscPartitioner part) 110 { 111 PetscFunctionBegin; 112 part->noGraph = PETSC_TRUE; /* PetscPartitionerShell cannot overload the partition call, so it is safe for now */ 113 part->ops->view = PetscPartitionerView_Shell; 114 part->ops->setfromoptions = PetscPartitionerSetFromOptions_Shell; 115 part->ops->reset = PetscPartitionerReset_Shell; 116 part->ops->destroy = PetscPartitionerDestroy_Shell; 117 part->ops->partition = PetscPartitionerPartition_Shell; 118 PetscFunctionReturn(0); 119 } 120 121 /*MC 122 PETSCPARTITIONERSHELL = "shell" - A PetscPartitioner object 123 124 Level: intermediate 125 126 Options Database Keys: 127 . -petscpartitioner_shell_random - Use a random partition 128 129 .seealso: PetscPartitionerType, PetscPartitionerCreate(), PetscPartitionerSetType() 130 M*/ 131 132 PETSC_EXTERN PetscErrorCode PetscPartitionerCreate_Shell(PetscPartitioner part) 133 { 134 PetscPartitioner_Shell *p; 135 136 PetscFunctionBegin; 137 PetscValidHeaderSpecific(part, PETSCPARTITIONER_CLASSID, 1); 138 CHKERRQ(PetscNewLog(part, &p)); 139 part->data = p; 140 141 CHKERRQ(PetscPartitionerInitialize_Shell(part)); 142 p->random = PETSC_FALSE; 143 PetscFunctionReturn(0); 144 } 145 146 /*@C 147 PetscPartitionerShellSetPartition - Set an artifical partition for a mesh 148 149 Collective on PetscPartitioner 150 151 Input Parameters: 152 + part - The PetscPartitioner 153 . size - The number of partitions 154 . sizes - array of length size (or NULL) providing the number of points in each partition 155 - points - array of length sum(sizes) (may be NULL iff sizes is NULL), a permutation of the points that groups those assigned to each partition in order (i.e., partition 0 first, partition 1 next, etc.) 156 157 Level: developer 158 159 Notes: 160 It is safe to free the sizes and points arrays after use in this routine. 161 162 .seealso DMPlexDistribute(), PetscPartitionerCreate() 163 @*/ 164 PetscErrorCode PetscPartitionerShellSetPartition(PetscPartitioner part, PetscInt size, const PetscInt sizes[], const PetscInt points[]) 165 { 166 PetscPartitioner_Shell *p = (PetscPartitioner_Shell *) part->data; 167 PetscInt proc, numPoints; 168 169 PetscFunctionBegin; 170 PetscValidHeaderSpecificType(part, PETSCPARTITIONER_CLASSID, 1, PETSCPARTITIONERSHELL); 171 if (sizes) {PetscValidIntPointer(sizes, 3);} 172 if (points) {PetscValidIntPointer(points, 4);} 173 CHKERRQ(PetscSectionDestroy(&p->section)); 174 CHKERRQ(ISDestroy(&p->partition)); 175 CHKERRQ(PetscSectionCreate(PetscObjectComm((PetscObject) part), &p->section)); 176 CHKERRQ(PetscSectionSetChart(p->section, 0, size)); 177 if (sizes) { 178 for (proc = 0; proc < size; ++proc) { 179 CHKERRQ(PetscSectionSetDof(p->section, proc, sizes[proc])); 180 } 181 } 182 CHKERRQ(PetscSectionSetUp(p->section)); 183 CHKERRQ(PetscSectionGetStorageSize(p->section, &numPoints)); 184 CHKERRQ(ISCreateGeneral(PetscObjectComm((PetscObject) part), numPoints, points, PETSC_COPY_VALUES, &p->partition)); 185 PetscFunctionReturn(0); 186 } 187 188 /*@ 189 PetscPartitionerShellSetRandom - Set the flag to use a random partition 190 191 Collective on PetscPartitioner 192 193 Input Parameters: 194 + part - The PetscPartitioner 195 - random - The flag to use a random partition 196 197 Level: intermediate 198 199 .seealso PetscPartitionerShellGetRandom(), PetscPartitionerCreate() 200 @*/ 201 PetscErrorCode PetscPartitionerShellSetRandom(PetscPartitioner part, PetscBool random) 202 { 203 PetscPartitioner_Shell *p = (PetscPartitioner_Shell *) part->data; 204 205 PetscFunctionBegin; 206 PetscValidHeaderSpecificType(part, PETSCPARTITIONER_CLASSID, 1, PETSCPARTITIONERSHELL); 207 p->random = random; 208 PetscFunctionReturn(0); 209 } 210 211 /*@ 212 PetscPartitionerShellGetRandom - get the flag to use a random partition 213 214 Collective on PetscPartitioner 215 216 Input Parameter: 217 . part - The PetscPartitioner 218 219 Output Parameter: 220 . random - The flag to use a random partition 221 222 Level: intermediate 223 224 .seealso PetscPartitionerShellSetRandom(), PetscPartitionerCreate() 225 @*/ 226 PetscErrorCode PetscPartitionerShellGetRandom(PetscPartitioner part, PetscBool *random) 227 { 228 PetscPartitioner_Shell *p = (PetscPartitioner_Shell *) part->data; 229 230 PetscFunctionBegin; 231 PetscValidHeaderSpecificType(part, PETSCPARTITIONER_CLASSID, 1, PETSCPARTITIONERSHELL); 232 PetscValidBoolPointer(random, 2); 233 *random = p->random; 234 PetscFunctionReturn(0); 235 } 236