/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c

Bug Summary

File:	dm/label/dmlabel.c
Warning:	line 1800, column 70 Access to field 'defaultValue' results in a dereference of a null pointer (loaded from variable 'label')

Annotated Source Code

[?] Use j/k keys for keyboard navigation

#include <petscdm.h>

#include <petsc/private/dmlabelimpl.h> /*I "petscdmlabel.h" I*/

#include <petsc/private/isimpl.h> /*I "petscis.h" I*/

#include <petscsf.h>

/*@C

DMLabelCreate - Create a DMLabel object, which is a multimap

Input parameters:

+ comm - The communicator, usually PETSC_COMM_SELF

- name - The label name

Output parameter:

. label - The DMLabel

Level: beginner

.seealso: DMLabelDestroy()

@*/

PetscErrorCode DMLabelCreate(MPI_Comm comm, const char name[], DMLabel *label)

{

PetscErrorCode ierr;

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 24; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

PetscValidPointer(label,2)do { if (!label) return PetscError(((MPI_Comm)0x44000001),25,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",2); if
(!PetscCheckPointer(label,PETSC_CHAR)) return PetscError(((MPI_Comm
)0x44000001),25,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",2);
} while (0);

ierr = DMInitializePackage();CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),26,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscHeaderCreate(*label,DMLABEL_CLASSID,"DMLabel","DMLabel","DM",comm,DMLabelDestroy,DMLabelView)(PetscMallocA(1,PETSC_TRUE,28,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(1)*sizeof(**((&(*label)))),((&(*label)))) ||
PetscHeaderCreate_Private((PetscObject)*label,DMLABEL_CLASSID
,"DMLabel","DMLabel","DM",comm,(PetscObjectDestroyFunction)DMLabelDestroy
,(PetscObjectViewFunction)DMLabelView) || ((PetscLogPHC) ? (*
PetscLogPHC)((PetscObject)(*label)) : 0) || PetscLogObjectMemory
((PetscObject)*label,sizeof(*(*label))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),28,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

(*label)->numStrata = 0;

(*label)->defaultValue = -1;

(*label)->stratumValues = NULL((void*)0);

(*label)->validIS = NULL((void*)0);

(*label)->stratumSizes = NULL((void*)0);

(*label)->points = NULL((void*)0);

(*label)->ht = NULL((void*)0);

(*label)->pStart = -1;

(*label)->pEnd = -1;

(*label)->bt = NULL((void*)0);

ierr = PetscHMapICreate(&(*label)->hmap);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),40,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscObjectSetName((PetscObject) *label, name);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),41,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

}

DMLabelMakeValid_Private - Transfer stratum data from the hash format to the sorted list format

Input parameter:

+ label - The DMLabel

- v - The stratum value

Output parameter:

. label - The DMLabel with stratum in sorted list format

Level: developer

.seealso: DMLabelCreate()

static PetscErrorCode DMLabelMakeValid_Private(DMLabel label, PetscInt v)

{

PetscInt off = 0, *pointArray, p;

PetscErrorCode ierr;

if (PetscLikely(v >= 0 && v < label->numStrata)__builtin_expect(!!(v >= 0 && v < label->numStrata
),1) && label->validIS[v]) return 0;

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 65; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

if (v < 0 || v >= label->numStrata) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Trying to access invalid stratum %D in DMLabelMakeValid_Private\n", v)return PetscError(((MPI_Comm)0x44000001),66,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,62,PETSC_ERROR_INITIAL,"Trying to access invalid stratum %D in DMLabelMakeValid_Private\n"
,v);

ierr = PetscHSetIGetSize(label->ht[v], &label->stratumSizes[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),67,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscMalloc1(label->stratumSizes[v], &pointArray)PetscMallocA(1,PETSC_FALSE,68,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(label->stratumSizes[v])*sizeof(**(&pointArray
)),(&pointArray));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),68,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscHSetIGetElems(label->ht[v], &off, pointArray);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),69,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscHSetIClear(label->ht[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),70,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscSortInt(label->stratumSizes[v], pointArray);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),71,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

if (label->bt) {

for (p = 0; p < label->stratumSizes[v]; ++p) {

const PetscInt point = pointArray[p];

if ((point < label->pStart) || (point >= label->pEnd)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Label point %D is not in [%D, %D)", point, label->pStart, label->pEnd)return PetscError(((MPI_Comm)0x44000001),75,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"Label point %D is not in [%D, %D)",point
,label->pStart,label->pEnd);

ierr = PetscBTSet(label->bt, point - label->pStart);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),76,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

}

ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001),label->stratumSizes[v],pointArray,PETSC_OWN_POINTER,&(label->points[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),79,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscObjectSetName((PetscObject) (label->points[v]), "indices");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),80,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

label->validIS[v] = PETSC_TRUE;

ierr = PetscObjectStateIncrease((PetscObject) label)(((PetscObject) label)->state++,0);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),82,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

}

DMLabelMakeAllValid_Private - Transfer all strata from the hash format to the sorted list format

Input parameter:

. label - The DMLabel

Output parameter:

. label - The DMLabel with all strata in sorted list format

Level: developer

.seealso: DMLabelCreate()

static PetscErrorCode DMLabelMakeAllValid_Private(DMLabel label)

100

{

101

PetscInt v;

102

PetscErrorCode ierr;

103

104

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 104; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

105

for (v = 0; v < label->numStrata; v++){

106

ierr = DMLabelMakeValid_Private(label, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),106,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

107

}

108

109

}

110

111

112

DMLabelMakeInvalid_Private - Transfer stratum data from the sorted list format to the hash format

113

114

Input parameter:

115

+ label - The DMLabel

116

- v - The stratum value

117

118

Output parameter:

119

. label - The DMLabel with stratum in hash format

120

121

Level: developer

122

123

.seealso: DMLabelCreate()

124

125

static PetscErrorCode DMLabelMakeInvalid_Private(DMLabel label, PetscInt v)

126

{

127

PetscInt p;

128

const PetscInt *points;

129

PetscErrorCode ierr;

130

131

if (PetscLikely(v >= 0 && v < label->numStrata)__builtin_expect(!!(v >= 0 && v < label->numStrata
),1) && !label->validIS[v]) return 0;

132

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 132; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

133

if (v < 0 || v >= label->numStrata) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Trying to access invalid stratum %D in DMLabelMakeInvalid_Private\n", v)return PetscError(((MPI_Comm)0x44000001),133,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,62,PETSC_ERROR_INITIAL,"Trying to access invalid stratum %D in DMLabelMakeInvalid_Private\n"
,v);

134

if (label->points[v]) {

135

ierr = ISGetIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),135,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

136

for (p = 0; p < label->stratumSizes[v]; ++p) {

137

ierr = PetscHSetIAdd(label->ht[v], points[p]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),137,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

138

}

139

ierr = ISRestoreIndices(label->points[v],&points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),139,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

140

ierr = ISDestroy(&(label->points[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),140,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

141

}

142

label->validIS[v] = PETSC_FALSE;

143

144

}

145

146

#if !defined(DMLABEL_LOOKUP_THRESHOLD16)

147

#define DMLABEL_LOOKUP_THRESHOLD16 16

148

#endif

149

150

PETSC_STATIC_INLINEstatic inline PetscErrorCode DMLabelLookupStratum(DMLabel label, PetscInt value, PetscInt *index)

151

{

152

PetscInt v;

153

PetscErrorCode ierr;

154

155

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 155; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

156

*index = -1;

157

if (label->numStrata <= DMLABEL_LOOKUP_THRESHOLD16) {

158

for (v = 0; v < label->numStrata; ++v)

159

if (label->stratumValues[v] == value) {*index = v; break;}

160

} else {

161

ierr = PetscHMapIGet(label->hmap, value, index);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),161,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

162

}

163

#if defined(PETSC_USE_DEBUG1)

164

{ /* Check strata hash map consistency */

165

PetscInt len, loc = -1;

166

ierr = PetscHMapIGetSize(label->hmap, &len);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),166,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

167

if (len != label->numStrata) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Inconsistent strata hash map size")return PetscError(((MPI_Comm)0x44000001),167,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,77,PETSC_ERROR_INITIAL,"Inconsistent strata hash map size");

168

if (label->numStrata <= DMLABEL_LOOKUP_THRESHOLD16) {

169

ierr = PetscHMapIGet(label->hmap, value, &loc);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),169,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

170

} else {

171

for (v = 0; v < label->numStrata; ++v)

172

if (label->stratumValues[v] == value) {loc = v; break;}

173

}

174

if (loc != *index) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_PLIB, "Inconsistent strata hash map lookup")return PetscError(((MPI_Comm)0x44000001),174,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,77,PETSC_ERROR_INITIAL,"Inconsistent strata hash map lookup"
);

175

}

176

#endif

177

178

}

179

180

PETSC_STATIC_INLINEstatic inline PetscErrorCode DMLabelNewStratum(DMLabel label, PetscInt value, PetscInt *index)

181

{

182

PetscInt v;

183

PetscInt *tmpV;

184

PetscInt *tmpS;

185

PetscHSetI *tmpH, ht;

186

IS *tmpP, is;

187

PetscBool *tmpB;

188

PetscHMapI hmap = label->hmap;

189

PetscErrorCode ierr;

190

191

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 191; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

192

v = label->numStrata;

193

tmpV = label->stratumValues;

194

tmpS = label->stratumSizes;

195

tmpH = label->ht;

196

tmpP = label->points;

197

tmpB = label->validIS;

198

{ /* TODO: PetscRealloc() is broken, use malloc+memcpy+free */

199

PetscInt *oldV = tmpV;

200

PetscInt *oldS = tmpS;

201

PetscHSetI *oldH = tmpH;

202

IS *oldP = tmpP;

203

PetscBool *oldB = tmpB;

204

ierr = PetscMalloc((v+1)*sizeof(*tmpV), &tmpV)((*PetscTrMalloc)(((v+1)*sizeof(*tmpV)),204,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(void**)(&tmpV)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),204,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

205

ierr = PetscMalloc((v+1)*sizeof(*tmpS), &tmpS)((*PetscTrMalloc)(((v+1)*sizeof(*tmpS)),205,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(void**)(&tmpS)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),205,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

206

ierr = PetscMalloc((v+1)*sizeof(*tmpH), &tmpH)((*PetscTrMalloc)(((v+1)*sizeof(*tmpH)),206,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(void**)(&tmpH)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),206,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

207

ierr = PetscMalloc((v+1)*sizeof(*tmpP), &tmpP)((*PetscTrMalloc)(((v+1)*sizeof(*tmpP)),207,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(void**)(&tmpP)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),207,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

208

ierr = PetscMalloc((v+1)*sizeof(*tmpB), &tmpB)((*PetscTrMalloc)(((v+1)*sizeof(*tmpB)),208,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(void**)(&tmpB)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),208,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

209

ierr = PetscMemcpy(tmpV, oldV, v*sizeof(*tmpV));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),209,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

210

ierr = PetscMemcpy(tmpS, oldS, v*sizeof(*tmpS));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),210,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

211

ierr = PetscMemcpy(tmpH, oldH, v*sizeof(*tmpH));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),211,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

212

ierr = PetscMemcpy(tmpP, oldP, v*sizeof(*tmpP));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),212,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

213

ierr = PetscMemcpy(tmpB, oldB, v*sizeof(*tmpB));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),213,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

214

ierr = PetscFree(oldV)((*PetscTrFree)((void*)(oldV),214,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((oldV) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),214,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

215

ierr = PetscFree(oldS)((*PetscTrFree)((void*)(oldS),215,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((oldS) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),215,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

216

ierr = PetscFree(oldH)((*PetscTrFree)((void*)(oldH),216,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((oldH) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),216,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

217

ierr = PetscFree(oldP)((*PetscTrFree)((void*)(oldP),217,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((oldP) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),217,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

218

ierr = PetscFree(oldB)((*PetscTrFree)((void*)(oldB),218,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((oldB) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),218,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

219

}

220

label->numStrata = v+1;

221

label->stratumValues = tmpV;

222

label->stratumSizes = tmpS;

223

label->ht = tmpH;

224

label->points = tmpP;

225

label->validIS = tmpB;

226

ierr = PetscHSetICreate(&ht);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),226,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

227

ierr = ISCreateStride(PETSC_COMM_SELF((MPI_Comm)0x44000001),0,0,1,&is);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),227,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

228

ierr = PetscHMapISet(hmap, value, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),228,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

229

tmpV[v] = value;

230

tmpS[v] = 0;

231

tmpH[v] = ht;

232

tmpP[v] = is;

233

tmpB[v] = PETSC_TRUE;

234

*index = v;

235

236

}

237

238

PETSC_STATIC_INLINEstatic inline PetscErrorCode DMLabelLookupAddStratum(DMLabel label, PetscInt value, PetscInt *index)

239

{

240

PetscErrorCode ierr;

241

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 241; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

242

ierr = DMLabelLookupStratum(label, value, index);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),242,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

243

if (*index < 0) {ierr = DMLabelNewStratum(label, value, index);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),243,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

244

245

}

246

247

/*@

248

DMLabelAddStratum - Adds a new stratum value in a DMLabel

249

250

Input Parameter:

251

+ label - The DMLabel

252

- value - The stratum value

253

254

Level: beginner

255

256

.seealso: DMLabelCreate(), DMLabelDestroy()

257

@*/

258

PetscErrorCode DMLabelAddStratum(DMLabel label, PetscInt value)

259

{

260

PetscInt v;

261

PetscErrorCode ierr;

262

263

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 263; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

264

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),264
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),264,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),264,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),264,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

265

ierr = DMLabelLookupAddStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),265,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

266

267

}

268

269

/*@

270

DMLabelAddStrata - Adds new stratum values in a DMLabel

271

272

Input Parameter:

273

+ label - The DMLabel

274

. numStrata - The number of stratum values

275

- stratumValues - The stratum values

276

277

Level: beginner

278

279

.seealso: DMLabelCreate(), DMLabelDestroy()

280

@*/

281

PetscErrorCode DMLabelAddStrata(DMLabel label, PetscInt numStrata, const PetscInt stratumValues[])

282

{

283

PetscInt *values, v;

284

PetscErrorCode ierr;

285

286

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 286; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

287

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),287
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),287,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

288

if (numStrata) PetscValidIntPointer(stratumValues, 3)do { if (!stratumValues) return PetscError(((MPI_Comm)0x44000001
),288,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(stratumValues,PETSC_INT)) return PetscError
(((MPI_Comm)0x44000001),288,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer to Int: Parameter # %d"
,3); } while (0);

289

ierr = PetscMalloc1(numStrata, &values)PetscMallocA(1,PETSC_FALSE,289,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(numStrata)*sizeof(**(&values)),(&values));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),289,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

290

ierr = PetscMemcpy(values, stratumValues, numStrata*sizeof(PetscInt));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),290,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

291

ierr = PetscSortRemoveDupsInt(&numStrata, values);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),291,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

292

if (!label->numStrata) { /* Fast preallocation */

293

PetscInt *tmpV;

294

PetscInt *tmpS;

295

PetscHSetI *tmpH, ht;

296

IS *tmpP, is;

297

PetscBool *tmpB;

298

PetscHMapI hmap = label->hmap;

299

300

ierr = PetscMalloc1(numStrata, &tmpV)PetscMallocA(1,PETSC_FALSE,300,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(numStrata)*sizeof(**(&tmpV)),(&tmpV));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),300,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

301

ierr = PetscMalloc1(numStrata, &tmpS)PetscMallocA(1,PETSC_FALSE,301,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(numStrata)*sizeof(**(&tmpS)),(&tmpS));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),301,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

302

ierr = PetscMalloc1(numStrata, &tmpH)PetscMallocA(1,PETSC_FALSE,302,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(numStrata)*sizeof(**(&tmpH)),(&tmpH));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),302,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

303

ierr = PetscMalloc1(numStrata, &tmpP)PetscMallocA(1,PETSC_FALSE,303,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(numStrata)*sizeof(**(&tmpP)),(&tmpP));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),303,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

304

ierr = PetscMalloc1(numStrata, &tmpB)PetscMallocA(1,PETSC_FALSE,304,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(numStrata)*sizeof(**(&tmpB)),(&tmpB));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),304,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

305

label->numStrata = numStrata;

306

label->stratumValues = tmpV;

307

label->stratumSizes = tmpS;

308

label->ht = tmpH;

309

label->points = tmpP;

310

label->validIS = tmpB;

311

for (v = 0; v < numStrata; ++v) {

312

ierr = PetscHSetICreate(&ht);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),312,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

313

ierr = ISCreateStride(PETSC_COMM_SELF((MPI_Comm)0x44000001),0,0,1,&is);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),313,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

314

ierr = PetscHMapISet(hmap, values[v], v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),314,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

315

tmpV[v] = values[v];

316

tmpS[v] = 0;

317

tmpH[v] = ht;

318

tmpP[v] = is;

319

tmpB[v] = PETSC_TRUE;

320

}

321

} else {

322

for (v = 0; v < numStrata; ++v) {

323

ierr = DMLabelAddStratum(label, values[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),323,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

324

}

325

}

326

ierr = PetscFree(values)((*PetscTrFree)((void*)(values),326,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((values) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),326,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

327

328

}

329

330

/*@

331

DMLabelAddStrataIS - Adds new stratum values in a DMLabel

332

333

Input Parameter:

334

+ label - The DMLabel

335

- valueIS - Index set with stratum values

336

337

Level: beginner

338

339

.seealso: DMLabelCreate(), DMLabelDestroy()

340

@*/

341

PetscErrorCode DMLabelAddStrataIS(DMLabel label, IS valueIS)

342

{

343

PetscInt numStrata;

344

const PetscInt *stratumValues;

345

PetscErrorCode ierr;

346

347

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 347; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

348

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),348
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),348,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),348,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),348,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

349

PetscValidHeaderSpecific(valueIS, IS_CLASSID, 2)do { if (!valueIS) return PetscError(((MPI_Comm)0x44000001),349
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",2); if (
!PetscCheckPointer(valueIS,PETSC_OBJECT)) return PetscError((
(MPI_Comm)0x44000001),349,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,2); if (((PetscObject)(valueIS))->classid != IS_CLASSID) {
if (((PetscObject)(valueIS))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),349,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,2); else return PetscError(((MPI_Comm)0x44000001),349,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",2); } } while (0);

350

ierr = ISGetLocalSize(valueIS, &numStrata);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),350,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

351

ierr = ISGetIndices(valueIS, &stratumValues);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),351,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

352

ierr = DMLabelAddStrata(label, numStrata, stratumValues);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),352,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

353

354

}

355

356

static PetscErrorCode DMLabelView_Ascii(DMLabel label, PetscViewer viewer)

357

{

358

PetscInt v;

359

PetscMPIInt rank;

360

PetscErrorCode ierr;

361

362

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 362; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

363

ierr = MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),363,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

364

ierr = PetscViewerASCIIPushSynchronized(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),364,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

365

if (label) {

366

const char *name;

367

368

ierr = PetscObjectGetName((PetscObject) label, &name);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),368,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

369

ierr = PetscViewerASCIIPrintf(viewer, "Label '%s':\n", name);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),369,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

370

if (label->bt) {ierr = PetscViewerASCIIPrintf(viewer, " Index has been calculated in [%D, %D)\n", label->pStart, label->pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),370,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

371

for (v = 0; v < label->numStrata; ++v) {

372

const PetscInt value = label->stratumValues[v];

373

const PetscInt *points;

374

PetscInt p;

375

376

ierr = ISGetIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),376,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

377

for (p = 0; p < label->stratumSizes[v]; ++p) {

378

ierr = PetscViewerASCIISynchronizedPrintf(viewer, "[%d]: %D (%D)\n", rank, points[p], value);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),378,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

379

}

380

ierr = ISRestoreIndices(label->points[v],&points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),380,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

381

}

382

}

383

ierr = PetscViewerFlush(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),383,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

384

ierr = PetscViewerASCIIPopSynchronized(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),384,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

385

386

}

387

388

/*@C

389

DMLabelView - View the label

390

391

Input Parameters:

392

+ label - The DMLabel

393

- viewer - The PetscViewer

394

395

Level: intermediate

396

397

.seealso: DMLabelCreate(), DMLabelDestroy()

398

@*/

399

PetscErrorCode DMLabelView(DMLabel label, PetscViewer viewer)

400

{

401

PetscBool iascii;

402

PetscErrorCode ierr;

403

404

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 404; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

405

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),405
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),405,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),405,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),405,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

406

if (!viewer) {ierr = PetscViewerASCIIGetStdout(PetscObjectComm((PetscObject)label), &viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),406,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

407

PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 2)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),407
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",2); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),407,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,2); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),407,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,2); else return PetscError(((MPI_Comm)0x44000001),407,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",2); } } while (0);

408

if (label) {ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),408,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

409

ierr = PetscObjectTypeCompare((PetscObject) viewer, PETSCVIEWERASCII"ascii", &iascii);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),409,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

410

if (iascii) {

411

ierr = DMLabelView_Ascii(label, viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),411,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

412

}

413

414

}

415

416

/*@

417

DMLabelReset - Destroys internal data structures in a DMLabel

418

419

Input Parameter:

420

. label - The DMLabel

421

422

Level: beginner

423

424

.seealso: DMLabelDestroy(), DMLabelCreate()

425

@*/

426

PetscErrorCode DMLabelReset(DMLabel label)

427

{

428

PetscInt v;

429

PetscErrorCode ierr;

430

431

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 431; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

432

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),432
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),432,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),432,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),432,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

433

for (v = 0; v < label->numStrata; ++v) {

434

ierr = PetscHSetIDestroy(&label->ht[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),434,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

435

ierr = ISDestroy(&label->points[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),435,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

436

}

437

label->numStrata = 0;

438

ierr = PetscFree(label->stratumValues)((*PetscTrFree)((void*)(label->stratumValues),438,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c") || (
(label->stratumValues) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),438,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

439

ierr = PetscFree(label->stratumSizes)((*PetscTrFree)((void*)(label->stratumSizes),439,__func__,
"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c") || ((
label->stratumSizes) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),439,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

440

ierr = PetscFree(label->ht)((*PetscTrFree)((void*)(label->ht),440,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((label->ht) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),440,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

441

ierr = PetscFree(label->points)((*PetscTrFree)((void*)(label->points),441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((label->points) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

442

ierr = PetscFree(label->validIS)((*PetscTrFree)((void*)(label->validIS),442,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((label->validIS) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),442,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

443

ierr = PetscHMapIReset(label->hmap);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),443,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

444

label->pStart = -1;

445

label->pEnd = -1;

446

ierr = PetscBTDestroy(&label->bt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),446,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

447

448

}

449

450

/*@

451

DMLabelDestroy - Destroys a DMLabel

452

453

Input Parameter:

454

. label - The DMLabel

455

456

Level: beginner

457

458

.seealso: DMLabelReset(), DMLabelCreate()

459

@*/

460

PetscErrorCode DMLabelDestroy(DMLabel *label)

461

{

462

PetscErrorCode ierr;

463

464

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 464; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

465

if (!*label) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

466

PetscValidHeaderSpecific((*label),DMLABEL_CLASSID,1)do { if (!(*label)) return PetscError(((MPI_Comm)0x44000001),
466,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer((*label),PETSC_OBJECT)) return PetscError(
((MPI_Comm)0x44000001),466,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)((*label)))->classid != DMLABEL_CLASSID
) { if (((PetscObject)((*label)))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),466,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),466,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

467

if (--((PetscObject)(*label))->refct > 0) {*label = NULL((void*)0); PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

468

ierr = DMLabelReset(*label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),468,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

469

ierr = PetscHMapIDestroy(&(*label)->hmap);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),469,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

470

ierr = PetscHeaderDestroy(label)(PetscHeaderDestroy_Private((PetscObject)(*label)) || ((*PetscTrFree
)((void*)(*label),470,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((*label) = 0,0)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),470,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

471

472

}

473

474

/*@

475

DMLabelDuplicate - Duplicates a DMLabel

476

477

Input Parameter:

478

. label - The DMLabel

479

480

Output Parameter:

481

. labelnew - location to put new vector

482

483

Level: intermediate

484

485

.seealso: DMLabelCreate(), DMLabelDestroy()

486

@*/

487

PetscErrorCode DMLabelDuplicate(DMLabel label, DMLabel *labelnew)

488

{

489

const char *name;

490

PetscInt v;

491

PetscErrorCode ierr;

492

493

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 493; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

494

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),494
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),494,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),494,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),494,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

495

ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),495,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

496

ierr = PetscObjectGetName((PetscObject) label, &name);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),496,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

497

ierr = DMLabelCreate(PetscObjectComm((PetscObject) label), name, labelnew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),497,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

498

499

(*labelnew)->numStrata = label->numStrata;

500

(*labelnew)->defaultValue = label->defaultValue;

501

ierr = PetscMalloc1(label->numStrata, &(*labelnew)->stratumValues)PetscMallocA(1,PETSC_FALSE,501,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(label->numStrata)*sizeof(**(&(*labelnew)->
stratumValues)),(&(*labelnew)->stratumValues));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),501,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

502

ierr = PetscMalloc1(label->numStrata, &(*labelnew)->stratumSizes)PetscMallocA(1,PETSC_FALSE,502,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(label->numStrata)*sizeof(**(&(*labelnew)->
stratumSizes)),(&(*labelnew)->stratumSizes));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),502,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

503

ierr = PetscMalloc1(label->numStrata, &(*labelnew)->ht)PetscMallocA(1,PETSC_FALSE,503,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(label->numStrata)*sizeof(**(&(*labelnew)->
ht)),(&(*labelnew)->ht));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),503,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

504

ierr = PetscMalloc1(label->numStrata, &(*labelnew)->points)PetscMallocA(1,PETSC_FALSE,504,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(label->numStrata)*sizeof(**(&(*labelnew)->
points)),(&(*labelnew)->points));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),504,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

505

ierr = PetscMalloc1(label->numStrata, &(*labelnew)->validIS)PetscMallocA(1,PETSC_FALSE,505,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(label->numStrata)*sizeof(**(&(*labelnew)->
validIS)),(&(*labelnew)->validIS));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),505,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

506

for (v = 0; v < label->numStrata; ++v) {

507

ierr = PetscHSetICreate(&(*labelnew)->ht[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),507,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

508

(*labelnew)->stratumValues[v] = label->stratumValues[v];

509

(*labelnew)->stratumSizes[v] = label->stratumSizes[v];

510

ierr = PetscObjectReference((PetscObject) (label->points[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),510,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

511

(*labelnew)->points[v] = label->points[v];

512

(*labelnew)->validIS[v] = PETSC_TRUE;

513

}

514

ierr = PetscHMapIDestroy(&(*labelnew)->hmap);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),514,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

515

ierr = PetscHMapIDuplicate(label->hmap,&(*labelnew)->hmap);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),515,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

516

(*labelnew)->pStart = -1;

517

(*labelnew)->pEnd = -1;

518

(*labelnew)->bt = NULL((void*)0);

519

520

}

521

522

/*@

523

DMLabelComputeIndex - Create an index structure for membership determination, automatically determining the bounds

524

525

Input Parameter:

526

. label - The DMLabel

527

528

Level: intermediate

529

530

.seealso: DMLabelHasPoint(), DMLabelCreateIndex(), DMLabelDestroyIndex(), DMLabelGetValue(), DMLabelSetValue()

531

@*/

532

PetscErrorCode DMLabelComputeIndex(DMLabel label)

533

{

534

PetscInt pStart = PETSC_MAX_INT2147483647, pEnd = -1, v;

535

PetscErrorCode ierr;

536

537

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 537; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

538

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),538
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),538,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),538,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),538,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

539

ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),539,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

540

for (v = 0; v < label->numStrata; ++v) {

541

const PetscInt *points;

542

PetscInt i;

543

544

ierr = ISGetIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),544,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

545

for (i = 0; i < label->stratumSizes[v]; ++i) {

546

const PetscInt point = points[i];

547

548

pStart = PetscMin(point, pStart)(((point)<(pStart)) ? (point) : (pStart));

549

pEnd = PetscMax(point+1, pEnd)(((point+1)<(pEnd)) ? (pEnd) : (point+1));

550

}

551

ierr = ISRestoreIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),551,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

552

}

553

label->pStart = pStart == PETSC_MAX_INT2147483647 ? -1 : pStart;

554

label->pEnd = pEnd;

555

ierr = DMLabelCreateIndex(label, label->pStart, label->pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),555,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

556

557

}

558

559

/*@

560

DMLabelCreateIndex - Create an index structure for membership determination

561

562

Input Parameters:

563

+ label - The DMLabel

564

. pStart - The smallest point

565

- pEnd - The largest point + 1

566

567

Level: intermediate

568

569

.seealso: DMLabelHasPoint(), DMLabelComputeIndex(), DMLabelDestroyIndex(), DMLabelGetValue(), DMLabelSetValue()

570

@*/

571

PetscErrorCode DMLabelCreateIndex(DMLabel label, PetscInt pStart, PetscInt pEnd)

572

{

573

PetscInt v;

574

PetscErrorCode ierr;

575

576

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 576; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

577

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),577
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),577,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),577,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),577,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

578

ierr = DMLabelDestroyIndex(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),578,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

579

ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),579,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

580

label->pStart = pStart;

581

label->pEnd = pEnd;

582

/* This can be hooked into SetValue(), ClearValue(), etc. for updating */

583

ierr = PetscBTCreate(pEnd - pStart, &label->bt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),583,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

584

for (v = 0; v < label->numStrata; ++v) {

585

const PetscInt *points;

586

PetscInt i;

587

588

ierr = ISGetIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),588,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

589

for (i = 0; i < label->stratumSizes[v]; ++i) {

590

const PetscInt point = points[i];

591

592

if ((point < pStart) || (point >= pEnd)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Label point %D is not in [%D, %D)", point, pStart, pEnd)return PetscError(((MPI_Comm)0x44000001),592,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"Label point %D is not in [%D, %D)",point
,pStart,pEnd);

593

ierr = PetscBTSet(label->bt, point - pStart);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),593,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

594

}

595

ierr = ISRestoreIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),595,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

596

}

597

598

}

599

600

/*@

601

DMLabelDestroyIndex - Destroy the index structure

602

603

Input Parameter:

604

. label - the DMLabel

605

606

Level: intermediate

607

608

.seealso: DMLabelHasPoint(), DMLabelCreateIndex(), DMLabelGetValue(), DMLabelSetValue()

609

@*/

610

PetscErrorCode DMLabelDestroyIndex(DMLabel label)

611

{

612

PetscErrorCode ierr;

613

614

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 614; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

615

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),615
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),615,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),615,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),615,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

616

label->pStart = -1;

617

label->pEnd = -1;

618

ierr = PetscBTDestroy(&label->bt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),618,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

619

620

}

621

622

/*@

623

DMLabelGetBounds - Return the smallest and largest point in the label

624

625

Input Parameter:

626

. label - the DMLabel

627

628

Output Parameters:

629

+ pStart - The smallest point

630

- pEnd - The largest point + 1

631

632

Note: This will compute an index for the label if one does not exist.

633

634

Level: intermediate

635

636

.seealso: DMLabelHasPoint(), DMLabelCreateIndex(), DMLabelGetValue(), DMLabelSetValue()

637

@*/

638

PetscErrorCode DMLabelGetBounds(DMLabel label, PetscInt *pStart, PetscInt *pEnd)

639

{

640

PetscErrorCode ierr;

641

642

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 642; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

643

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),643
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),643,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),643,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),643,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

644

if ((label->pStart == -1) && (label->pEnd == -1)) {ierr = DMLabelComputeIndex(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),644,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

645

if (pStart) {

646

PetscValidPointer(pStart, 2)do { if (!pStart) return PetscError(((MPI_Comm)0x44000001),646
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",2); if
(!PetscCheckPointer(pStart,PETSC_CHAR)) return PetscError(((
MPI_Comm)0x44000001),646,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",2);
} while (0);

647

*pStart = label->pStart;

648

}

649

if (pEnd) {

650

PetscValidPointer(pEnd, 3)do { if (!pEnd) return PetscError(((MPI_Comm)0x44000001),650,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(pEnd,PETSC_CHAR)) return PetscError(((MPI_Comm
)0x44000001),650,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

651

*pEnd = label->pEnd;

652

}

653

654

}

655

656

/*@

657

DMLabelHasValue - Determine whether a label assigns the value to any point

658

659

Input Parameters:

660

+ label - the DMLabel

661

- value - the value

662

663

Output Parameter:

664

. contains - Flag indicating whether the label maps this value to any point

665

666

Level: developer

667

668

.seealso: DMLabelHasPoint(), DMLabelGetValue(), DMLabelSetValue()

669

@*/

670

PetscErrorCode DMLabelHasValue(DMLabel label, PetscInt value, PetscBool *contains)

671

{

672

PetscInt v;

673

PetscErrorCode ierr;

674

675

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 675; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

676

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),676
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),676,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),676,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),676,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

677

PetscValidPointer(contains, 3)do { if (!contains) return PetscError(((MPI_Comm)0x44000001),
677,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(contains,PETSC_CHAR)) return PetscError(
((MPI_Comm)0x44000001),677,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

678

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),678,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

679

*contains = v < 0 ? PETSC_FALSE : PETSC_TRUE;

680

681

}

682

683

/*@

684

DMLabelHasPoint - Determine whether a label assigns a value to a point

685

686

Input Parameters:

687

+ label - the DMLabel

688

- point - the point

689

690

Output Parameter:

691

. contains - Flag indicating whether the label maps this point to a value

692

693

Note: The user must call DMLabelCreateIndex() before this function.

694

695

Level: developer

696

697

.seealso: DMLabelCreateIndex(), DMLabelGetValue(), DMLabelSetValue()

698

@*/

699

PetscErrorCode DMLabelHasPoint(DMLabel label, PetscInt point, PetscBool *contains)

700

{

701

PetscErrorCode ierr;

702

703

PetscFunctionBeginHotdo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 703; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_TRUE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

704

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),704
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),704,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),704,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),704,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

705

PetscValidPointer(contains, 3)do { if (!contains) return PetscError(((MPI_Comm)0x44000001),
705,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(contains,PETSC_CHAR)) return PetscError(
((MPI_Comm)0x44000001),705,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

706

ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),706,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

707

#if defined(PETSC_USE_DEBUG1)

708

if (!label->bt) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "Must call DMLabelCreateIndex() before DMLabelHasPoint()")return PetscError(((MPI_Comm)0x44000001),708,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,73,PETSC_ERROR_INITIAL,"Must call DMLabelCreateIndex() before DMLabelHasPoint()"
);

709

if ((point < label->pStart) || (point >= label->pEnd)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Label point %D is not in [%D, %D)", point, label->pStart, label->pEnd)return PetscError(((MPI_Comm)0x44000001),709,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"Label point %D is not in [%D, %D)",point
,label->pStart,label->pEnd);

710

#endif

711

*contains = PetscBTLookup(label->bt, point - label->pStart) ? PETSC_TRUE : PETSC_FALSE;

712

713

}

714

715

/*@

716

DMLabelStratumHasPoint - Return true if the stratum contains a point

717

718

Input Parameters:

719

+ label - the DMLabel

720

. value - the stratum value

721

- point - the point

722

723

Output Parameter:

724

. contains - true if the stratum contains the point

725

726

Level: intermediate

727

728

.seealso: DMLabelCreate(), DMLabelSetValue(), DMLabelClearValue()

729

@*/

730

PetscErrorCode DMLabelStratumHasPoint(DMLabel label, PetscInt value, PetscInt point, PetscBool *contains)

731

{

732

PetscInt v;

733

PetscErrorCode ierr;

734

735

PetscFunctionBeginHotdo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 735; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_TRUE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

736

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),736
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),736,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),736,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),736,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

737

PetscValidPointer(contains, 4)do { if (!contains) return PetscError(((MPI_Comm)0x44000001),
737,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",4); if
(!PetscCheckPointer(contains,PETSC_CHAR)) return PetscError(
((MPI_Comm)0x44000001),737,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",4);
} while (0);

738

*contains = PETSC_FALSE;

739

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),739,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

740

if (v < 0) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

741

742

if (label->validIS[v]) {

743

PetscInt i;

744

745

ierr = ISLocate(label->points[v], point, &i);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),745,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

746

if (i >= 0) *contains = PETSC_TRUE;

747

} else {

748

PetscBool has;

749

750

ierr = PetscHSetIHas(label->ht[v], point, &has);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

751

if (has) *contains = PETSC_TRUE;

752

}

753

754

}

755

756

/*@

757

DMLabelGetDefaultValue - Get the default value returned by DMLabelGetValue() if a point has not been explicitly given a value.

758

When a label is created, it is initialized to -1.

759

760

Input parameter:

761

. label - a DMLabel object

762

763

Output parameter:

764

. defaultValue - the default value

765

766

Level: beginner

767

768

.seealso: DMLabelSetDefaultValue(), DMLabelGetValue(), DMLabelSetValue()

769

@*/

770

PetscErrorCode DMLabelGetDefaultValue(DMLabel label, PetscInt *defaultValue)

771

{

772

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 772; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

773

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),773
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),773,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),773,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),773,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

774

*defaultValue = label->defaultValue;

775

776

}

777

778

/*@

779

DMLabelSetDefaultValue - Set the default value returned by DMLabelGetValue() if a point has not been explicitly given a value.

780

When a label is created, it is initialized to -1.

781

782

Input parameter:

783

. label - a DMLabel object

784

785

Output parameter:

786

. defaultValue - the default value

787

788

Level: beginner

789

790

.seealso: DMLabelGetDefaultValue(), DMLabelGetValue(), DMLabelSetValue()

791

@*/

792

PetscErrorCode DMLabelSetDefaultValue(DMLabel label, PetscInt defaultValue)

793

{

794

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 794; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

795

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),795
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),795,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),795,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),795,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

796

label->defaultValue = defaultValue;

797

798

}

799

800

/*@

801

DMLabelGetValue - Return the value a label assigns to a point, or the label's default value (which is initially -1, and can be changed with DMLabelSetDefaultValue())

802

803

Input Parameters:

804

+ label - the DMLabel

805

- point - the point

806

807

Output Parameter:

808

. value - The point value, or the default value (-1 by default)

809

810

Level: intermediate

811

812

.seealso: DMLabelCreate(), DMLabelSetValue(), DMLabelClearValue(), DMLabelGetDefaultValue(), DMLabelSetDefaultValue()

813

@*/

814

PetscErrorCode DMLabelGetValue(DMLabel label, PetscInt point, PetscInt *value)

815

{

816

PetscInt v;

817

PetscErrorCode ierr;

818

819

PetscFunctionBeginHotdo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 819; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_TRUE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

820

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),820
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),820,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),820,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),820,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

821

PetscValidPointer(value, 3)do { if (!value) return PetscError(((MPI_Comm)0x44000001),821
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(value,PETSC_CHAR)) return PetscError(((MPI_Comm
)0x44000001),821,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

822

*value = label->defaultValue;

823

for (v = 0; v < label->numStrata; ++v) {

824

if (label->validIS[v]) {

825

PetscInt i;

826

827

ierr = ISLocate(label->points[v], point, &i);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),827,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

828

if (i >= 0) {

829

*value = label->stratumValues[v];

830

break;

831

}

832

} else {

833

PetscBool has;

834

835

ierr = PetscHSetIHas(label->ht[v], point, &has);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),835,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

836

if (has) {

837

*value = label->stratumValues[v];

838

break;

839

}

840

}

841

}

842

843

}

844

845

/*@

846

DMLabelSetValue - Set the value a label assigns to a point. If the value is the same as the label's default value (which is initially -1, and can be changed with DMLabelSetDefaultValue() to something different), then this function will do nothing.

847

848

Input Parameters:

849

+ label - the DMLabel

850

. point - the point

851

- value - The point value

852

853

Level: intermediate

854

855

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelClearValue(), DMLabelGetDefaultValue(), DMLabelSetDefaultValue()

856

@*/

857

PetscErrorCode DMLabelSetValue(DMLabel label, PetscInt point, PetscInt value)

858

{

859

PetscInt v;

860

PetscErrorCode ierr;

861

862

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 862; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

863

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),863
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),863,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),863,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),863,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

864

/* Find label value, add new entry if needed */

865

if (value == label->defaultValue) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

866

ierr = DMLabelLookupAddStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),866,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

867

/* Set key */

868

ierr = DMLabelMakeInvalid_Private(label, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),868,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

869

ierr = PetscHSetIAdd(label->ht[v], point);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),869,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

870

871

}

872

873

/*@

874

DMLabelClearValue - Clear the value a label assigns to a point

875

876

Input Parameters:

877

+ label - the DMLabel

878

. point - the point

879

- value - The point value

880

881

Level: intermediate

882

883

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue()

884

@*/

885

PetscErrorCode DMLabelClearValue(DMLabel label, PetscInt point, PetscInt value)

886

{

887

PetscInt v;

888

PetscErrorCode ierr;

889

890

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 890; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

891

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),891
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),891,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),891,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),891,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

892

/* Find label value */

893

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),893,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

894

895

896

if (label->bt) {

897

if ((point < label->pStart) || (point >= label->pEnd)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Label point %D is not in [%D, %D)", point, label->pStart, label->pEnd)return PetscError(((MPI_Comm)0x44000001),897,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"Label point %D is not in [%D, %D)",point
,label->pStart,label->pEnd);

898

ierr = PetscBTClear(label->bt, point - label->pStart);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),898,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

899

}

900

901

/* Delete key */

902

ierr = DMLabelMakeInvalid_Private(label, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),902,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

903

ierr = PetscHSetIDel(label->ht[v], point);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),903,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

904

905

}

906

907

/*@

908

DMLabelInsertIS - Set all points in the IS to a value

909

910

Input Parameters:

911

+ label - the DMLabel

912

. is - the point IS

913

- value - The point value

914

915

Level: intermediate

916

917

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

918

@*/

919

PetscErrorCode DMLabelInsertIS(DMLabel label, IS is, PetscInt value)

920

{

921

PetscInt v, n, p;

922

const PetscInt *points;

923

PetscErrorCode ierr;

924

925

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 925; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

926

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),926
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),926,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),926,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),926,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

927

PetscValidHeaderSpecific(is, IS_CLASSID, 2)do { if (!is) return PetscError(((MPI_Comm)0x44000001),927,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",85,PETSC_ERROR_INITIAL
,"Null Object: Parameter # %d",2); if (!PetscCheckPointer(is,
PETSC_OBJECT)) return PetscError(((MPI_Comm)0x44000001),927,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",64,PETSC_ERROR_INITIAL
,"Invalid Pointer to Object: Parameter # %d",2); if (((PetscObject
)(is))->classid != IS_CLASSID) { if (((PetscObject)(is))->
classid == -1) return PetscError(((MPI_Comm)0x44000001),927,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",64,PETSC_ERROR_INITIAL
,"Object already free: Parameter # %d",2); else return PetscError
(((MPI_Comm)0x44000001),927,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,2); } } while (0);

928

/* Find label value, add new entry if needed */

929

930

ierr = DMLabelLookupAddStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),930,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

931

/* Set keys */

932

ierr = DMLabelMakeInvalid_Private(label, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),932,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

933

ierr = ISGetLocalSize(is, &n);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),933,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

934

ierr = ISGetIndices(is, &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),934,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

935

for (p = 0; p < n; ++p) {ierr = PetscHSetIAdd(label->ht[v], points[p]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),935,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

936

ierr = ISRestoreIndices(is, &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),936,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

937

938

}

939

940

/*@

941

DMLabelGetNumValues - Get the number of values that the DMLabel takes

942

943

Input Parameter:

944

. label - the DMLabel

945

946

Output Paramater:

947

. numValues - the number of values

948

949

Level: intermediate

950

951

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

952

@*/

953

PetscErrorCode DMLabelGetNumValues(DMLabel label, PetscInt *numValues)

954

{

955

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 955; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

956

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),956
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),956,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),956,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),956,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

957

PetscValidPointer(numValues, 2)do { if (!numValues) return PetscError(((MPI_Comm)0x44000001)
,957,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",2); if
(!PetscCheckPointer(numValues,PETSC_CHAR)) return PetscError
(((MPI_Comm)0x44000001),957,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",2);
} while (0);

958

*numValues = label->numStrata;

959

960

}

961

962

/*@

963

DMLabelGetValueIS - Get an IS of all values that the DMlabel takes

964

965

Input Parameter:

966

. label - the DMLabel

967

968

Output Paramater:

969

. is - the value IS

970

971

Level: intermediate

972

973

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

974

@*/

975

PetscErrorCode DMLabelGetValueIS(DMLabel label, IS *values)

976

{

977

PetscErrorCode ierr;

978

979

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 979; petscstack->petscroutine
[petscstack->currentsize] = PETSC_TRUE; petscstack->currentsize
++; } if (petscstack) { petscstack->hotdepth += (PETSC_FALSE
|| petscstack->hotdepth); } ; } while (0); ; } while (0);

980

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),980
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),980,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),980,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),980,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

981

PetscValidPointer(values, 2)do { if (!values) return PetscError(((MPI_Comm)0x44000001),981
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",2); if
(!PetscCheckPointer(values,PETSC_CHAR)) return PetscError(((
MPI_Comm)0x44000001),981,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",2);
} while (0);

982

ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001), label->numStrata, label->stratumValues, PETSC_USE_POINTER, values);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),982,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

983

984

}

985

986

/*@

987

DMLabelHasStratum - Determine whether points exist with the given value

988

989

Input Parameters:

990

+ label - the DMLabel

991

- value - the stratum value

992

993

Output Paramater:

994

. exists - Flag saying whether points exist

995

996

Level: intermediate

997

998

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

999

@*/

1000

PetscErrorCode DMLabelHasStratum(DMLabel label, PetscInt value, PetscBool *exists)

1001

{

1002

PetscInt v;

1003

PetscErrorCode ierr;

1004

1005

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1005; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1006

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1006
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1006,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1006,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1006,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1007

PetscValidPointer(exists, 3)do { if (!exists) return PetscError(((MPI_Comm)0x44000001),1007
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(exists,PETSC_CHAR)) return PetscError(((
MPI_Comm)0x44000001),1007,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

1008

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1008,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1009

*exists = v < 0 ? PETSC_FALSE : PETSC_TRUE;

1010

1011

}

1012

1013

/*@

1014

DMLabelGetStratumSize - Get the size of a stratum

1015

1016

Input Parameters:

1017

+ label - the DMLabel

1018

- value - the stratum value

1019

1020

Output Paramater:

1021

. size - The number of points in the stratum

1022

1023

Level: intermediate

1024

1025

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1026

@*/

1027

PetscErrorCode DMLabelGetStratumSize(DMLabel label, PetscInt value, PetscInt *size)

1028

{

1029

PetscInt v;

1030

PetscErrorCode ierr;

1031

1032

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1032; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1033

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1033
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1033,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1033,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1033,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1034

PetscValidPointer(size, 3)do { if (!size) return PetscError(((MPI_Comm)0x44000001),1034
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(size,PETSC_CHAR)) return PetscError(((MPI_Comm
)0x44000001),1034,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

1035

*size = 0;

1036

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1036,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1037

1038

ierr = DMLabelMakeValid_Private(label, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1038,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1039

*size = label->stratumSizes[v];

1040

1041

}

1042

1043

/*@

1044

DMLabelGetStratumBounds - Get the largest and smallest point of a stratum

1045

1046

Input Parameters:

1047

+ label - the DMLabel

1048

- value - the stratum value

1049

1050

Output Paramaters:

1051

+ start - the smallest point in the stratum

1052

- end - the largest point in the stratum

1053

1054

Level: intermediate

1055

1056

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1057

@*/

1058

PetscErrorCode DMLabelGetStratumBounds(DMLabel label, PetscInt value, PetscInt *start, PetscInt *end)

1059

{

1060

PetscInt v, min, max;

1061

PetscErrorCode ierr;

1062

1063

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1063; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1064

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1064
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1064,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1064,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1064,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1065

if (start) {PetscValidPointer(start, 3)do { if (!start) return PetscError(((MPI_Comm)0x44000001),1065
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(start,PETSC_CHAR)) return PetscError(((MPI_Comm
)0x44000001),1065,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0); *start = 0;}

1066

if (end) {PetscValidPointer(end, 4)do { if (!end) return PetscError(((MPI_Comm)0x44000001),1066,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",4); if
(!PetscCheckPointer(end,PETSC_CHAR)) return PetscError(((MPI_Comm
)0x44000001),1066,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",4);
} while (0); *end = 0;}

1067

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1067,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1068

1069

ierr = DMLabelMakeValid_Private(label, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1069,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1070

if (label->stratumSizes[v] <= 0) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

1071

ierr = ISGetMinMax(label->points[v], &min, &max);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1071,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1072

if (start) *start = min;

1073

if (end) *end = max+1;

1074

1075

}

1076

1077

/*@

1078

DMLabelGetStratumIS - Get an IS with the stratum points

1079

1080

Input Parameters:

1081

+ label - the DMLabel

1082

- value - the stratum value

1083

1084

Output Paramater:

1085

. points - The stratum points

1086

1087

Level: intermediate

1088

1089

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1090

@*/

1091

PetscErrorCode DMLabelGetStratumIS(DMLabel label, PetscInt value, IS *points)

1092

{

1093

PetscInt v;

1094

PetscErrorCode ierr;

1095

1096

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1096; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1097

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1097
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1097,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1097,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1097,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1098

PetscValidPointer(points, 3)do { if (!points) return PetscError(((MPI_Comm)0x44000001),1098
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(points,PETSC_CHAR)) return PetscError(((
MPI_Comm)0x44000001),1098,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

1099

*points = NULL((void*)0);

1100

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1100,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1101

1102

ierr = DMLabelMakeValid_Private(label, v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1102,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1103

ierr = PetscObjectReference((PetscObject) label->points[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1103,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1104

*points = label->points[v];

1105

1106

}

1107

1108

/*@

1109

DMLabelSetStratumIS - Set the stratum points using an IS

1110

1111

Input Parameters:

1112

+ label - the DMLabel

1113

. value - the stratum value

1114

- points - The stratum points

1115

1116

Level: intermediate

1117

1118

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1119

@*/

1120

PetscErrorCode DMLabelSetStratumIS(DMLabel label, PetscInt value, IS is)

1121

{

1122

PetscInt v;

1123

PetscErrorCode ierr;

1124

1125

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1125; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1126

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1126
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1126,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1126,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1126,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1127

PetscValidHeaderSpecific(is, IS_CLASSID, 3)do { if (!is) return PetscError(((MPI_Comm)0x44000001),1127,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",85,PETSC_ERROR_INITIAL
,"Null Object: Parameter # %d",3); if (!PetscCheckPointer(is,
PETSC_OBJECT)) return PetscError(((MPI_Comm)0x44000001),1127,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,3); if (((PetscObject)(is))->classid != IS_CLASSID) { if (
((PetscObject)(is))->classid == -1) return PetscError(((MPI_Comm
)0x44000001),1127,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,3); else return PetscError(((MPI_Comm)0x44000001),1127,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",3); } } while (0);

1128

ierr = DMLabelLookupAddStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1128,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1129

if (is == label->points[v]) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

1130

ierr = DMLabelClearStratum(label, value);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1130,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1131

ierr = ISGetLocalSize(is, &(label->stratumSizes[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1131,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1132

ierr = PetscObjectReference((PetscObject)is);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1132,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1133

ierr = ISDestroy(&(label->points[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1133,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1134

label->points[v] = is;

1135

label->validIS[v] = PETSC_TRUE;

1136

if (label->bt) {

1137

const PetscInt *points;

1138

PetscInt p;

1139

1140

ierr = ISGetIndices(is,&points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1140,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1141

for (p = 0; p < label->stratumSizes[v]; ++p) {

1142

const PetscInt point = points[p];

1143

1144

if ((point < label->pStart) || (point >= label->pEnd)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Label point %D is not in [%D, %D)", point, label->pStart, label->pEnd)return PetscError(((MPI_Comm)0x44000001),1144,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"Label point %D is not in [%D, %D)",point
,label->pStart,label->pEnd);

1145

ierr = PetscBTSet(label->bt, point - label->pStart);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1145,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1146

}

1147

}

1148

1149

}

1150

1151

/*@

1152

DMLabelClearStratum - Remove a stratum

1153

1154

Input Parameters:

1155

+ label - the DMLabel

1156

- value - the stratum value

1157

1158

Level: intermediate

1159

1160

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1161

@*/

1162

PetscErrorCode DMLabelClearStratum(DMLabel label, PetscInt value)

1163

{

1164

PetscInt v;

1165

PetscErrorCode ierr;

1166

1167

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1167; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1168

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1168
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1168,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1168,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1168,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1169

ierr = DMLabelLookupStratum(label, value, &v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1169,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1170

1171

if (label->validIS[v]) {

1172

if (label->bt) {

1173

PetscInt i;

1174

const PetscInt *points;

1175

1176

ierr = ISGetIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1176,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1177

for (i = 0; i < label->stratumSizes[v]; ++i) {

1178

const PetscInt point = points[i];

1179

1180

if ((point < label->pStart) || (point >= label->pEnd)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Label point %D is not in [%D, %D)", point, label->pStart, label->pEnd)return PetscError(((MPI_Comm)0x44000001),1180,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"Label point %D is not in [%D, %D)",point
,label->pStart,label->pEnd);

1181

ierr = PetscBTClear(label->bt, point - label->pStart);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1181,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1182

}

1183

ierr = ISRestoreIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1183,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1184

}

1185

label->stratumSizes[v] = 0;

1186

ierr = ISDestroy(&label->points[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1186,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1187

ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001), 0, NULL((void*)0), PETSC_OWN_POINTER, &label->points[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1187,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1188

ierr = PetscObjectSetName((PetscObject) label->points[v], "indices");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1188,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1189

} else {

1190

ierr = PetscHSetIClear(label->ht[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1190,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1191

}

1192

1193

}

1194

1195

/*@

1196

DMLabelFilter - Remove all points outside of [start, end)

1197

1198

Input Parameters:

1199

+ label - the DMLabel

1200

. start - the first point

1201

- end - the last point

1202

1203

Level: intermediate

1204

1205

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1206

@*/

1207

PetscErrorCode DMLabelFilter(DMLabel label, PetscInt start, PetscInt end)

1208

{

1209

PetscInt v;

1210

PetscErrorCode ierr;

1211

1212

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1212; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1213

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1213
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1213,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1213,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1213,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1214

ierr = DMLabelDestroyIndex(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1214,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1215

ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1215,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1216

for (v = 0; v < label->numStrata; ++v) {

1217

PetscInt off, q;

1218

const PetscInt *points;

1219

PetscInt numPointsNew = 0, *pointsNew = NULL((void*)0);

1220

1221

ierr = ISGetIndices(label->points[v], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1221,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1222

for (q = 0; q < label->stratumSizes[v]; ++q)

1223

if (points[q] >= start && points[q] < end)

1224

numPointsNew++;

1225

ierr = PetscMalloc1(numPointsNew, &pointsNew)PetscMallocA(1,PETSC_FALSE,1225,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(numPointsNew)*sizeof(**(&pointsNew)),(&pointsNew
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1225,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1226

for (off = 0, q = 0; q < label->stratumSizes[v]; ++q) {

1227

if (points[q] >= start && points[q] < end)

1228

pointsNew[off++] = points[q];

1229

}

1230

ierr = ISRestoreIndices(label->points[v],&points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1230,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1231

1232

label->stratumSizes[v] = numPointsNew;

1233

ierr = ISDestroy(&label->points[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1233,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1234

ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001),numPointsNew, pointsNew, PETSC_OWN_POINTER, &label->points[v]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1234,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1235

ierr = PetscObjectSetName((PetscObject) label->points[v], "indices");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1235,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1236

}

1237

ierr = DMLabelCreateIndex(label, start, end);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1237,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1238

1239

}

1240

1241

/*@

1242

DMLabelPermute - Create a new label with permuted points

1243

1244

Input Parameters:

1245

+ label - the DMLabel

1246

- permutation - the point permutation

1247

1248

Output Parameter:

1249

. labelnew - the new label containing the permuted points

1250

1251

Level: intermediate

1252

1253

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1254

@*/

1255

PetscErrorCode DMLabelPermute(DMLabel label, IS permutation, DMLabel *labelNew)

1256

{

1257

const PetscInt *perm;

1258

PetscInt numValues, numPoints, v, q;

1259

PetscErrorCode ierr;

1260

1261

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1261; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1262

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1262
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1262,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1262,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1262,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1263

PetscValidHeaderSpecific(permutation, IS_CLASSID, 2)do { if (!permutation) return PetscError(((MPI_Comm)0x44000001
),1263,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",2); if (
!PetscCheckPointer(permutation,PETSC_OBJECT)) return PetscError
(((MPI_Comm)0x44000001),1263,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,2); if (((PetscObject)(permutation))->classid != IS_CLASSID
) { if (((PetscObject)(permutation))->classid == -1) return
PetscError(((MPI_Comm)0x44000001),1263,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,2); else return PetscError(((MPI_Comm)0x44000001),1263,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",2); } } while (0);

1264

ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1264,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1265

ierr = DMLabelDuplicate(label, labelNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1265,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1266

ierr = DMLabelGetNumValues(*labelNew, &numValues);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1266,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1267

ierr = ISGetLocalSize(permutation, &numPoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1267,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1268

ierr = ISGetIndices(permutation, &perm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1268,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1269

for (v = 0; v < numValues; ++v) {

1270

const PetscInt size = (*labelNew)->stratumSizes[v];

1271

const PetscInt *points;

1272

PetscInt *pointsNew;

1273

1274

ierr = ISGetIndices((*labelNew)->points[v],&points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1274,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1275

ierr = PetscMalloc1(size,&pointsNew)PetscMallocA(1,PETSC_FALSE,1275,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(size)*sizeof(**(&pointsNew)),(&pointsNew));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1275,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1276

for (q = 0; q < size; ++q) {

1277

const PetscInt point = points[q];

1278

1279

if ((point < 0) || (point >= numPoints)) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Label point %D is not in [0, %D) for the remapping", point, numPoints)return PetscError(((MPI_Comm)0x44000001),1279,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"Label point %D is not in [0, %D) for the remapping"
,point,numPoints);

1280

pointsNew[q] = perm[point];

1281

}

1282

ierr = ISRestoreIndices((*labelNew)->points[v],&points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1282,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1283

ierr = PetscSortInt(size, pointsNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1283,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1284

ierr = ISDestroy(&((*labelNew)->points[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1284,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1285

if (size > 0 && pointsNew[size - 1] == pointsNew[0] + size - 1) {

1286

ierr = ISCreateStride(PETSC_COMM_SELF((MPI_Comm)0x44000001),size,pointsNew[0],1,&((*labelNew)->points[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1286,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1287

ierr = PetscFree(pointsNew)((*PetscTrFree)((void*)(pointsNew),1287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((pointsNew) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1287,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1288

} else {

1289

ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001),size,pointsNew,PETSC_OWN_POINTER,&((*labelNew)->points[v]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1289,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1290

}

1291

ierr = PetscObjectSetName((PetscObject) ((*labelNew)->points[v]), "indices");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1291,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1292

}

1293

ierr = ISRestoreIndices(permutation, &perm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1293,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1294

if (label->bt) {

1295

ierr = PetscBTDestroy(&label->bt);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1295,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1296

ierr = DMLabelCreateIndex(label, label->pStart, label->pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1296,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1297

}

1298

1299

}

1300

1301

PetscErrorCode DMLabelDistribute_Internal(DMLabel label, PetscSF sf, PetscSection *leafSection, PetscInt **leafStrata)

1302

{

1303

MPI_Comm comm;

1304

PetscInt s, l, nroots, nleaves, dof, offset, size;

1305

PetscInt *remoteOffsets, *rootStrata, *rootIdx;

1306

PetscSection rootSection;

1307

PetscSF labelSF;

1308

PetscErrorCode ierr;

1309

1310

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1310; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1311

if (label) {ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1311,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1312

ierr = PetscObjectGetComm((PetscObject)sf, &comm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1312,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1313

/* Build a section of stratum values per point, generate the according SF

1314

and distribute point-wise stratum values to leaves. */

1315

ierr = PetscSFGetGraph(sf, &nroots, &nleaves, NULL((void*)0), NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1315,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1316

ierr = PetscSectionCreate(comm, &rootSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1316,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1317

ierr = PetscSectionSetChart(rootSection, 0, nroots);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1317,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1318

if (label) {

1319

for (s = 0; s < label->numStrata; ++s) {

1320

const PetscInt *points;

1321

1322

ierr = ISGetIndices(label->points[s], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1322,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1323

for (l = 0; l < label->stratumSizes[s]; l++) {

1324

ierr = PetscSectionGetDof(rootSection, points[l], &dof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1324,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1325

ierr = PetscSectionSetDof(rootSection, points[l], dof+1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1325,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1326

}

1327

ierr = ISRestoreIndices(label->points[s], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1327,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1328

}

1329

}

1330

ierr = PetscSectionSetUp(rootSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1330,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1331

/* Create a point-wise array of stratum values */

1332

ierr = PetscSectionGetStorageSize(rootSection, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1332,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1333

ierr = PetscMalloc1(size, &rootStrata)PetscMallocA(1,PETSC_FALSE,1333,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(size)*sizeof(**(&rootStrata)),(&rootStrata)
);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1333,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1334

ierr = PetscCalloc1(nroots, &rootIdx)PetscMallocA(1,PETSC_TRUE,1334,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(nroots)*sizeof(**(&rootIdx)),(&rootIdx));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1334,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1335

if (label) {

1336

for (s = 0; s < label->numStrata; ++s) {

1337

const PetscInt *points;

1338

1339

ierr = ISGetIndices(label->points[s], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1339,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1340

for (l = 0; l < label->stratumSizes[s]; l++) {

1341

const PetscInt p = points[l];

1342

ierr = PetscSectionGetOffset(rootSection, p, &offset);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1342,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1343

rootStrata[offset+rootIdx[p]++] = label->stratumValues[s];

1344

}

1345

ierr = ISRestoreIndices(label->points[s], &points);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1345,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1346

}

1347

}

1348

/* Build SF that maps label points to remote processes */

1349

ierr = PetscSectionCreate(comm, leafSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1349,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1350

ierr = PetscSFDistributeSection(sf, rootSection, &remoteOffsets, *leafSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1350,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1351

ierr = PetscSFCreateSectionSF(sf, rootSection, remoteOffsets, *leafSection, &labelSF);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1351,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1352

ierr = PetscFree(remoteOffsets)((*PetscTrFree)((void*)(remoteOffsets),1352,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((remoteOffsets) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1352,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1353

/* Send the strata for each point over the derived SF */

1354

ierr = PetscSectionGetStorageSize(*leafSection, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1354,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1355

ierr = PetscMalloc1(size, leafStrata)PetscMallocA(1,PETSC_FALSE,1355,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(size)*sizeof(**(leafStrata)),(leafStrata));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1355,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1356

ierr = PetscSFBcastBegin(labelSF, MPIU_INT((MPI_Datatype)0x4c000405), rootStrata, *leafStrata);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1356,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1357

ierr = PetscSFBcastEnd(labelSF, MPIU_INT((MPI_Datatype)0x4c000405), rootStrata, *leafStrata);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1357,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1358

/* Clean up */

1359

ierr = PetscFree(rootStrata)((*PetscTrFree)((void*)(rootStrata),1359,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((rootStrata) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1359,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1360

ierr = PetscFree(rootIdx)((*PetscTrFree)((void*)(rootIdx),1360,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((rootIdx) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1360,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1361

ierr = PetscSectionDestroy(&rootSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1361,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1362

ierr = PetscSFDestroy(&labelSF);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1362,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1363

1364

}

1365

1366

/*@

1367

DMLabelDistribute - Create a new label pushed forward over the PetscSF

1368

1369

Input Parameters:

1370

+ label - the DMLabel

1371

- sf - the map from old to new distribution

1372

1373

Output Parameter:

1374

. labelnew - the new redistributed label

1375

1376

Level: intermediate

1377

1378

.seealso: DMLabelCreate(), DMLabelGetValue(), DMLabelSetValue(), DMLabelClearValue()

1379

@*/

1380

PetscErrorCode DMLabelDistribute(DMLabel label, PetscSF sf, DMLabel *labelNew)

1381

{

1382

MPI_Comm comm;

1383

PetscSection leafSection;

1384

PetscInt p, pStart, pEnd, s, size, dof, offset, stratum;

1385

PetscInt *leafStrata, *strataIdx;

1386

PetscInt **points;

1387

const char *lname = NULL((void*)0);

1388

char *name;

1389

PetscInt nameSize;

1390

PetscHSetI stratumHash;

1391

size_t len = 0;

1392

PetscMPIInt rank;

1393

PetscErrorCode ierr;

1394

1395

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1395; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1396

PetscValidHeaderSpecific(sf, PETSCSF_CLASSID, 2)do { if (!sf) return PetscError(((MPI_Comm)0x44000001),1396,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",85,PETSC_ERROR_INITIAL
,"Null Object: Parameter # %d",2); if (!PetscCheckPointer(sf,
PETSC_OBJECT)) return PetscError(((MPI_Comm)0x44000001),1396,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,2); if (((PetscObject)(sf))->classid != PETSCSF_CLASSID) {
if (((PetscObject)(sf))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1396,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,2); else return PetscError(((MPI_Comm)0x44000001),1396,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",2); } } while (0);

1397

if (label) {

1398

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1398
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1398,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1398,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1398,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1399

ierr = DMLabelMakeAllValid_Private(label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1399,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1400

}

1401

ierr = PetscObjectGetComm((PetscObject)sf, &comm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1401,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1402

ierr = MPI_Comm_rank(comm, &rank);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1402,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1403

/* Bcast name */

1404

if (!rank) {

1405

ierr = PetscObjectGetName((PetscObject) label, &lname);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1405,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1406

ierr = PetscStrlen(lname, &len);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1406,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1407

}

1408

nameSize = len;

1409

ierr = MPI_Bcast(&nameSize, 1, MPIU_INT, 0, comm)((petsc_allreduce_ct += PetscMPIParallelComm((comm)),0) || MPI_Bcast
((&nameSize),(1),(((MPI_Datatype)0x4c000405)),(0),(comm))
);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1409,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1410

ierr = PetscMalloc1(nameSize+1, &name)PetscMallocA(1,PETSC_FALSE,1410,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(nameSize+1)*sizeof(**(&name)),(&name));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1410,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1411

if (!rank) {ierr = PetscMemcpy(name, lname, nameSize+1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1411,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1412

ierr = MPI_Bcast(name, nameSize+1, MPI_CHAR, 0, comm)((petsc_allreduce_ct += PetscMPIParallelComm((comm)),0) || MPI_Bcast
((name),(nameSize+1),(((MPI_Datatype)0x4c000101)),(0),(comm))
);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1412,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1413

ierr = DMLabelCreate(PETSC_COMM_SELF((MPI_Comm)0x44000001), name, labelNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1413,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1414

ierr = PetscFree(name)((*PetscTrFree)((void*)(name),1414,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((name) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1414,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1415

/* Bcast defaultValue */

1416

if (!rank) (*labelNew)->defaultValue = label->defaultValue;

1417

ierr = MPI_Bcast(&(*labelNew)->defaultValue, 1, MPIU_INT, 0, comm)((petsc_allreduce_ct += PetscMPIParallelComm((comm)),0) || MPI_Bcast
((&(*labelNew)->defaultValue),(1),(((MPI_Datatype)0x4c000405
)),(0),(comm)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1417,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1418

/* Distribute stratum values over the SF and get the point mapping on the receiver */

1419

ierr = DMLabelDistribute_Internal(label, sf, &leafSection, &leafStrata);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1419,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1420

/* Determine received stratum values and initialise new label*/

1421

ierr = PetscHSetICreate(&stratumHash);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1421,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1422

ierr = PetscSectionGetStorageSize(leafSection, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1422,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1423

for (p = 0; p < size; ++p) {ierr = PetscHSetIAdd(stratumHash, leafStrata[p]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1423,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1424

ierr = PetscHSetIGetSize(stratumHash, &(*labelNew)->numStrata);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1424,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1425

ierr = PetscMalloc1((*labelNew)->numStrata, &(*labelNew)->validIS)PetscMallocA(1,PETSC_FALSE,1425,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->numStrata)*sizeof(**(&(*labelNew
)->validIS)),(&(*labelNew)->validIS));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1425,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1426

for (s = 0; s < (*labelNew)->numStrata; ++s) (*labelNew)->validIS[s] = PETSC_TRUE;

1427

ierr = PetscMalloc1((*labelNew)->numStrata, &(*labelNew)->stratumValues)PetscMallocA(1,PETSC_FALSE,1427,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->numStrata)*sizeof(**(&(*labelNew
)->stratumValues)),(&(*labelNew)->stratumValues));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1427,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1428

/* Turn leafStrata into indices rather than stratum values */

1429

offset = 0;

1430

ierr = PetscHSetIGetElems(stratumHash, &offset, (*labelNew)->stratumValues);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1430,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1431

ierr = PetscSortInt((*labelNew)->numStrata,(*labelNew)->stratumValues);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1431,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1432

for (s = 0; s < (*labelNew)->numStrata; ++s) {

1433

ierr = PetscHMapISet((*labelNew)->hmap, (*labelNew)->stratumValues[s], s);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1433,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1434

}

1435

for (p = 0; p < size; ++p) {

1436

for (s = 0; s < (*labelNew)->numStrata; ++s) {

1437

if (leafStrata[p] == (*labelNew)->stratumValues[s]) {leafStrata[p] = s; break;}

1438

}

1439

}

1440

/* Rebuild the point strata on the receiver */

1441

ierr = PetscCalloc1((*labelNew)->numStrata,&(*labelNew)->stratumSizes)PetscMallocA(1,PETSC_TRUE,1441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->numStrata)*sizeof(**(&(*labelNew
)->stratumSizes)),(&(*labelNew)->stratumSizes));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1441,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1442

ierr = PetscSectionGetChart(leafSection, &pStart, &pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1442,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1443

for (p=pStart; p<pEnd; p++) {

1444

ierr = PetscSectionGetDof(leafSection, p, &dof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1444,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1445

ierr = PetscSectionGetOffset(leafSection, p, &offset);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1445,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1446

for (s=0; s<dof; s++) {

1447

(*labelNew)->stratumSizes[leafStrata[offset+s]]++;

1448

}

1449

}

1450

ierr = PetscCalloc1((*labelNew)->numStrata,&(*labelNew)->ht)PetscMallocA(1,PETSC_TRUE,1450,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->numStrata)*sizeof(**(&(*labelNew
)->ht)),(&(*labelNew)->ht));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1450,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1451

ierr = PetscMalloc1((*labelNew)->numStrata,&(*labelNew)->points)PetscMallocA(1,PETSC_FALSE,1451,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->numStrata)*sizeof(**(&(*labelNew
)->points)),(&(*labelNew)->points));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1451,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1452

ierr = PetscMalloc1((*labelNew)->numStrata,&points)PetscMallocA(1,PETSC_FALSE,1452,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->numStrata)*sizeof(**(&points)),
(&points));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1452,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1453

for (s = 0; s < (*labelNew)->numStrata; ++s) {

1454

ierr = PetscHSetICreate(&(*labelNew)->ht[s]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1454,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1455

ierr = PetscMalloc1((*labelNew)->stratumSizes[s], &(points[s]))PetscMallocA(1,PETSC_FALSE,1455,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->stratumSizes[s])*sizeof(**(&(points
[s]))),(&(points[s])));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1455,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1456

}

1457

/* Insert points into new strata */

1458

ierr = PetscCalloc1((*labelNew)->numStrata, &strataIdx)PetscMallocA(1,PETSC_TRUE,1458,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)((*labelNew)->numStrata)*sizeof(**(&strataIdx
)),(&strataIdx));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1458,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1459

ierr = PetscSectionGetChart(leafSection, &pStart, &pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1459,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1460

for (p=pStart; p<pEnd; p++) {

1461

ierr = PetscSectionGetDof(leafSection, p, &dof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1461,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1462

ierr = PetscSectionGetOffset(leafSection, p, &offset);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1462,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1463

for (s=0; s<dof; s++) {

1464

stratum = leafStrata[offset+s];

1465

points[stratum][strataIdx[stratum]++] = p;

1466

}

1467

}

1468

for (s = 0; s < (*labelNew)->numStrata; s++) {

1469

ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001),(*labelNew)->stratumSizes[s],&(points[s][0]),PETSC_OWN_POINTER,&((*labelNew)->points[s]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1469,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1470

ierr = PetscObjectSetName((PetscObject)((*labelNew)->points[s]),"indices");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1470,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1471

}

1472

ierr = PetscFree(points)((*PetscTrFree)((void*)(points),1472,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((points) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1472,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1473

ierr = PetscHSetIDestroy(&stratumHash);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1473,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1474

ierr = PetscFree(leafStrata)((*PetscTrFree)((void*)(leafStrata),1474,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((leafStrata) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1474,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1475

ierr = PetscFree(strataIdx)((*PetscTrFree)((void*)(strataIdx),1475,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((strataIdx) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1475,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1476

ierr = PetscSectionDestroy(&leafSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1476,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1477

1478

}

1479

1480

/*@

1481

DMLabelGather - Gather all label values from leafs into roots

1482

1483

Input Parameters:

1484

+ label - the DMLabel

1485

- sf - the Star Forest point communication map

1486

1487

Output Parameters:

1488

. labelNew - the new DMLabel with localised leaf values

1489

1490

Level: developer

1491

1492

Note: This is the inverse operation to DMLabelDistribute.

1493

1494

.seealso: DMLabelDistribute()

1495

@*/

1496

PetscErrorCode DMLabelGather(DMLabel label, PetscSF sf, DMLabel *labelNew)

1497

{

1498

MPI_Comm comm;

1499

PetscSection rootSection;

1500

PetscSF sfLabel;

1501

PetscSFNode *rootPoints, *leafPoints;

1502

PetscInt p, s, d, nroots, nleaves, nmultiroots, idx, dof, offset;

1503

const PetscInt *rootDegree, *ilocal;

1504

PetscInt *rootStrata;

1505

const char *lname;

1506

char *name;

1507

PetscInt nameSize;

1508

size_t len = 0;

1509

PetscMPIInt rank, size;

1510

PetscErrorCode ierr;

1511

1512

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1512; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1513

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1513
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1513,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1513,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1514

PetscValidHeaderSpecific(sf, PETSCSF_CLASSID, 2)do { if (!sf) return PetscError(((MPI_Comm)0x44000001),1514,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",85,PETSC_ERROR_INITIAL
,"Null Object: Parameter # %d",2); if (!PetscCheckPointer(sf,
PETSC_OBJECT)) return PetscError(((MPI_Comm)0x44000001),1514,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,2); if (((PetscObject)(sf))->classid != PETSCSF_CLASSID) {
if (((PetscObject)(sf))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1514,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,2); else return PetscError(((MPI_Comm)0x44000001),1514,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",2); } } while (0);

1515

ierr = PetscObjectGetComm((PetscObject)sf, &comm);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1515,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1516

ierr = MPI_Comm_rank(comm, &rank);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1516,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1517

ierr = MPI_Comm_size(comm, &size);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1517,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1518

/* Bcast name */

1519

if (!rank) {

1520

ierr = PetscObjectGetName((PetscObject) label, &lname);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1520,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1521

ierr = PetscStrlen(lname, &len);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1521,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1522

}

1523

nameSize = len;

1524

ierr = MPI_Bcast(&nameSize, 1, MPIU_INT, 0, comm)((petsc_allreduce_ct += PetscMPIParallelComm((comm)),0) || MPI_Bcast
((&nameSize),(1),(((MPI_Datatype)0x4c000405)),(0),(comm))
);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1524,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1525

ierr = PetscMalloc1(nameSize+1, &name)PetscMallocA(1,PETSC_FALSE,1525,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(nameSize+1)*sizeof(**(&name)),(&name));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1525,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1526

if (!rank) {ierr = PetscMemcpy(name, lname, nameSize+1);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1526,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1527

ierr = MPI_Bcast(name, nameSize+1, MPI_CHAR, 0, comm)((petsc_allreduce_ct += PetscMPIParallelComm((comm)),0) || MPI_Bcast
((name),(nameSize+1),(((MPI_Datatype)0x4c000101)),(0),(comm))
);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1527,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1528

ierr = DMLabelCreate(PETSC_COMM_SELF((MPI_Comm)0x44000001), name, labelNew);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1528,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1529

ierr = PetscFree(name)((*PetscTrFree)((void*)(name),1529,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((name) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1529,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1530

/* Gather rank/index pairs of leaves into local roots to build

1531

an inverse, multi-rooted SF. Note that this ignores local leaf

1532

indexing due to the use of the multiSF in PetscSFGather. */

1533

ierr = PetscSFGetGraph(sf, &nroots, &nleaves, &ilocal, NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1533,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1534

ierr = PetscMalloc1(nroots, &leafPoints)PetscMallocA(1,PETSC_FALSE,1534,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(nroots)*sizeof(**(&leafPoints)),(&leafPoints
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1534,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1535

for (p = 0; p < nroots; ++p) leafPoints[p].rank = leafPoints[p].index = -1;

1536

for (p = 0; p < nleaves; p++) {

1537

PetscInt ilp = ilocal ? ilocal[p] : p;

1538

1539

leafPoints[ilp].index = ilp;

1540

leafPoints[ilp].rank = rank;

1541

}

1542

ierr = PetscSFComputeDegreeBegin(sf, &rootDegree);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1542,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1543

ierr = PetscSFComputeDegreeEnd(sf, &rootDegree);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1543,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1544

for (p = 0, nmultiroots = 0; p < nroots; ++p) nmultiroots += rootDegree[p];

1545

ierr = PetscMalloc1(nmultiroots, &rootPoints)PetscMallocA(1,PETSC_FALSE,1545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(nmultiroots)*sizeof(**(&rootPoints)),(&rootPoints
));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1545,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1546

ierr = PetscSFGatherBegin(sf, MPIU_2INT((MPI_Datatype)0x4c000816), leafPoints, rootPoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1546,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1547

ierr = PetscSFGatherEnd(sf, MPIU_2INT((MPI_Datatype)0x4c000816), leafPoints, rootPoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1547,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1548

ierr = PetscSFCreate(comm,& sfLabel);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1548,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1549

ierr = PetscSFSetGraph(sfLabel, nroots, nmultiroots, NULL((void*)0), PETSC_OWN_POINTER, rootPoints, PETSC_OWN_POINTER);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1549,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1550

/* Migrate label over inverted SF to pull stratum values at leaves into roots. */

1551

ierr = DMLabelDistribute_Internal(label, sfLabel, &rootSection, &rootStrata);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1551,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1552

/* Rebuild the point strata on the receiver */

1553

for (p = 0, idx = 0; p < nroots; p++) {

1554

for (d = 0; d < rootDegree[p]; d++) {

1555

ierr = PetscSectionGetDof(rootSection, idx+d, &dof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1555,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1556

ierr = PetscSectionGetOffset(rootSection, idx+d, &offset);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1556,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1557

for (s = 0; s < dof; s++) {ierr = DMLabelSetValue(*labelNew, p, rootStrata[offset+s]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1557,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1558

}

1559

idx += rootDegree[p];

1560

}

1561

ierr = PetscFree(leafPoints)((*PetscTrFree)((void*)(leafPoints),1561,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((leafPoints) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1561,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1562

ierr = PetscFree(rootStrata)((*PetscTrFree)((void*)(rootStrata),1562,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((rootStrata) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1562,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1563

ierr = PetscSectionDestroy(&rootSection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1563,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1564

ierr = PetscSFDestroy(&sfLabel);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1564,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1565

1566

}

1567

1568

/*@

1569

DMLabelConvertToSection - Make a PetscSection/IS pair that encodes the label

1570

1571

Input Parameter:

1572

. label - the DMLabel

1573

1574

Output Parameters:

1575

+ section - the section giving offsets for each stratum

1576

- is - An IS containing all the label points

1577

1578

Level: developer

1579

1580

.seealso: DMLabelDistribute()

1581

@*/

1582

PetscErrorCode DMLabelConvertToSection(DMLabel label, PetscSection *section, IS *is)

1583

{

1584

IS vIS;

1585

const PetscInt *values;

1586

PetscInt *points;

1587

PetscInt nV, vS = 0, vE = 0, v, N;

1588

PetscErrorCode ierr;

1589

1590

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1590; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1591

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 1)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1591
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1591,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1591,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1591,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1592

ierr = DMLabelGetNumValues(label, &nV);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1592,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1593

ierr = DMLabelGetValueIS(label, &vIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1593,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1594

ierr = ISGetIndices(vIS, &values);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1594,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1595

if (nV) {vS = values[0]; vE = values[0]+1;}

1596

for (v = 1; v < nV; ++v) {

1597

vS = PetscMin(vS, values[v])(((vS)<(values[v])) ? (vS) : (values[v]));

1598

vE = PetscMax(vE, values[v]+1)(((vE)<(values[v]+1)) ? (values[v]+1) : (vE));

1599

}

1600

ierr = PetscSectionCreate(PETSC_COMM_SELF((MPI_Comm)0x44000001), section);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1600,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1601

ierr = PetscSectionSetChart(*section, vS, vE);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1601,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1602

for (v = 0; v < nV; ++v) {

1603

PetscInt n;

1604

1605

ierr = DMLabelGetStratumSize(label, values[v], &n);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1605,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1606

ierr = PetscSectionSetDof(*section, values[v], n);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1606,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1607

}

1608

ierr = PetscSectionSetUp(*section);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1608,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1609

ierr = PetscSectionGetStorageSize(*section, &N);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1609,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1610

ierr = PetscMalloc1(N, &points)PetscMallocA(1,PETSC_FALSE,1610,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(N)*sizeof(**(&points)),(&points));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1610,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1611

for (v = 0; v < nV; ++v) {

1612

IS is;

1613

const PetscInt *spoints;

1614

PetscInt dof, off, p;

1615

1616

ierr = PetscSectionGetDof(*section, values[v], &dof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1616,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1617

ierr = PetscSectionGetOffset(*section, values[v], &off);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1617,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1618

ierr = DMLabelGetStratumIS(label, values[v], &is);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1618,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1619

ierr = ISGetIndices(is, &spoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1619,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1620

for (p = 0; p < dof; ++p) points[off+p] = spoints[p];

1621

ierr = ISRestoreIndices(is, &spoints);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1621,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1622

ierr = ISDestroy(&is);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1622,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1623

}

1624

ierr = ISRestoreIndices(vIS, &values);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1624,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1625

ierr = ISDestroy(&vIS);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1625,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1626

ierr = ISCreateGeneral(PETSC_COMM_SELF((MPI_Comm)0x44000001), N, points, PETSC_OWN_POINTER, is);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1626,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1627

1628

}

1629

1630

/*@

1631

PetscSectionCreateGlobalSectionLabel - Create a section describing the global field layout using

1632

the local section and an SF describing the section point overlap.

1633

1634

Input Parameters:

1635

+ s - The PetscSection for the local field layout

1636

. sf - The SF describing parallel layout of the section points

1637

. includeConstraints - By default this is PETSC_FALSE, meaning that the global field vector will not possess constrained dofs

1638

. label - The label specifying the points

1639

- labelValue - The label stratum specifying the points

1640

1641

Output Parameter:

1642

. gsection - The PetscSection for the global field layout

1643

1644

Note: This gives negative sizes and offsets to points not owned by this process

1645

1646

Level: developer

1647

1648

.seealso: PetscSectionCreate()

1649

@*/

1650

PetscErrorCode PetscSectionCreateGlobalSectionLabel(PetscSection s, PetscSF sf, PetscBool includeConstraints, DMLabel label, PetscInt labelValue, PetscSection *gsection)

1651

{

1652

PetscInt *neg = NULL((void*)0), *tmpOff = NULL((void*)0);

1653

PetscInt pStart, pEnd, p, dof, cdof, off, globalOff = 0, nroots;

1654

PetscErrorCode ierr;

1655

1656

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1656; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1657

PetscValidHeaderSpecific(s, PETSC_SECTION_CLASSID, 1)do { if (!s) return PetscError(((MPI_Comm)0x44000001),1657,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",85,PETSC_ERROR_INITIAL
,"Null Object: Parameter # %d",1); if (!PetscCheckPointer(s,PETSC_OBJECT
)) return PetscError(((MPI_Comm)0x44000001),1657,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(s))->classid != PETSC_SECTION_CLASSID
) { if (((PetscObject)(s))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1657,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1657,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1658

PetscValidHeaderSpecific(sf, PETSCSF_CLASSID, 2)do { if (!sf) return PetscError(((MPI_Comm)0x44000001),1658,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",85,PETSC_ERROR_INITIAL
,"Null Object: Parameter # %d",2); if (!PetscCheckPointer(sf,
PETSC_OBJECT)) return PetscError(((MPI_Comm)0x44000001),1658,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,2); if (((PetscObject)(sf))->classid != PETSCSF_CLASSID) {
if (((PetscObject)(sf))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1658,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,2); else return PetscError(((MPI_Comm)0x44000001),1658,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",2); } } while (0);

1659

PetscValidHeaderSpecific(label, DMLABEL_CLASSID, 4)do { if (!label) return PetscError(((MPI_Comm)0x44000001),1659
,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",4); if (
!PetscCheckPointer(label,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1659,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,4); if (((PetscObject)(label))->classid != DMLABEL_CLASSID
) { if (((PetscObject)(label))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1659,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,4); else return PetscError(((MPI_Comm)0x44000001),1659,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",4); } } while (0);

1660

ierr = PetscSectionCreate(PetscObjectComm((PetscObject) s), gsection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1660,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1661

ierr = PetscSectionGetChart(s, &pStart, &pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1661,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1662

ierr = PetscSectionSetChart(*gsection, pStart, pEnd);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1662,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1663

ierr = PetscSFGetGraph(sf, &nroots, NULL((void*)0), NULL((void*)0), NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1663,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1664

if (nroots >= 0) {

1665

if (nroots < pEnd-pStart) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_SIZ, "PetscSF nroots %d < %d section size", nroots, pEnd-pStart)return PetscError(((MPI_Comm)0x44000001),1665,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,60,PETSC_ERROR_INITIAL,"PetscSF nroots %d < %d section size"
,nroots,pEnd-pStart);

1666

ierr = PetscCalloc1(nroots, &neg)PetscMallocA(1,PETSC_TRUE,1666,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(nroots)*sizeof(**(&neg)),(&neg));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1666,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1667

if (nroots > pEnd-pStart) {

1668

ierr = PetscCalloc1(nroots, &tmpOff)PetscMallocA(1,PETSC_TRUE,1668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(nroots)*sizeof(**(&tmpOff)),(&tmpOff));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1668,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1669

} else {

1670

tmpOff = &(*gsection)->atlasDof[-pStart];

1671

}

1672

}

1673

/* Mark ghost points with negative dof */

1674

for (p = pStart; p < pEnd; ++p) {

1675

PetscInt value;

1676

1677

ierr = DMLabelGetValue(label, p, &value);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1677,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1678

if (value != labelValue) continue;

1679

ierr = PetscSectionGetDof(s, p, &dof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1679,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1680

ierr = PetscSectionSetDof(*gsection, p, dof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1680,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1681

ierr = PetscSectionGetConstraintDof(s, p, &cdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1681,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1682

if (!includeConstraints && cdof > 0) {ierr = PetscSectionSetConstraintDof(*gsection, p, cdof);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1682,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1683

if (neg) neg[p] = -(dof+1);

1684

}

1685

ierr = PetscSectionSetUpBC(*gsection);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1685,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1686

if (nroots >= 0) {

1687

ierr = PetscSFBcastBegin(sf, MPIU_INT((MPI_Datatype)0x4c000405), neg, tmpOff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1687,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1688

ierr = PetscSFBcastEnd(sf, MPIU_INT((MPI_Datatype)0x4c000405), neg, tmpOff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1688,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1689

if (nroots > pEnd-pStart) {

1690

for (p = pStart; p < pEnd; ++p) {if (tmpOff[p] < 0) (*gsection)->atlasDof[p-pStart] = tmpOff[p];}

1691

}

1692

}

1693

/* Calculate new sizes, get proccess offset, and calculate point offsets */

1694

for (p = 0, off = 0; p < pEnd-pStart; ++p) {

1695

cdof = (!includeConstraints && s->bc) ? s->bc->atlasDof[p] : 0;

1696

(*gsection)->atlasOff[p] = off;

1697

off += (*gsection)->atlasDof[p] > 0 ? (*gsection)->atlasDof[p]-cdof : 0;

1698

}

1699

ierr = MPI_Scan(&off, &globalOff, 1, MPIU_INT((MPI_Datatype)0x4c000405), MPI_SUM(MPI_Op)(0x58000003), PetscObjectComm((PetscObject) s));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1699,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1700

globalOff -= off;

1701

for (p = 0, off = 0; p < pEnd-pStart; ++p) {

1702

(*gsection)->atlasOff[p] += globalOff;

1703

if (neg) neg[p] = -((*gsection)->atlasOff[p]+1);

1704

}

1705

/* Put in negative offsets for ghost points */

1706

if (nroots >= 0) {

1707

ierr = PetscSFBcastBegin(sf, MPIU_INT((MPI_Datatype)0x4c000405), neg, tmpOff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1707,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1708

ierr = PetscSFBcastEnd(sf, MPIU_INT((MPI_Datatype)0x4c000405), neg, tmpOff);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1708,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1709

if (nroots > pEnd-pStart) {

1710

for (p = pStart; p < pEnd; ++p) {if (tmpOff[p] < 0) (*gsection)->atlasOff[p-pStart] = tmpOff[p];}

1711

}

1712

}

1713

if (nroots >= 0 && nroots > pEnd-pStart) {ierr = PetscFree(tmpOff)((*PetscTrFree)((void*)(tmpOff),1713,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((tmpOff) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1713,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1714

ierr = PetscFree(neg)((*PetscTrFree)((void*)(neg),1714,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((neg) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1714,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1715

1716

}

1717

1718

typedef struct _n_PetscSectionSym_Label

1719

{

1720

DMLabel label;

1721

PetscCopyMode *modes;

1722

PetscInt *sizes;

1723

const PetscInt ***perms;

1724

const PetscScalar ***rots;

1725

PetscInt (*minMaxOrients)[2];

1726

PetscInt numStrata; /* numStrata is only increasing, functions as a state */

1727

} PetscSectionSym_Label;

1728

1729

static PetscErrorCode PetscSectionSymLabelReset(PetscSectionSym sym)

1730

{

1731

PetscInt i, j;

1732

PetscSectionSym_Label *sl = (PetscSectionSym_Label *) sym->data;

1733

PetscErrorCode ierr;

1734

1735

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1735; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1736

for (i = 0; i <= sl->numStrata; i++) {

1737

if (sl->modes[i] == PETSC_OWN_POINTER || sl->modes[i] == PETSC_COPY_VALUES) {

1738

for (j = sl->minMaxOrients[i][0]; j < sl->minMaxOrients[i][1]; j++) {

1739

if (sl->perms[i]) {ierr = PetscFree(sl->perms[i][j])((*PetscTrFree)((void*)(sl->perms[i][j]),1739,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((sl->perms[i][j]) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1739,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1740

if (sl->rots[i]) {ierr = PetscFree(sl->rots[i][j])((*PetscTrFree)((void*)(sl->rots[i][j]),1740,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((sl->rots[i][j]) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1740,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1741

}

1742

if (sl->perms[i]) {

1743

const PetscInt **perms = &sl->perms[i][sl->minMaxOrients[i][0]];

1744

1745

ierr = PetscFree(perms)((*PetscTrFree)((void*)(perms),1745,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((perms) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1745,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1746

}

1747

if (sl->rots[i]) {

1748

const PetscScalar **rots = &sl->rots[i][sl->minMaxOrients[i][0]];

1749

1750

ierr = PetscFree(rots)((*PetscTrFree)((void*)(rots),1750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((rots) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1750,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1751

}

1752

}

1753

}

1754

ierr = PetscFree5(sl->modes,sl->sizes,sl->perms,sl->rots,sl->minMaxOrients)PetscFreeA(5,1754,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,&(sl->modes),&(sl->sizes),&(sl->perms),
&(sl->rots),&(sl->minMaxOrients));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1754,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1755

ierr = DMLabelDestroy(&sl->label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1755,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1756

sl->numStrata = 0;

1757

1758

}

1759

1760

static PetscErrorCode PetscSectionSymDestroy_Label(PetscSectionSym sym)

1761

{

1762

PetscErrorCode ierr;

1763

1764

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1764; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1765

ierr = PetscSectionSymLabelReset(sym);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1765,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1766

ierr = PetscFree(sym->data)((*PetscTrFree)((void*)(sym->data),1766,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
) || ((sym->data) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1766,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1767

1768

}

1769

1770

static PetscErrorCode PetscSectionSymView_Label(PetscSectionSym sym, PetscViewer viewer)

1771

{

1772

PetscSectionSym_Label *sl = (PetscSectionSym_Label *) sym->data;

1773

PetscBool isAscii;

1774

DMLabel label = sl->label;

'label' initialized here

→

1775

const char *name;

1776

PetscErrorCode ierr;

1777

1778

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1778; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1779

ierr = PetscObjectTypeCompare((PetscObject) viewer, PETSCVIEWERASCII"ascii", &isAscii);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1779,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1780

if (isAscii) {

←

Assuming 'isAscii' is not equal to 0

→

←

Taking true branch

→

1781

PetscInt i, j, k;

1782

PetscViewerFormat format;

1783

1784

ierr = PetscViewerGetFormat(viewer,&format);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1784,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1785

if (label) {

←

Assuming 'label' is null

→

←

Taking false branch

→

1786

ierr = PetscViewerGetFormat(viewer,&format);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1786,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1787

if (format == PETSC_VIEWER_ASCII_INFO_DETAIL) {

1788

ierr = PetscViewerASCIIPushTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1788,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1789

ierr = DMLabelView(label, viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1789,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1790

ierr = PetscViewerASCIIPopTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1790,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1791

} else {

1792

ierr = PetscObjectGetName((PetscObject) sl->label, &name);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1792,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1793

ierr = PetscViewerASCIIPrintf(viewer," Label '%s'\n",name);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1793,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1794

}

1795

} else {

1796

ierr = PetscViewerASCIIPrintf(viewer, "No label given\n");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1796,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1797

}

1798

ierr = PetscViewerASCIIPushTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1798,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1799

for (i = 0; i <= sl->numStrata; i++) {

←

Assuming the condition is true

→

←

Loop condition is true. Entering loop body

→

1800

PetscInt value = i < sl->numStrata ? label->stratumValues[i] : label->defaultValue;

←

Assuming the condition is false

→

←

'?' condition is false

→

←

Access to field 'defaultValue' results in a dereference of a null pointer (loaded from variable 'label')

1801

1802

if (!(sl->perms[i] || sl->rots[i])) {

1803

ierr = PetscViewerASCIIPrintf(viewer, "Symmetry for stratum value %D (%D dofs per point): no symmetries\n", value, sl->sizes[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1803,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1804

} else {

1805

ierr = PetscViewerASCIIPrintf(viewer, "Symmetry for stratum value %D (%D dofs per point):\n", value, sl->sizes[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1805,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1806

ierr = PetscViewerASCIIPushTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1806,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1807

ierr = PetscViewerASCIIPrintf(viewer, "Orientation range: [%D, %D)\n", sl->minMaxOrients[i][0], sl->minMaxOrients[i][1]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1807,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1808

if (format == PETSC_VIEWER_ASCII_INFO_DETAIL) {

1809

ierr = PetscViewerASCIIPushTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1809,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1810

for (j = sl->minMaxOrients[i][0]; j < sl->minMaxOrients[i][1]; j++) {

1811

if (!((sl->perms[i] && sl->perms[i][j]) || (sl->rots[i] && sl->rots[i][j]))) {

1812

ierr = PetscViewerASCIIPrintf(viewer, "Orientation %D: identity\n",j);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1812,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1813

} else {

1814

PetscInt tab;

1815

1816

ierr = PetscViewerASCIIPrintf(viewer, "Orientation %D:\n",j);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1816,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1817

ierr = PetscViewerASCIIPushTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1817,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1818

ierr = PetscViewerASCIIGetTab(viewer,&tab);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1818,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1819

if (sl->perms[i] && sl->perms[i][j]) {

1820

ierr = PetscViewerASCIIPrintf(viewer,"Permutation:");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1820,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1821

ierr = PetscViewerASCIISetTab(viewer,0);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1821,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1822

for (k = 0; k < sl->sizes[i]; k++) {ierr = PetscViewerASCIIPrintf(viewer," %D",sl->perms[i][j][k]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1822,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1823

ierr = PetscViewerASCIIPrintf(viewer,"\n");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1823,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1824

ierr = PetscViewerASCIISetTab(viewer,tab);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1824,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1825

}

1826

if (sl->rots[i] && sl->rots[i][j]) {

1827

ierr = PetscViewerASCIIPrintf(viewer,"Rotations: ");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1827,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1828

ierr = PetscViewerASCIISetTab(viewer,0);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1828,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1829

#if defined(PETSC_USE_COMPLEX)

1830

for (k = 0; k < sl->sizes[i]; k++) {ierr = PetscViewerASCIIPrintf(viewer," %+f+i*%+f",PetscRealPart(sl->rots[i][j][k])(sl->rots[i][j][k]),PetscImaginaryPart(sl->rots[i][j][k])((PetscReal)0.));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1830,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1831

#else

1832

for (k = 0; k < sl->sizes[i]; k++) {ierr = PetscViewerASCIIPrintf(viewer," %+f",sl->rots[i][j][k]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1832,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1833

#endif

1834

ierr = PetscViewerASCIIPrintf(viewer,"\n");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1834,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1835

ierr = PetscViewerASCIISetTab(viewer,tab);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1835,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1836

}

1837

ierr = PetscViewerASCIIPopTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1837,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1838

}

1839

}

1840

ierr = PetscViewerASCIIPopTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1840,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1841

}

1842

ierr = PetscViewerASCIIPopTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1842,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1843

}

1844

}

1845

ierr = PetscViewerASCIIPopTab(viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1845,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1846

}

1847

1848

}

1849

1850

/*@

1851

PetscSectionSymLabelSetLabel - set the label whose strata will define the points that receive symmetries

1852

1853

Logically collective on sym

1854

1855

Input parameters:

1856

+ sym - the section symmetries

1857

- label - the DMLabel describing the types of points

1858

1859

Level: developer:

1860

1861

.seealso: PetscSectionSymLabelSetStratum(), PetscSectionSymCreateLabel(), PetscSectionGetPointSyms()

1862

@*/

1863

PetscErrorCode PetscSectionSymLabelSetLabel(PetscSectionSym sym, DMLabel label)

1864

{

1865

PetscSectionSym_Label *sl;

1866

PetscErrorCode ierr;

1867

1868

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1868; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1869

PetscValidHeaderSpecific(sym,PETSC_SECTION_SYM_CLASSID,1)do { if (!sym) return PetscError(((MPI_Comm)0x44000001),1869,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(sym,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1869,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(sym))->classid != PETSC_SECTION_SYM_CLASSID
) { if (((PetscObject)(sym))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1869,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1869,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1870

sl = (PetscSectionSym_Label *) sym->data;

1871

if (sl->label && sl->label != label) {ierr = PetscSectionSymLabelReset(sym);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1871,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

1872

if (label) {

1873

sl->label = label;

1874

ierr = PetscObjectReference((PetscObject) label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1874,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1875

ierr = DMLabelGetNumValues(label,&sl->numStrata);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1875,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1876

ierr = PetscMalloc5(sl->numStrata+1,&sl->modes,sl->numStrata+1,&sl->sizes,sl->numStrata+1,&sl->perms,sl->numStrata+1,&sl->rots,sl->numStrata+1,&sl->minMaxOrients)PetscMallocA(5,PETSC_FALSE,1876,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(sl->numStrata+1)*sizeof(**(&sl->modes)),(
&sl->modes),(size_t)(sl->numStrata+1)*sizeof(**(&
sl->sizes)),(&sl->sizes),(size_t)(sl->numStrata+
1)*sizeof(**(&sl->perms)),(&sl->perms),(size_t)
(sl->numStrata+1)*sizeof(**(&sl->rots)),(&sl->
rots),(size_t)(sl->numStrata+1)*sizeof(**(&sl->minMaxOrients
)),(&sl->minMaxOrients));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1876,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1877

ierr = PetscMemzero((void *) sl->modes,(sl->numStrata+1)*sizeof(PetscCopyMode));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1877,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1878

ierr = PetscMemzero((void *) sl->sizes,(sl->numStrata+1)*sizeof(PetscInt));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1878,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1879

ierr = PetscMemzero((void *) sl->perms,(sl->numStrata+1)*sizeof(const PetscInt **));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1879,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1880

ierr = PetscMemzero((void *) sl->rots,(sl->numStrata+1)*sizeof(const PetscScalar **));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1880,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1881

ierr = PetscMemzero((void *) sl->minMaxOrients,(sl->numStrata+1)*sizeof(PetscInt[2]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1881,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1882

}

1883

1884

}

1885

1886

/*@C

1887

PetscSectionSymLabelSetStratum - set the symmetries for the orientations of a stratum

1888

1889

Logically collective on PetscSectionSym

1890

1891

InputParameters:

1892

+ sys - the section symmetries

1893

. stratum - the stratum value in the label that we are assigning symmetries for

1894

. size - the number of dofs for points in the stratum of the label

1895

. minOrient - the smallest orientation for a point in this stratum

1896

. maxOrient - one greater than the largest orientation for a ppoint in this stratum (i.e., orientations are in the range [minOrient, maxOrient))

1897

. mode - how sym should copy the perms and rots arrays

1898

. perms - NULL if there are no permutations, or (maxOrient - minOrient) permutations, one for each orientation. A NULL permutation is the identity

1899

+ rots - NULL if there are no rotations, or (maxOrient - minOrient) sets of rotations, one for each orientation. A NULL set of orientations is the identity

1900

1901

Level: developer

1902

1903

.seealso: PetscSectionSymCreate(), PetscSectionSetSym(), PetscSectionGetPointSyms(), PetscSectionSymCreateLabel()

1904

@*/

1905

PetscErrorCode PetscSectionSymLabelSetStratum(PetscSectionSym sym, PetscInt stratum, PetscInt size, PetscInt minOrient, PetscInt maxOrient, PetscCopyMode mode, const PetscInt **perms, const PetscScalar **rots)

1906

{

1907

PetscSectionSym_Label *sl;

1908

const char *name;

1909

PetscInt i, j, k;

1910

PetscErrorCode ierr;

1911

1912

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1912; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1913

PetscValidHeaderSpecific(sym,PETSC_SECTION_SYM_CLASSID,1)do { if (!sym) return PetscError(((MPI_Comm)0x44000001),1913,
__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(sym,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),1913,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(sym))->classid != PETSC_SECTION_SYM_CLASSID
) { if (((PetscObject)(sym))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),1913,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),1913,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",62,PETSC_ERROR_INITIAL
,"Wrong type of object: Parameter # %d",1); } } while (0);

1914

sl = (PetscSectionSym_Label *) sym->data;

1915

if (!sl->label) SETERRQ(PetscObjectComm((PetscObject)sym),PETSC_ERR_ARG_WRONGSTATE,"No label set yet")return PetscError(PetscObjectComm((PetscObject)sym),1915,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",73,PETSC_ERROR_INITIAL
,"No label set yet");

1916

for (i = 0; i <= sl->numStrata; i++) {

1917

PetscInt value = (i < sl->numStrata) ? sl->label->stratumValues[i] : sl->label->defaultValue;

1918

1919

if (stratum == value) break;

1920

}

1921

ierr = PetscObjectGetName((PetscObject) sl->label, &name);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1921,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1922

if (i > sl->numStrata) SETERRQ2(PetscObjectComm((PetscObject)sym),PETSC_ERR_ARG_OUTOFRANGE,"Stratum %D not found in label %s\n",stratum,name)return PetscError(PetscObjectComm((PetscObject)sym),1922,__func__
,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c",63,PETSC_ERROR_INITIAL
,"Stratum %D not found in label %s\n",stratum,name);

1923

sl->sizes[i] = size;

1924

sl->modes[i] = mode;

1925

sl->minMaxOrients[i][0] = minOrient;

1926

sl->minMaxOrients[i][1] = maxOrient;

1927

if (mode == PETSC_COPY_VALUES) {

1928

if (perms) {

1929

PetscInt **ownPerms;

1930

1931

ierr = PetscCalloc1(maxOrient - minOrient,&ownPerms)PetscMallocA(1,PETSC_TRUE,1931,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(maxOrient - minOrient)*sizeof(**(&ownPerms)),(&
ownPerms));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1931,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1932

for (j = 0; j < maxOrient-minOrient; j++) {

1933

if (perms[j]) {

1934

ierr = PetscMalloc1(size,&ownPerms[j])PetscMallocA(1,PETSC_FALSE,1934,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(size)*sizeof(**(&ownPerms[j])),(&ownPerms[j
]));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1934,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1935

for (k = 0; k < size; k++) {ownPerms[j][k] = perms[j][k];}

1936

}

1937

}

1938

sl->perms[i] = (const PetscInt **) &ownPerms[-minOrient];

1939

}

1940

if (rots) {

1941

PetscScalar **ownRots;

1942

1943

ierr = PetscCalloc1(maxOrient - minOrient,&ownRots)PetscMallocA(1,PETSC_TRUE,1943,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(maxOrient - minOrient)*sizeof(**(&ownRots)),(&
ownRots));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1943,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1944

for (j = 0; j < maxOrient-minOrient; j++) {

1945

if (rots[j]) {

1946

ierr = PetscMalloc1(size,&ownRots[j])PetscMallocA(1,PETSC_FALSE,1946,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(size)*sizeof(**(&ownRots[j])),(&ownRots[j])
);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1946,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1947

for (k = 0; k < size; k++) {ownRots[j][k] = rots[j][k];}

1948

}

1949

}

1950

sl->rots[i] = (const PetscScalar **) &ownRots[-minOrient];

1951

}

1952

} else {

1953

sl->perms[i] = perms ? &perms[-minOrient] : NULL((void*)0);

1954

sl->rots[i] = rots ? &rots[-minOrient] : NULL((void*)0);

1955

}

1956

1957

}

1958

1959

static PetscErrorCode PetscSectionSymGetPoints_Label(PetscSectionSym sym, PetscSection section, PetscInt numPoints, const PetscInt *points, const PetscInt **perms, const PetscScalar **rots)

1960

{

1961

PetscInt i, j, numStrata;

1962

PetscSectionSym_Label *sl;

1963

DMLabel label;

1964

PetscErrorCode ierr;

1965

1966

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1966; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

1967

sl = (PetscSectionSym_Label *) sym->data;

1968

numStrata = sl->numStrata;

1969

label = sl->label;

1970

for (i = 0; i < numPoints; i++) {

1971

PetscInt point = points[2*i];

1972

PetscInt ornt = points[2*i+1];

1973

1974

for (j = 0; j < numStrata; j++) {

1975

if (label->validIS[j]) {

1976

PetscInt k;

1977

1978

ierr = ISLocate(label->points[j],point,&k);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1978,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1979

if (k >= 0) break;

1980

} else {

1981

PetscBool has;

1982

1983

ierr = PetscHSetIHas(label->ht[j], point, &has);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),1983,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

1984

if (has) break;

1985

}

1986

}

1987

if ((sl->minMaxOrients[j][1] > sl->minMaxOrients[j][0]) && (ornt < sl->minMaxOrients[j][0] || ornt >= sl->minMaxOrients[j][1])) SETERRQ5(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"point %D orientation %D not in range [%D, %D) for stratum %D",point,ornt,sl->minMaxOrients[j][0],sl->minMaxOrients[j][1],j < numStrata ? label->stratumValues[j] : label->defaultValue)return PetscError(((MPI_Comm)0x44000001),1987,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,63,PETSC_ERROR_INITIAL,"point %D orientation %D not in range [%D, %D) for stratum %D"
,point,ornt,sl->minMaxOrients[j][0],sl->minMaxOrients[j
][1],j < numStrata ? label->stratumValues[j] : label->
defaultValue);

1988

if (perms) {perms[i] = sl->perms[j] ? sl->perms[j][ornt] : NULL((void*)0);}

1989

if (rots) {rots[i] = sl->rots[j] ? sl->rots[j][ornt] : NULL((void*)0);}

1990

}

1991

1992

}

1993

1994

PetscErrorCode PetscSectionSymCreate_Label(PetscSectionSym sym)

1995

{

1996

PetscSectionSym_Label *sl;

1997

PetscErrorCode ierr;

1998

1999

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 1999; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

2000

ierr = PetscNewLog(sym,&sl)(PetscMallocA(1,PETSC_TRUE,2000,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,(size_t)(1)*sizeof(**(((&sl)))),(((&sl)))) || PetscLogObjectMemory
((PetscObject)sym,sizeof(**(&sl))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2000,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

2001

sym->ops->getpoints = PetscSectionSymGetPoints_Label;

2002

sym->ops->view = PetscSectionSymView_Label;

2003

sym->ops->destroy = PetscSectionSymDestroy_Label;

2004

sym->data = (void *) sl;

2005

2006

}

2007

2008

/*@

2009

PetscSectionSymCreateLabel - Create a section symmetry that assigns one symmetry to each stratum of a label

2010

2011

Collective

2012

2013

Input Parameters:

2014

+ comm - the MPI communicator for the new symmetry

2015

- label - the label defining the strata

2016

2017

Output Parameters:

2018

. sym - the section symmetries

2019

2020

Level: developer

2021

2022

.seealso: PetscSectionSymCreate(), PetscSectionSetSym(), PetscSectionGetSym(), PetscSectionSymLabelSetStratum(), PetscSectionGetPointSyms()

2023

@*/

2024

PetscErrorCode PetscSectionSymCreateLabel(MPI_Comm comm, DMLabel label, PetscSectionSym *sym)

2025

{

2026

PetscErrorCode ierr;

2027

2028

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"; petscstack
->line[petscstack->currentsize] = 2028; petscstack->
petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

2029

ierr = DMInitializePackage();CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2029,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

2030

ierr = PetscSectionSymCreate(comm,sym);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2030,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

2031

ierr = PetscSectionSymSetType(*sym,PETSCSECTIONSYMLABEL"label");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2031,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

2032

ierr = PetscSectionSymLabelSetLabel(*sym,label);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),2032,__func__,"/sandbox/petsc/petsc.next-tmp/src/dm/label/dmlabel.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

2033

2034

}