2334   PetscInt          localsize, size, sizez, i;  in PCFieldSplitRestrictIS_FieldSplit()  local
2340   PetscCall(ISGetLocalSize(isy, &localsize));  in PCFieldSplitRestrictIS_FieldSplit()
2341 …PetscCallMPI(MPI_Scan(&localsize, &size, 1, MPIU_INT, MPI_SUM, PetscObjectComm((PetscObject)isy)));  in PCFieldSplitRestrictIS_FieldSplit()
2342   size -= localsize;  in PCFieldSplitRestrictIS_FieldSplit()
2347     PetscCall(ISGetLocalSize(isrl, &localsize));  in PCFieldSplitRestrictIS_FieldSplit()
2348     PetscCall(PetscMalloc1(localsize, &indc));  in PCFieldSplitRestrictIS_FieldSplit()
2350     PetscCall(PetscArraycpy(indc, ind, localsize));  in PCFieldSplitRestrictIS_FieldSplit()
2353     for (i = 0; i < localsize; i++) *(indc + i) += size;  in PCFieldSplitRestrictIS_FieldSplit()
2354 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)isy), localsize, indc, PETSC_OWN_POINTER, &…  in PCFieldSplitRestrictIS_FieldSplit()
2367       PetscCall(ISGetLocalSize(ilink->is, &localsize));  in PCFieldSplitRestrictIS_FieldSplit()
2370       PetscCallMPI(MPI_Scan(&localsize, &sizez, 1, MPIU_INT, MPI_SUM, comm));  in PCFieldSplitRestrictIS_FieldSplit()
2371       sizez -= localsize;  in PCFieldSplitRestrictIS_FieldSplit()
2372       PetscCall(ISGetLocalSize(iszl, &localsize));  in PCFieldSplitRestrictIS_FieldSplit()
2373       PetscCall(PetscMalloc1(localsize, &indcz));  in PCFieldSplitRestrictIS_FieldSplit()
2375       PetscCall(PetscArraycpy(indcz, indz, localsize));  in PCFieldSplitRestrictIS_FieldSplit()
2378       for (i = 0; i < localsize; i++) *(indcz + i) += sizez;  in PCFieldSplitRestrictIS_FieldSplit()
2379       PetscCall(ISCreateGeneral(comm, localsize, indcz, PETSC_OWN_POINTER, &isz));  in PCFieldSplitRestrictIS_FieldSplit()