| /petsc/src/mat/graphops/color/utils/ |
| H A D | weights.c | 41 const PetscInt *gidx; in MatColoringGetDegrees() local
66 PetscCall(ISGetIndices(ris, &gidx)); in MatColoringGetDegrees()
68 if (gidx[i] >= e || gidx[i] < s) continue; in MatColoringGetDegrees()
99 degrees[gidx[i] - s] = degree; in MatColoringGetDegrees()
101 PetscCall(ISRestoreIndices(ris, &gidx)); in MatColoringGetDegrees()
142 const PetscInt *gidx; in MatColoringCreateSmallestLastWeights() local
175 PetscCall(ISGetIndices(ris, &gidx)); in MatColoringCreateSmallestLastWeights()
295 if (gidx[i] >= s && gidx[i] < e) weights[gidx[i] - s] = lweights[i]; in MatColoringCreateSmallestLastWeights()
302 PetscCall(ISRestoreIndices(ris, &gidx)); in MatColoringCreateSmallestLastWeights()
|
| /petsc/src/snes/tutorials/network/ |
| H A D | ex1.c | 52 PetscInt v, vStart, vEnd, offset, gidx, rstart; in UserMonitor() local
70 PetscCall(DMNetworkGetGlobalVertexIndex(networkdm, v, &gidx)); in UserMonitor()
75 …WORLD, "[%d] v %" PetscInt_FMT ": color[%" PetscInt_FMT "] = %g\n", rank, gidx, offset - rstart, *… in UserMonitor()
329 PetscInt i, gidx, offset, v, nv, Nsubnet; in CoordinateVecSetUp() local
340 PetscCall(DMNetworkGetGlobalVertexIndex(dmcoords, vtx[v], &gidx)); in CoordinateVecSetUp()
344 switch (gidx) { in CoordinateVecSetUp()
406 …PetscCheck(gidx < 15 && gidx > -1, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "gidx %" PetscInt_FMT "mu… in CoordinateVecSetUp()
660 PetscInt v, gidx; in main() local
669 PetscCall(DMNetworkGetGlobalVertexIndex(networkdm, vtx[v], &gidx)); in main()
670 …PetscInt_FMT "] v %" PetscInt_FMT " %" PetscInt_FMT "; ghost %d\n", rank, i, vtx[v], gidx, ghost)); in main()
[all …]
|
| /petsc/src/dm/impls/network/ |
| H A D | networkview.c | 14 PetscInt nsubnets, i, subnet, nvertices, nedges, vertex, edge, gidx, ncomp; in DMView_Network_CSV() local
57 PetscCall(DMNetworkGetGlobalVertexIndex(dmcoords, vertex, &gidx)); in DMView_Network_CSV()
69 …" PetscInt_FMT ",%lf\n", rank, gidx, (double)PetscRealPart(vertexCoords[0]), (double)PetscRealPart… in DMView_Network_CSV()
325 PetscInt gidx; in DMView_Network() local
334 PetscCall(DMNetworkSharedVertexGetInfo(dm, vtx[i], &gidx, &nv, &sv)); in DMView_Network()
335 …x %" PetscInt_FMT ", subnet[%" PetscInt_FMT "].%" PetscInt_FMT " ---->\n", i, gidx, sv[0], sv[1])); in DMView_Network()
|
| H A D | network.c | 304 PetscErrorCode DMNetworkSharedVertexGetInfo(DM dm, PetscInt v, PeOp PetscInt *gidx, PeOp PetscInt *… in DMNetworkSharedVertexGetInfo() argument
316 if (gidx) *gidx = gidx_tmp; in DMNetworkSharedVertexGetInfo()
335 …GetInfo(PetscInt Nsvtx, SVtx *svtx, PetscInt net, PetscInt idx, PetscInt *gidx, SVtxType *svtype, … in VtxGetInfo() argument
348 g_idx = svtx[i].gidx; in VtxGetInfo()
355 g_idx = svtx[i].gidx; /* output gidx for to_vertex */ in VtxGetInfo()
362 if (gidx) *gidx = g_idx; in VtxGetInfo()
376 PetscInt net, idx, gidx; in TableAddSVtx() local
381 gidx = network->cloneshared->subnet[net].vStart + idx; in TableAddSVtx()
382 PetscCall(PetscHMapISet(svta, gidx + 1, *tdata + 1)); in TableAddSVtx()
407 PetscInt gidx, net, idx, i, nta, ita, idx_from, idx_to, n, *net_tmp, *idx_tmp, *gidx_tmp; in SharedVtxCreate() local
[all …]
|
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | classical.c | 84 PetscInt s, f, n, idx, lidx, gidx; in PCGAMGCreateGraph_Classical() local
118 gidx = 0; in PCGAMGCreateGraph_Classical()
125 gidx++; in PCGAMGCreateGraph_Classical()
131 gsparse[r - s] = gidx; in PCGAMGCreateGraph_Classical()
564 const PetscInt *lidx, *icol, *gidx; in PCGAMGProlongator_Classical_Standard() local
627 PetscCall(ISGetIndices(lis, &gidx)); in PCGAMGProlongator_Classical_Standard()
633 if (gidx[i] >= fs && gidx[i] < fe) { in PCGAMGProlongator_Classical_Standard()
634 li = gidx[i] - fs; in PCGAMGProlongator_Classical_Standard()
697 if (gidx[i] >= fs && gidx[i] < fe) { in PCGAMGProlongator_Classical_Standard()
781 ci = gidx[i]; in PCGAMGProlongator_Classical_Standard()
[all …]
|
| /petsc/src/dm/dt/fe/interface/ |
| H A D | fe.c | 2673 const PetscInt gidx = g * NcJ + gc; /* Trial function basis index */ in PetscFEUpdateElementMat_Internal() local
2675 tmpBasisJ[gidx] = basisJ[gidx]; in PetscFEUpdateElementMat_Internal()
2676 … for (PetscInt dg = 0; dg < cdim; ++dg) tmpBasisDerJ[gidx * dE + dg] = basisDerJ[gidx * cdim + dg]; in PetscFEUpdateElementMat_Internal()
2722 const PetscInt gidx = g * NcJ + gc; /* Trial function basis index */ in PetscFEUpdateElementMat_Internal()
2724 … df < dE; ++df) elemMat[fOff] += bI * g1[(fc * NcJ + gc) * dE + df] * tmpBasisDerJ[gidx * dE + df]; in PetscFEUpdateElementMat_Internal()
2782 const PetscInt gidx = g * NcJ + gc; /* Trial function basis index */ in PetscFEUpdateElementMat_Internal()
2785 …sisDerI[fidx * dE + df] * g3[((fc * NcJ + gc) * dE + df) * dE + dg] * tmpBasisDerJ[gidx * dE + dg]; in PetscFEUpdateElementMat_Internal()
2829 const PetscInt gidx = g * NcJ + gc; /* Trial function basis index */ in PetscFEUpdateElementMat_Hybrid_Internal() local
2831 tmpBasisJ[gidx] = basisJ[gidx]; in PetscFEUpdateElementMat_Hybrid_Internal()
2832 for (dg = 0; dg < dE; ++dg) tmpBasisDerJ[gidx * dE + dg] = basisDerJ[gidx * dE + dg]; in PetscFEUpdateElementMat_Hybrid_Internal()
[all …]
|
| /petsc/src/dm/impls/stag/ |
| H A D | stagstencil.c | 102 const PetscInt gidx = ltogidx[idxLocal[p]]; in DMStagCreateISFromStencils() local
103 if (gidx >= 0) { in DMStagCreateISFromStencils()
104 idx[count] = gidx; in DMStagCreateISFromStencils()
|
| /petsc/src/mat/impls/aij/mpi/mpihipsparse/ |
| H A D | mpiaijhipsparse.hip.cxx | 249 PetscInt cst, i, dn, on, *gidx; in MatMPIAIJGetLocalMatMerge_MPIAIJHIPSPARSE() local
254 PetscCall(PetscMalloc1(dn + on, &gidx)); in MatMPIAIJGetLocalMatMerge_MPIAIJHIPSPARSE()
255 for (i = 0; i < dn; i++) gidx[i] = cst + i; in MatMPIAIJGetLocalMatMerge_MPIAIJHIPSPARSE()
256 for (i = 0; i < on; i++) gidx[i + dn] = cmap[i]; in MatMPIAIJGetLocalMatMerge_MPIAIJHIPSPARSE()
257 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)Ad), dn + on, gidx, PETSC_OWN_POINTER, glob… in MatMPIAIJGetLocalMatMerge_MPIAIJHIPSPARSE()
|
| /petsc/src/mat/impls/aij/mpi/mpicusparse/ |
| H A D | mpiaijcusparse.cu | 249 PetscInt cst, i, dn, on, *gidx; in MatMPIAIJGetLocalMatMerge_MPIAIJCUSPARSE() local
254 PetscCall(PetscMalloc1(dn + on, &gidx)); in MatMPIAIJGetLocalMatMerge_MPIAIJCUSPARSE()
255 for (i = 0; i < dn; i++) gidx[i] = cst + i; in MatMPIAIJGetLocalMatMerge_MPIAIJCUSPARSE()
256 for (i = 0; i < on; i++) gidx[i + dn] = cmap[i]; in MatMPIAIJGetLocalMatMerge_MPIAIJCUSPARSE()
257 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)Ad), dn + on, gidx, PETSC_OWN_POINTER, glob… in MatMPIAIJGetLocalMatMerge_MPIAIJCUSPARSE()
|
| /petsc/include/petsc/private/ |
| H A D | dmnetworkimpl.h | 72 PetscInt gidx; /* global index of the shared vertices in dmplex */ member
|
| /petsc/src/snes/tutorials/network/power/ |
| H A D | PFReadData.c | 122 Bus[intbusnum].gidx[Bus[intbusnum].ngen++] = geni; in PFReadMatPowerData()
194 …[i].ngen; j++) PetscCall(PetscMemcpy(&newgen[genj++], &pf->gen[pf->bus[i].gidx[j]], sizeof(struct … in PFReadMatPowerData()
|
| H A D | power.h | 42 …PetscInt gidx[NGEN_AT_BUS_MAX]; /* list of inndices for accessing the generator data in GEN str… member
|
| /petsc/src/ts/utils/dmplexlandau/ |
| H A D | plexland.c | 1761 const PetscInt gidx = outer_ipidx; in CreateStaticData() local
1763 ww[gidx] = detJj[qj] * quadWeights[qj]; in CreateStaticData()
1764 if (dim == 2) ww[gidx] *= vj[qj * dim + 0]; /* cylindrical coordinate, w/o 2pi */ in CreateStaticData()
1774 xx[gidx] = 1e10; in CreateStaticData()
1781 xx[gidx] = vj[qj * dim + 0]; /* coordinate */ in CreateStaticData()
1782 yy[gidx] = vj[qj * dim + 1]; in CreateStaticData()
1783 if (dim == 3) zz[gidx] = vj[qj * dim + 2]; in CreateStaticData()
1784 …qrtReal(xx[gidx] * xx[gidx] + yy[gidx] * yy[gidx] + zz[gidx] * zz[gidx]), ej, qj, dg2_c2, (double)… in CreateStaticData()
1791 if (xx[gidx] == 1e10) { in CreateStaticData()
1795 xx[gidx] = eGradPhi[0]; in CreateStaticData()
[all …]
|
| /petsc/src/mat/impls/aij/mpi/kokkos/ |
| H A D | mpiaijkok.kokkos.cxx | 104 PetscInt cst, i, dn, on, *gidx; in MatMPIAIJGetLocalMatMerge_MPIAIJKokkos() local
108 PetscCall(PetscMalloc1(dn + on, &gidx)); in MatMPIAIJGetLocalMatMerge_MPIAIJKokkos()
109 for (i = 0; i < dn; i++) gidx[i] = cst + i; in MatMPIAIJGetLocalMatMerge_MPIAIJKokkos()
110 for (i = 0; i < on; i++) gidx[i + dn] = cmap[i]; in MatMPIAIJGetLocalMatMerge_MPIAIJKokkos()
111 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)Ad), dn + on, gidx, PETSC_OWN_POINTER, glob… in MatMPIAIJGetLocalMatMerge_MPIAIJKokkos()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex30.c | 1076 const PetscInt *gidx; in SaveToFile() local
1102 PetscCall(ISGetIndices(gis, &gidx)); in SaveToFile()
1106 … PetscInt gnum = gidx[c - cpStart] >= 0 ? gidx[c - cpStart] : -(gidx[c - cpStart] + 1); in SaveToFile()
1117 PetscCall(ISRestoreIndices(gis, &gidx)); in SaveToFile()
|
| /petsc/src/dm/impls/da/ |
| H A D | fdda.c | 767 PetscInt i, nel, nen, nv, dof, *gidx, n, N; in DMCreateMatrix_DA_IS() local
783 PetscCall(PetscMalloc1(nv / dof, &gidx)); in DMCreateMatrix_DA_IS()
785 PetscCall(PetscArraycpy(gidx, idx, nv / dof)); in DMCreateMatrix_DA_IS()
788 if (!PetscBTLookup(bt, i)) gidx[i] = -1; in DMCreateMatrix_DA_IS()
790 …PetscCall(ISCreateBlock(PetscObjectComm((PetscObject)dm), dof, nv / dof, gidx, PETSC_OWN_POINTER, … in DMCreateMatrix_DA_IS()
|
| /petsc/src/ksp/pc/impls/patch/ |
| H A D | pcpatch.c | 2367 const PetscInt gidx = gtolArray[offset + lidx]; in PCPatch_ScatterLocal_Private() local
2369 if (mode == INSERT_VALUES) yArray[lidx] = xArray[gidx]; /* Forward */ in PCPatch_ScatterLocal_Private()
2370 else yArray[gidx] += xArray[lidx]; /* Reverse */ in PCPatch_ScatterLocal_Private()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 5331 PetscInt cst, *gidx; in MatMPIAIJGetLocalMatMerge() local
5334 PetscCall(PetscMalloc1(dn + on, &gidx)); in MatMPIAIJGetLocalMatMerge()
5335 for (i = 0; i < dn; i++) gidx[i] = cst + i; in MatMPIAIJGetLocalMatMerge()
5336 for (i = 0; i < on; i++) gidx[i + dn] = cmap[i]; in MatMPIAIJGetLocalMatMerge()
5337 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)Ad), dn + on, gidx, PETSC_OWN_POINTER, glob… in MatMPIAIJGetLocalMatMerge()
|