24   PetscInt          nfields;  member
132         for (j = 0; j < ilink->nfields; j++) {  in PCView_FieldSplit()
216         for (j = 0; j < ilink->nfields; j++) {  in PCView_FieldSplit_Schur()
316       for (j = 0; j < ilink->nfields; j++) {  in PCView_FieldSplit_GKB()
354   PetscInt       bs, i, nfields, *ifields, nfields_col, *ifields_col;  in PCFieldSplitSetRuntimeSplits_Private()  local
370     nfields     = bs;  in PCFieldSplitSetRuntimeSplits_Private()
372 …Array(((PetscObject)pc)->options, ((PetscObject)pc)->prefix, optionname, ifields, &nfields, &flg));  in PCFieldSplitSetRuntimeSplits_Private()
376       PetscCheck(nfields, PETSC_COMM_SELF, PETSC_ERR_USER, "Cannot list zero fields");  in PCFieldSplitSetRuntimeSplits_Private()
377       PetscCall(PCFieldSplitSetFields(pc, splitname, nfields, ifields, ifields));  in PCFieldSplitSetRuntimeSplits_Private()
379 …    PetscCheck(nfields && nfields_col, PETSC_COMM_SELF, PETSC_ERR_USER, "Cannot list zero fields");  in PCFieldSplitSetRuntimeSplits_Private()
380 …PetscCheck(nfields == nfields_col, PETSC_COMM_SELF, PETSC_ERR_USER, "Number of row and column fiel…  in PCFieldSplitSetRuntimeSplits_Private()
381       PetscCall(PCFieldSplitSetFields(pc, splitname, nfields, ifields, ifields_col));  in PCFieldSplitSetRuntimeSplits_Private()
422         PetscInt nfields = numFields;  in PCFieldSplitSetDefaults()  local
425 …Array(((PetscObject)pc)->options, ((PetscObject)pc)->prefix, optionname, ifields, &nfields, &flg));  in PCFieldSplitSetDefaults()
428         PetscCall(DMCreateSubDM(pc->dm, nfields, ifields, &compField, &subdm[i]));  in PCFieldSplitSetDefaults()
429         if (nfields == 1) {  in PCFieldSplitSetDefaults()
436         for (j = 0; j < nfields; ++j) {  in PCFieldSplitSetDefaults()
623           for (PetscInt k = 0; k < ilink->nfields; k++) {  in PCSetUp_FieldSplit()
627           if (ilink->nfields > 1) {  in PCSetUp_FieldSplit()
628 …PetscInt *ii, *jj, j, k, nfields = ilink->nfields, *fields = ilink->fields, *fields_col = ilink->f…  in PCSetUp_FieldSplit()  local
630             PetscCall(PetscMalloc1(ilink->nfields * nslots, &ii));  in PCSetUp_FieldSplit()
631             if (!same_fields) PetscCall(PetscMalloc1(ilink->nfields * nslots, &jj));  in PCSetUp_FieldSplit()
633               for (k = 0; k < nfields; k++) {  in PCSetUp_FieldSplit()
634                 ii[nfields * j + k] = rstart + bs * j + fields[k];  in PCSetUp_FieldSplit()
635                 if (!same_fields) jj[nfields * j + k] = rstart + bs * j + fields_col[k];  in PCSetUp_FieldSplit()
638 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)pc), nslots * nfields, ii, PETSC_OWN_POINTE…  in PCSetUp_FieldSplit()
639 …ds) PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)pc), nslots * nfields, jj, PETSC_OWN_PO…  in PCSetUp_FieldSplit()
644             PetscCall(ISSetBlockSize(ilink->is, nfields));  in PCSetUp_FieldSplit()
645             PetscCall(ISSetBlockSize(ilink->is_col, nfields));  in PCSetUp_FieldSplit()
672           if (ilink->nfields > 1) {  in PCSetUp_FieldSplit()
673             for (PetscInt j = 0; j < ilink->nfields; j++) ises[j] = rowis[ilink->fields[j]];  in PCSetUp_FieldSplit()
674 …      PetscCall(ISConcatenate(PetscObjectComm((PetscObject)pc), ilink->nfields, ises, &ilink->is));  in PCSetUp_FieldSplit()
2230   ilink->nfields = n;  in PCFieldSplitSetFields_FieldSplit()