| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex69.c | 653 PetscInt Nl; in CreateQuadMesh1() local 658 Nl = 5; in CreateQuadMesh1() 659 PetscCall(PetscMalloc1(Nl, &local)); in CreateQuadMesh1() 660 PetscCall(PetscMalloc1(Nl, &remote)); in CreateQuadMesh1() 678 Nl = 3; in CreateQuadMesh1() 679 PetscCall(PetscMalloc1(Nl, &local)); in CreateQuadMesh1() 680 PetscCall(PetscMalloc1(Nl, &remote)); in CreateQuadMesh1() 692 Nl = 3; in CreateQuadMesh1() 693 PetscCall(PetscMalloc1(Nl, &local)); in CreateQuadMesh1() 694 PetscCall(PetscMalloc1(Nl, &remote)); in CreateQuadMesh1() [all …]
|
| H A D | ex11.c | 259 PetscInt Nl, l; in TestUniversalLabel() local 262 PetscCall(DMGetNumLabels(dm2, &Nl)); in TestUniversalLabel() 263 for (l = Nl - 1; l >= 0; --l) { in TestUniversalLabel()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexnatural.c | 110 PetscInt Nl; in DMPlexCreateGlobalToNaturalSF() local 115 PetscCall(PetscSFGetGraph(sfMigration, NULL, &Nl, &leaves, NULL)); in DMPlexCreateGlobalToNaturalSF() 124 PetscCall(PetscMalloc3(ssize, &spoints, Nl, &sortleaves, Nl, &indices)); in DMPlexCreateGlobalToNaturalSF() 125 for (p = 0; p < Nl; ++p) { in DMPlexCreateGlobalToNaturalSF() 129 PetscCall(PetscSortIntWithArray(Nl, sortleaves, indices)); in DMPlexCreateGlobalToNaturalSF() 136 PetscCall(PetscFindInt(p, Nl, sortleaves, &loc)); in DMPlexCreateGlobalToNaturalSF() 310 PetscInt Nl, n; in DMPlexGlobalToNaturalBegin() local 312 PetscCall(PetscSFGetGraph(dm->sfNatural, NULL, &Nl, NULL, NULL)); in DMPlexGlobalToNaturalBegin() 314 …eck(n == Nl, comm, PETSC_ERR_ARG_INCOMP, "Natural vector local size %" PetscInt_FMT " != %" PetscI… in DMPlexGlobalToNaturalBegin() 317 PetscCall(PetscSectionGetConstrainedStorageSize(gs, &Nl)); in DMPlexGlobalToNaturalBegin() [all …]
|
| H A D | plexegads.c | 632 int id, sh, Nsh, f, Nf, l, Nl, e, Ne, v, Nv; in DMPlexGeomPrintModel_Internal() local 654 PetscCall(EGlite_getBodyTopos(body, NULL, LOOP, &Nl, &lobjs)); in DMPlexGeomPrintModel_Internal() 656 PetscCall(EG_getBodyTopos(body, NULL, LOOP, &Nl, &lobjs)); in DMPlexGeomPrintModel_Internal() 658 PetscCall(PetscPrintf(PETSC_COMM_SELF, " Number of LOOPS: %d \n", Nl)); in DMPlexGeomPrintModel_Internal() 735 PetscCall(EGlite_getTopology(face, &geom, &oclass, &mtype, fdata, &Nl, &lobjs, &lsenses)); in DMPlexGeomPrintModel_Internal() 740 PetscCall(EG_getTopology(face, &geom, &oclass, &mtype, fdata, &Nl, &lobjs, &lsenses)); in DMPlexGeomPrintModel_Internal() 753 for (l = 0; l < Nl; ++l) { in DMPlexGeomPrintModel_Internal() 910 int id, Nl, l, Nv, v; in DMPlexCreateGeom_Internal() local 913 PetscCall(EGlite_getBodyTopos(body, NULL, LOOP, &Nl, &lobjs)); in DMPlexCreateGeom_Internal() 915 PetscCall(EG_getBodyTopos(body, NULL, LOOP, &Nl, &lobjs)); in DMPlexCreateGeom_Internal() [all …]
|
| H A D | plexinterpolate.c | 998 PetscInt Nl, l; in DMPlexMapToGlobalPoint() local 1005 PetscCall(PetscSFGetGraph(sf, NULL, &Nl, &locals, &remotes)); in DMPlexMapToGlobalPoint() 1006 if (Nl < 0) goto owned; in DMPlexMapToGlobalPoint() 1010 PetscCall(PetscFindInt(localPoint, Nl, locals, &l)); in DMPlexMapToGlobalPoint() 1025 PetscInt Nl, idx; in DMPlexPointIsShared() local 1030 PetscCall(PetscSFGetGraph(sf, NULL, &Nl, &locals, NULL)); in DMPlexPointIsShared() 1031 if (Nl < 0) PetscFunctionReturn(PETSC_SUCCESS); in DMPlexPointIsShared() 1032 PetscCall(PetscFindInt(p, Nl, locals, &idx)); in DMPlexPointIsShared() 1189 PetscInt ov, Nr, r, Nl, l; in DMPlexInterpolatePointSF() local 1210 PetscCall(PetscSFGetGraph(pointSF, &Nr, &Nl, &localPoints, &remotePoints)); in DMPlexInterpolatePointSF() [all …]
|
| H A D | plexcreate.c | 2234 PetscInt cell = 0, coordSize, Nl = 0, Nl2 = 0; in DMPlexCreateHypercubicMesh_Internal() local 2323 if (size > 1 && leaf) ++Nl; in DMPlexCreateHypercubicMesh_Internal() 2337 PetscCall(PetscMalloc1(Nl, &leaves)); in DMPlexCreateHypercubicMesh_Internal() 2338 PetscCall(PetscMalloc1(Nl, &remotes)); in DMPlexCreateHypercubicMesh_Internal() 2406 …PetscCheck(Nl == Nl2, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Initial number of leaves %" PetscInt_FMT "… in DMPlexCreateHypercubicMesh_Internal() 2408 …PetscCall(PetscSFSetGraph(sf, numCells + numVertices, Nl, leaves, PETSC_OWN_POINTER, remotes, PETS… in DMPlexCreateHypercubicMesh_Internal() 5022 PetscInt points[1024], n, pStart, pEnd, Nl = 1; in DMPlexCreateFromOptions_Internal() local 5031 if (name[len - 1] == '0') Nl = 10; in DMPlexCreateFromOptions_Internal() 5032 for (PetscInt l = 0; l < Nl; ++l) { in DMPlexCreateFromOptions_Internal() 6721 int snum, dim, Nv, Nc, Ncn, Nl; in DMPlexCreateCellVertexFromFile() local [all …]
|
| H A D | plex.c | 285 PetscInt Nf, Nl, vStart, vEnd, eStart, eEnd; in DMPlexVecView1D() local 292 PetscCall(PetscDSGetTotalComponents(ds, &Nl)); in DMPlexVecView1D() 297 PetscCall(PetscDrawLGCreate(draw, n * Nl, &lg)); in DMPlexVecView1D() 299 PetscCall(PetscMalloc3(n, &sol, n * Nl, &names, n * Nl, &vals)); in DMPlexVecView1D() 347 for (PetscInt l = 0; l < Nl; ++l) vals[i * Nl + l] = PetscRealPart(svals[l]); in DMPlexVecView1D() 353 for (PetscInt l = 0; l < Nl; ++l) vals[i * Nl + l] = PetscRealPart(svals[l]); in DMPlexVecView1D() 358 for (PetscInt l = 0; l < Nl; ++l) vals[i * Nl + l] = PetscRealPart(svals[l]); in DMPlexVecView1D() 374 for (PetscInt l = 0; l < Nl; ++l) vals[i * Nl + l] = PetscRealPart(svals[l]); in DMPlexVecView1D() 387 for (PetscInt l = 0; l < Nl; ++l) vals[i * Nl + l] = PetscRealPart(svals[l]); in DMPlexVecView1D() 394 for (PetscInt l = 0; l < n * Nl; ++l) PetscCall(PetscFree(names[l])); in DMPlexVecView1D() [all …]
|
| H A D | plexsubmesh.c | 2288 PetscInt Nl, l; in DMPlexLabelCohesiveComplete() local 2291 PetscCall(PetscSFGetGraph(sf, NULL, &Nl, &leaves, NULL)); in DMPlexLabelCohesiveComplete() 2296 if (Nl > 0) { in DMPlexLabelCohesiveComplete() 2301 PetscCall(PetscFindInt(point, Nl, leaves, &l)); in DMPlexLabelCohesiveComplete() 3318 PetscInt Nl, l, d; in DMPlexFilterLabels_Internal() local 3324 PetscCall(DMGetNumLabels(dm, &Nl)); in DMPlexFilterLabels_Internal() 3325 for (l = 0; l < Nl; ++l) { in DMPlexFilterLabels_Internal() 4318 PetscInt cStart, cEnd, Nl; in DMPlexFilter() local 4323 PetscCall(PetscSFGetGraph(sf, NULL, &Nl, &leaves, NULL)); in DMPlexFilter() 4324 for (PetscInt l = 0; l < Nl; ++l) { in DMPlexFilter()
|
| H A D | plexgeometry.c | 986 PetscInt cdim, cStart, cEnd, Nl = -1; in DMPlexComputeGridHash_Internal() local 1009 if (sf) PetscCall(PetscSFGetGraph(sf, NULL, &Nl, &leaves, NULL)); in DMPlexComputeGridHash_Internal() 1010 Nl = PetscMax(Nl, 0); in DMPlexComputeGridHash_Internal() 1027 PetscCall(PetscFindInt(c, Nl, leaves, &idx)); in DMPlexComputeGridHash_Internal() 1251 PetscInt cdim, Nl = 0, cStart, cEnd, numCells; in DMLocatePoints_Plex() local 1277 if (sf) PetscCall(PetscSFGetGraph(sf, NULL, &Nl, &leaves, NULL)); in DMLocatePoints_Plex() 1278 Nl = PetscMax(Nl, 0); in DMLocatePoints_Plex() 1382 PetscCall(PetscFindInt(c, Nl, leaves, &idx)); in DMLocatePoints_Plex()
|
| /petsc/src/dm/impls/plex/transform/impls/extrude/ |
| H A D | plextrextrude.c | 145 static PetscErrorCode DMPlexTransformExtrudeSetUp_Point(DMPlexTransform_Extrude *ex, PetscInt Nl) in DMPlexTransformExtrudeSetUp_Point() argument 148 const PetscInt Np = ex->periodic ? Nl : Nl + 1; in DMPlexTransformExtrudeSetUp_Point() 153 Nc = 6 * Nl; in DMPlexTransformExtrudeSetUp_Point() 154 No = 2 * Nl; in DMPlexTransformExtrudeSetUp_Point() 159 ex->size[ct][1] = Nl; in DMPlexTransformExtrudeSetUp_Point() 161 for (PetscInt i = 0; i < Nl; ++i) { in DMPlexTransformExtrudeSetUp_Point() 177 static PetscErrorCode DMPlexTransformExtrudeSetUp_Segment(DMPlexTransform_Extrude *ex, PetscInt Nl) in DMPlexTransformExtrudeSetUp_Segment() argument 180 const PetscInt Np = ex->periodic ? Nl : Nl + 1; in DMPlexTransformExtrudeSetUp_Segment() 185 Nc = 8 * Np + 14 * Nl; in DMPlexTransformExtrudeSetUp_Segment() 186 No = 2 * Np + 4 * Nl; in DMPlexTransformExtrudeSetUp_Segment() [all …]
|
| /petsc/src/ksp/pc/impls/telescope/ |
| H A D | telescope_dmda.c | 127 PetscInt i, j, si, sj, ni, nj, M, N, Ml, Nl, c, nidx; in PCTelescopeSetUp_dmda_repart_coors2d() local 148 Nl = nj; in PCTelescopeSetUp_dmda_repart_coors2d() 152 Ml = Nl = 0; in PCTelescopeSetUp_dmda_repart_coors2d() 155 PetscCall(PetscMalloc1(Ml * Nl * 2, &fine_indices)); in PCTelescopeSetUp_dmda_repart_coors2d() 166 …(c == Ml * Nl * 2, PETSC_COMM_SELF, PETSC_ERR_PLIB, "c %" PetscInt_FMT " should equal 2 * Ml %" Pe… in PCTelescopeSetUp_dmda_repart_coors2d() 170 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)dm), Ml * Nl * 2, fine_indices, PETSC_USE_P… in PCTelescopeSetUp_dmda_repart_coors2d() 171 PetscCall(ISCreateStride(PETSC_COMM_SELF, Ml * Nl * 2, 0, 1, &is_local)); in PCTelescopeSetUp_dmda_repart_coors2d() 175 PetscCall(VecSetSizes(perm_coors, PETSC_DECIDE, Ml * Nl * 2)); in PCTelescopeSetUp_dmda_repart_coors2d() 190 for (i = 0; i < Ml * Nl * 2; i++) LA_coors[i] = LA_perm[i]; in PCTelescopeSetUp_dmda_repart_coors2d() 218 PetscInt i, j, k, si, sj, sk, ni, nj, nk, M, N, P, Ml, Nl, Pl, c, nidx; in PCTelescopeSetUp_dmda_repart_coors3d() local [all …]
|
| /petsc/src/dm/interface/ |
| H A D | dm.c | 5408 PetscInt Nds, s, maxLabels = 0, maxLen = 0, gmaxLen, Nl = 0, gNl, l, gl, m; in DMCompleteBCLabels_Internal() local 5444 for (l = 0; l < Nl; ++l) in DMCompleteBCLabels_Internal() 5446 if (l == Nl) labels[Nl++] = label; in DMCompleteBCLabels_Internal() 5450 PetscCall(PetscMalloc1(Nl, &names)); in DMCompleteBCLabels_Internal() 5451 for (l = 0; l < Nl; ++l) PetscCall(PetscObjectGetName((PetscObject)labels[l], &names[l])); in DMCompleteBCLabels_Internal() 5452 for (l = 0; l < Nl; ++l) { in DMCompleteBCLabels_Internal() 5458 PetscCall(PetscCalloc1(Nl * gmaxLen, &sendNames)); in DMCompleteBCLabels_Internal() 5459 for (l = 0; l < Nl; ++l) PetscCall(PetscStrncpy(&sendNames[gmaxLen * l], names[l], gmaxLen)); in DMCompleteBCLabels_Internal() 5463 PetscCallMPI(MPI_Allgather(&Nl, 1, MPI_INT, counts, 1, MPI_INT, comm)); in DMCompleteBCLabels_Internal() 5938 PetscInt dE, Nf = dm->Nf, f, s, Nl, l, Ndef, k; in DMCreateDS() local [all …]
|
| /petsc/src/vec/is/is/interface/ |
| H A D | index.c | 40 PetscInt N_n, n, i, lbounds[2], gbounds[2], Nl, ibs; in ISRenumber() local 112 PetscCall(PetscLayoutGetLocalSize(map, &Nl)); in ISRenumber() 122 PetscCall(PetscCalloc1(Nl, &root_data)); in ISRenumber() 130 for (i = 0; i < Nl; i++) { in ISRenumber() 169 for (i = first_index + 1; i < Nl; i++) { in ISRenumber()
|
| /petsc/src/dm/label/ |
| H A D | dmlabel.c | 2178 PetscInt Nr, r, Nl, l, val, defVal; in DMLabelPropagateInit_Internal() local 2183 PetscCall(PetscSFGetGraph(pointSF, &Nr, &Nl, &points, NULL)); in DMLabelPropagateInit_Internal() 2184 for (l = 0; l < Nl; ++l) { in DMLabelPropagateInit_Internal() 2204 PetscInt Nr, r, Nl, l, val, defVal; in DMLabelPropagateFini_Internal() local 2209 PetscCall(PetscSFGetGraph(pointSF, &Nr, &Nl, &points, NULL)); in DMLabelPropagateFini_Internal() 2210 for (l = 0; l < Nl; ++l) { in DMLabelPropagateFini_Internal()
|
| /petsc/include/petsc/private/ |
| H A D | dmimpl.h | 204 PetscInt Nl; /* Number of labels encoded */ member
|