91     for (PetscInt f = 0, off = 0; f < numFields; ++f) {  in PetscSectionSelectFields_Private()  local
94       if (numComps[f] < 0) continue;  in PetscSectionSelectFields_Private()
95       PetscCall(PetscSectionGetFieldComponents(s, f, &Nc));  in PetscSectionSelectFields_Private()
96 …f] <= Nc, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Field %" PetscInt_FMT ": Number of selected …  in PetscSectionSelectFields_Private()
97 …f]; ++c, ++off) PetscCheck(comps[off] < Nc, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Field %" P…  in PetscSectionSelectFields_Private()
98       bs += numComps[f];  in PetscSectionSelectFields_Private()
101     for (PetscInt f = 0; f < numFields; ++f) {  in PetscSectionSelectFields_Private()  local
104       PetscCall(PetscSectionGetFieldComponents(s, fields[f], &Nc));  in PetscSectionSelectFields_Private()
117       for (PetscInt f = 0; f < numFields; ++f) {  in PetscSectionSelectFields_Private()  local
120         PetscCall(PetscSectionGetFieldComponents(s, f, &Nc));  in PetscSectionSelectFields_Private()
121         PetscCall(PetscSectionGetFieldDof(s, point, fields[f], &fdof));  in PetscSectionSelectFields_Private()
122         PetscCall(PetscSectionGetFieldConstraintDof(s, point, fields[f], &fcdof));  in PetscSectionSelectFields_Private()
123         if (numComps && numComps[f] >= 0) {  in PetscSectionSelectFields_Private()
128           sfdof = (fdof / Nc) * numComps[f];  in PetscSectionSelectFields_Private()
129           PetscCall(PetscSectionGetFieldConstraintIndices(s, point, fields[f], &ind));  in PetscSectionSelectFields_Private()
139           off += numComps[f];  in PetscSectionSelectFields_Private()
175       for (PetscInt f = 0; f < numFields; ++f) {  in PetscSectionSelectFields_Private()  local
179         for (PetscInt f2 = 0; f2 < fields[f]; ++f2) {  in PetscSectionSelectFields_Private()
184         PetscCall(PetscSectionGetFieldDof(s, point, fields[f], &fdof));  in PetscSectionSelectFields_Private()
185         PetscCall(PetscSectionGetFieldConstraintDof(s, point, fields[f], &fcdof));  in PetscSectionSelectFields_Private()
187         if (numComps && numComps[f] >= 0) {  in PetscSectionSelectFields_Private()
191           PetscCall(PetscSectionGetFieldConstraintIndices(s, point, fields[f], &ind));  in PetscSectionSelectFields_Private()
207           off += numComps[f];  in PetscSectionSelectFields_Private()
295     for (PetscInt f = 0; f < numFields; ++f) {  in DMSelectFields_Private()  local
298       PetscCall(DMGetField(dm, fields[f], NULL, &disc));  in DMSelectFields_Private()
299       PetscCall(DMSetField(*subdm, f, NULL, disc));  in DMSelectFields_Private()
321         PetscInt        f, g;  in DMSelectFields_Private()  local
324         for (f = 0; f < Nf; ++f) {  in DMSelectFields_Private()
326             if (fld[f] == fields[g]) break;  in DMSelectFields_Private()
330         if (f == Nf) continue;  in DMSelectFields_Private()
349           for (PetscInt f = 0, g = 0; f < onf && g < nf; ++f) {  in DMSelectFields_Private()  local
350             if (ofld[f] == fld[g]) fidx[g++] = f;  in DMSelectFields_Private()
368   for (PetscInt f = 0; f < numFields; ++f) {  in DMSelectFields_Private()  local
370       (*subdm)->nullspaceConstructors[f] = dm->nullspaceConstructors[fields[f]];  in DMSelectFields_Private()
371       if ((*subdm)->nullspaceConstructors[f]) {  in DMSelectFields_Private()
373         nf       = f;  in DMSelectFields_Private()
374         of       = fields[f];  in DMSelectFields_Private()
452   PetscInt    *Nfs, Nf = 0, f, supf, oldf = -1, nullf = -1, i;  in DMCreateSectionSuperDM()  local
523       for (f = 0; f < Nfs[i]; ++f, ++supf) {  in DMCreateSectionSuperDM()
526         PetscCall(DMGetField(dms[i], f, NULL, &disc));  in DMCreateSectionSuperDM()
537     for (f = 0; f < Nfs[i]; ++f, ++supf) {  in DMCreateSectionSuperDM()
539         (*superdm)->nullspaceConstructors[supf] = dms[i]->nullspaceConstructors[f];  in DMCreateSectionSuperDM()
543           oldf     = f;  in DMCreateSectionSuperDM()