1420     PetscInt               ll, newloc, irbs, icbs, arbs, acbs, rbs, cbs;  in MatCreateSubMatrix_IS()  local
1447     for (i = 0, newloc = 0; i < matis->sf->nleaves; i++)  in MatCreateSubMatrix_IS()
1448       if (matis->sf_leafdata[i]) newloc++;  in MatCreateSubMatrix_IS()
1449     PetscCall(PetscMalloc1(newloc, &newgidxs));  in MatCreateSubMatrix_IS()
1450     PetscCall(PetscMalloc1(newloc, &lidxs));  in MatCreateSubMatrix_IS()
1451     for (i = 0, newloc = 0; i < matis->sf->nleaves; i++)  in MatCreateSubMatrix_IS()
1453         lidxs[newloc]      = i;  in MatCreateSubMatrix_IS()
1454         newgidxs[newloc++] = matis->sf_leafdata[i] - 1;  in MatCreateSubMatrix_IS()
1456     PetscCall(ISCreateGeneral(comm, newloc, newgidxs, PETSC_OWN_POINTER, &is));  in MatCreateSubMatrix_IS()
1462     PetscCall(ISCreateGeneral(comm, newloc, lidxs, PETSC_OWN_POINTER, &newmatis->getsub_ris));  in MatCreateSubMatrix_IS()
1481       for (i = 0, newloc = 0; i < matis->csf->nleaves; i++)  in MatCreateSubMatrix_IS()
1482         if (matis->csf_leafdata[i]) newloc++;  in MatCreateSubMatrix_IS()
1483       PetscCall(PetscMalloc1(newloc, &newgidxs));  in MatCreateSubMatrix_IS()
1484       PetscCall(PetscMalloc1(newloc, &lidxs));  in MatCreateSubMatrix_IS()
1485       for (i = 0, newloc = 0; i < matis->csf->nleaves; i++)  in MatCreateSubMatrix_IS()
1487           lidxs[newloc]      = i;  in MatCreateSubMatrix_IS()
1488           newgidxs[newloc++] = matis->csf_leafdata[i] - 1;  in MatCreateSubMatrix_IS()
1490       PetscCall(ISCreateGeneral(comm, newloc, newgidxs, PETSC_OWN_POINTER, &is));  in MatCreateSubMatrix_IS()
1495       PetscCall(ISCreateGeneral(comm, newloc, lidxs, PETSC_OWN_POINTER, &newmatis->getsub_cis));  in MatCreateSubMatrix_IS()