83 PetscErrorCode DMNetworkGetNumSubNetworks(DM dm, PeOp PetscInt *nsubnet, PeOp PetscInt *Nsubnet)  in DMNetworkGetNumSubNetworks()  argument
89   if (Nsubnet) *Nsubnet = network->cloneshared->Nsubnet;  in DMNetworkGetNumSubNetworks()
107 PetscErrorCode DMNetworkSetNumSubNetworks(DM dm, PetscInt nsubnet, PetscInt Nsubnet)  in DMNetworkSetNumSubNetworks()  argument
112 …PetscCheck(network->cloneshared->Nsubnet == 0, PetscObjectComm((PetscObject)dm), PETSC_ERR_ARG_INC…  in DMNetworkSetNumSubNetworks()
116   PetscValidLogicalCollectiveInt(dm, Nsubnet, 3);  in DMNetworkSetNumSubNetworks()
118   if (Nsubnet == PETSC_DECIDE) {  in DMNetworkSetNumSubNetworks()
120 …PetscCallMPI(MPIU_Allreduce(&nsubnet, &Nsubnet, 1, MPIU_INT, MPI_SUM, PetscObjectComm((PetscObject…  in DMNetworkSetNumSubNetworks()
122 …k(Nsubnet >= 1, PetscObjectComm((PetscObject)dm), PETSC_ERR_ARG_INCOMP, "Number of global subnetwo…  in DMNetworkSetNumSubNetworks()
124   network->cloneshared->Nsubnet = Nsubnet;  in DMNetworkSetNumSubNetworks()
126   PetscCall(PetscCalloc1(Nsubnet, &network->cloneshared->subnet));  in DMNetworkSetNumSubNetworks()
533   PetscInt   *vidxlTog, Nsv, Nsubnet = network->cloneshared->Nsubnet;  in GetEdgelist_Coupling()  local
561   for (net = 0; net < Nsubnet; net++) {  in GetEdgelist_Coupling()
591   for (net = 0; net < Nsubnet; net++) {  in GetEdgelist_Coupling()
656 …PetscInt        i, j, ctr, Nsubnet = network->cloneshared->Nsubnet, np, *edges, *subnetvtx, *subne…  in DMNetworkLayoutSetUp()  local
665 …hared->nsubnet == Nsubnet, PETSC_COMM_SELF, PETSC_ERR_ARG_INCOMP, "Must call DMNetworkAddSubnetwor…  in DMNetworkLayoutSetUp()
668   for (net = 1; net < Nsubnet; net++) {  in DMNetworkLayoutSetUp()
686     for (i = 0; i < Nsubnet; i++) {  in DMNetworkLayoutSetUp()
717   for (j = 0; j < Nsubnet; j++) {  in DMNetworkLayoutSetUp()
733   for (i = 0; i < Nsubnet; i++) {  in DMNetworkLayoutSetUp()
748       if (Nsubnet == 1) {  in DMNetworkLayoutSetUp()
759       if (Nsubnet == 1) {  in DMNetworkLayoutSetUp()
820 …Nsubnet, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Subnet index %" PetscInt_FMT " exceeds the nu…  in DMNetworkGetSubnetwork()
848 …PetscInt    i, nsubnet = network->cloneshared->Nsubnet, *sedgelist, Nsvtx = network->cloneshared->…  in DMNetworkAddSharedVertices()
1655 static inline PetscErrorCode SetSubnetIdLookupBT(DM dm, PetscInt v, PetscInt Nsubnet, PetscBT btabl…  in SetSubnetIdLookupBT()  argument
1663   PetscCall(PetscBTMemzero(Nsubnet, btable));  in SetSubnetIdLookupBT()
1770 …PetscInt                 j, e, v, offset, *subnetvtx, *subnetedge, Nsubnet, gidx, svtx_idx, nv, ne…  in DMNetworkDistribute()  local
1825   newDMnetwork->cloneshared->Nsubnet = oldDMnetwork->cloneshared->Nsubnet;  in DMNetworkDistribute()
1830   PetscCall(PetscCalloc1(newDMnetwork->cloneshared->Nsubnet, &newDMnetwork->cloneshared->subnet));  in DMNetworkDistribute()
1835   Nsubnet = newDMnetwork->cloneshared->Nsubnet;  in DMNetworkDistribute()
1836   for (j = 0; j < Nsubnet; j++) {  in DMNetworkDistribute()
1857   if (newDMnetwork->cloneshared->Nsvtx) PetscCall(PetscBTCreate(Nsubnet, &btable));  in DMNetworkDistribute()
1880       PetscCall(SetSubnetIdLookupBT(newDM, v, Nsubnet, btable));  in DMNetworkDistribute()
1892   for (j = 0; j < Nsubnet; j++) nv += newDMnetwork->cloneshared->subnet[j].nvtx;  in DMNetworkDistribute()
1899   for (j = 0; j < newDMnetwork->cloneshared->Nsubnet; j++) {  in DMNetworkDistribute()
1932       PetscCall(SetSubnetIdLookupBT(newDM, v, Nsubnet, btable));  in DMNetworkDistribute()