| /petsc/src/dm/impls/plex/ |
| H A D | plexfem.c | 2410 PetscInt Nf, totDim, *uOff, *uOff_x, numConstants; in DMPlexComputeIntegral_Internal() local 2440 PetscCall(PetscDSGetTotalDimension(prob, &totDim)); in DMPlexComputeIntegral_Internal() 2457 PetscCall(PetscCalloc1(numCells * totDim, &u)); in DMPlexComputeIntegral_Internal() 2508 for (i = 0; i < totDim; ++i) u[c * totDim + i] = x[i]; in DMPlexComputeIntegral_Internal() 2545 …PetscCall(PetscFEIntegrate(prob, f, Nr, chunkGeom, &u[offset * totDim], probAux, PetscSafePointerP… in DMPlexComputeIntegral_Internal() 2560 …obj_func(dim, Nf, NfAux, uOff, uOff_x, &u[totDim * c + foff], NULL, u_x, aOff, NULL, PetscSafePoin… in DMPlexComputeIntegral_Internal() 2721 PetscInt Nf, totDim, *uOff, *uOff_x; in DMPlexComputeBdIntegral_Internal() local 2743 PetscCall(PetscDSGetTotalDimension(prob, &totDim)); in DMPlexComputeBdIntegral_Internal() 2772 PetscCall(PetscCalloc2(numFaces * totDim, &u, (locA ? (size_t)numFaces * totDimAux : 0), &a)); in DMPlexComputeBdIntegral_Internal() 2780 for (PetscInt i = 0; i < totDim; ++i) u[face * totDim + i] = x[i]; in DMPlexComputeBdIntegral_Internal() [all …]
|
| H A D | plexproject.c | 947 PetscInt p, spDim, totDim, numValues; in DMProjectLocal_Generic_Plex() local 961 totDim = 0; in DMProjectLocal_Generic_Plex() 968 totDim += spDim; in DMProjectLocal_Generic_Plex() 969 if (isCohesive && !cohesive) totDim += spDim; in DMProjectLocal_Generic_Plex() 973 …totDim, PETSC_COMM_SELF, PETSC_ERR_ARG_SIZ, "The output section point (%" PetscInt_FMT ") closure … in DMProjectLocal_Generic_Plex() 974 if (!totDim) { in DMProjectLocal_Generic_Plex()
|
| /petsc/src/dm/impls/plex/ftn-custom/ |
| H A D | zplexfemf90.c | 25 PetscInt numCells, totDim, totDimAux = 0; in dmplexgetcellfields_() local 33 *ierr = PetscDSGetTotalDimension(prob, &totDim); in dmplexgetcellfields_() 46 …*ierr = F90Array1dCreate((void *)u, MPIU_SCALAR, 1, numCells * totDim, uPtr PETSC_F90_2PTR_PARAM(u… in dmplexgetcellfields_() 48 …*ierr = F90Array1dCreate((void *)u_t, MPIU_SCALAR, 1, locX_t ? numCells * totDim : 0, utPtr PETSC_… in dmplexgetcellfields_() 77 PetscInt numFaces = *fEnd - *fStart, totDim; in dmplexgetfacefields_() local 83 *ierr = PetscDSGetTotalDimension(prob, &totDim); in dmplexgetfacefields_() 85 …*ierr = F90Array1dCreate((void *)uL, MPIU_SCALAR, 1, numFaces * totDim, uLPtr PETSC_F90_2PTR_PARAM… in dmplexgetfacefields_() 87 …*ierr = F90Array1dCreate((void *)uR, MPIU_SCALAR, 1, numFaces * totDim, uRPtr PETSC_F90_2PTR_PARAM… in dmplexgetfacefields_()
|
| /petsc/src/dm/dt/fe/impls/basic/ |
| H A D | febasic.c | 173 …PetscInt dim, dE, Np, numConstants, Nf, NfAux = 0, totDim, totDimAux = 0, cOffset = 0, c… in PetscFEIntegrate_Basic() local 186 PetscCall(PetscDSGetTotalDimension(ds, &totDim)); in PetscFEIntegrate_Basic() 249 cOffset += totDim; in PetscFEIntegrate_Basic() 268 …PetscInt dim, dimAux, numConstants, Nf, NfAux = 0, totDim, totDimAux = 0, cOffset = 0, c… in PetscFEIntegrateBd_Basic() local 277 PetscCall(PetscDSGetTotalDimension(ds, &totDim)); in PetscFEIntegrateBd_Basic() 383 cOffset += totDim; in PetscFEIntegrateBd_Basic() 403 …PetscInt dim, numConstants, Nf, NfAux = 0, totDim, totDimAux = 0, cOffset = 0, cOffsetAu… in PetscFEIntegrateResidual_Basic() local 413 PetscCall(PetscDSGetTotalDimension(ds, &totDim)); in PetscFEIntegrateResidual_Basic() 490 cOffset += totDim; in PetscFEIntegrateResidual_Basic() 509 …PetscInt dim, dimAux, numConstants, Nf, NfAux = 0, totDim, totDimAux = 0, cOffset = 0, c… in PetscFEIntegrateBdResidual_Basic() local [all …]
|
| /petsc/src/dm/dt/fe/tests/ |
| H A D | ex2.c | 241 PetscInt depth, cStart, cEnd, cell, chunkSize = cbs, Nch = 0, Nf, f, totDim, i, k; in TestIntegration() local 249 PetscCall(PetscDSGetTotalDimension(ds, &totDim)); in TestIntegration() 251 PetscCall(PetscMalloc2(chunkSize * totDim, &u, chunkSize * totDim, &elemVec)); in TestIntegration() 262 PetscCall(PetscArrayzero(elemVec, chunkSize * totDim)); in TestIntegration() 264 for (k = 0; k < chunkSize * totDim; ++k) u[k] = 1.0; in TestIntegration()
|
| H A D | ex1.c | 188 PetscInt depth, cStart, cEnd, cell, chunkSize = cbs, Nch = 0, Nf, f, totDim, i, k; in TestIntegration() local 201 PetscCall(PetscDSGetTotalDimension(ds, &totDim)); in TestIntegration() 203 PetscCall(PetscMalloc2(chunkSize * totDim, &u, chunkSize * totDim, &elemVec)); in TestIntegration() 214 PetscCall(PetscArrayzero(elemVec, chunkSize * totDim)); in TestIntegration() 216 for (k = 0; k < chunkSize * totDim; ++k) u[k] = 1.0; in TestIntegration()
|
| /petsc/src/ts/utils/dmplexlandau/kokkos/ |
| H A D | landau.kokkos.cxx | 596 const PetscInt totDim = loc_Nf * Nb; in LandauKokkosJacobian() local 708 … const PetscInt fOff = (fieldA * Nb + f) * totDim + fieldA * Nb + g; in LandauKokkosJacobian() 746 const PetscInt totDim = loc_Nf * Nb; in LandauKokkosJacobian() 765 … const PetscInt fOff = (fieldA * Nb + f) * totDim + fieldA * Nb + g; in LandauKokkosJacobian() 808 … const PetscInt loc_Nf = a_species_offset[grid + 1] - a_species_offset[grid], totDim = loc_Nf * Nb; in LandauKokkosJacobian() local 811 for (d = 0; d < totDim; ++d) { in LandauKokkosJacobian() 812 …for (f = 0; f < totDim; ++f) PetscPrintf(PETSC_COMM_SELF, " %12.5e", PetscRealPart(elMat[d * totDi… in LandauKokkosJacobian()
|
| /petsc/include/petsc/private/ |
| H A D | petscdsimpl.h | 123 PetscInt totDim; /* Total system dimension */ member
|
| /petsc/src/dm/dt/fv/interface/ |
| H A D | fv.c | 1913 PetscInt dim, numConstants, pdim, totDim, Nc, off, f, d; in PetscFVIntegrateRHSFunction_Upwind() local 1917 PetscCall(PetscDSGetTotalDimension(prob, &totDim)); in PetscFVIntegrateRHSFunction_Upwind() 1927 fluxL[f * totDim + off + d] = flux[d] / neighborVol[f * 2 + 0]; in PetscFVIntegrateRHSFunction_Upwind() 1928 fluxR[f * totDim + off + d] = flux[d] / neighborVol[f * 2 + 1]; in PetscFVIntegrateRHSFunction_Upwind() 2195 PetscInt dim, numConstants, pdim, Nc, totDim, off, f, d; in PetscFVIntegrateRHSFunction_LeastSquares() local 2199 PetscCall(PetscDSGetTotalDimension(prob, &totDim)); in PetscFVIntegrateRHSFunction_LeastSquares() 2209 fluxL[f * totDim + off + d] = flux[d] / neighborVol[f * 2 + 0]; in PetscFVIntegrateRHSFunction_LeastSquares() 2210 fluxR[f * totDim + off + d] = flux[d] / neighborVol[f * 2 + 1]; in PetscFVIntegrateRHSFunction_LeastSquares()
|
| /petsc/src/dm/impls/swarm/ |
| H A D | swarm.c | 479 PetscInt dim, Nf, Nfc, cStart, cEnd, totDim, maxC = 0, totNc = 0; in DMSwarmComputeMassMatrix_Private() local 489 PetscCall(PetscDSGetTotalDimension(prob, &totDim)); in DMSwarmComputeMassMatrix_Private() 577 PetscCall(PetscMalloc3(maxC * totNc * totDim, &elemMat, maxC * totNc, &rowIDXs, maxC * dim, &xi)); in DMSwarmComputeMassMatrix_Private() 611 PetscCall(PetscArrayzero(elemMat, numCIndices * Nc * totDim)); in DMSwarmComputeMassMatrix_Private() 702 PetscInt cdim, Nf, Nfc, cStart, cEnd, totDim, maxC = 0; in DMSwarmComputeMassMatrixSquare_Private() local 712 PetscCall(PetscDSGetTotalDimension(prob, &totDim)); in DMSwarmComputeMassMatrixSquare_Private() 797 …PetscCall(PetscMalloc4(maxC * totDim, &elemMat, maxC * maxC, &elemMatSq, maxC, &rowIDXs, maxC * cd… in DMSwarmComputeMassMatrixSquare_Private() 836 PetscCall(PetscArrayzero(elemMat, numCIndices * totDim)); in DMSwarmComputeMassMatrixSquare_Private() 953 PetscInt cdim, Nf, Nfc, cStart, cEnd, totDim, maxNpc = 0, totNc = 0; in DMSwarmComputeGradientMatrix_Private() local 964 PetscCall(PetscDSGetTotalDimension(ds, &totDim)); in DMSwarmComputeGradientMatrix_Private() [all …]
|
| /petsc/src/dm/dt/fe/interface/ |
| H A D | fe.c | 2600 elemMat[(offsetI + f) * totDim + (offsetJ + g)] += s * tBIv; \ 2618 elemMat[(offsetI + f) * totDim + (offsetJ + g)] += s * tBJv; \ 2638 elemMat[(offsetI + f) * totDim + (offsetJ + g)] += s; \ 2645 …tscScalar g1[], const PetscScalar g2[], const PetscScalar g3[], PetscInt totDim, PetscInt offsetI,… in PetscFEUpdateElementMat_Internal() argument 2694 const PetscInt fOff = i * totDim + j; in PetscFEUpdateElementMat_Internal() 2719 const PetscInt fOff = i * totDim + j; in PetscFEUpdateElementMat_Internal() 2749 const PetscInt fOff = i * totDim + j; in PetscFEUpdateElementMat_Internal() 2779 const PetscInt fOff = i * totDim + j; in PetscFEUpdateElementMat_Internal() 2800 …nst PetscScalar g2[], const PetscScalar g3[], PetscInt eOffset, PetscInt totDim, PetscInt offsetI,… in PetscFEUpdateElementMat_Hybrid_Internal() argument 2846 const PetscInt fOff = eOffset + i * totDim + j; in PetscFEUpdateElementMat_Hybrid_Internal() [all …]
|
| /petsc/src/ts/utils/dmplexlandau/ |
| H A D | plexland.c | 324 …, ctx->batch_sz, ctx->num_grids, ctx->mat_offset), totDim = loc_Nf * Nq, elemMatSize = totDim * to… in LandauFormJacobian_Internal() local 451 const PetscInt fOff = i * totDim + j; in LandauFormJacobian_Internal() 519 const PetscScalar Aij = elemMat[i * totDim + j]; in LandauFormJacobian_Internal() 540 for (PetscInt d = 0; d < totDim; ++d) { in LandauFormJacobian_Internal() 541 …for (PetscInt f = 0; f < totDim; ++f) PetscCall(PetscPrintf(ctx->comm, " %12.5e", (double)PetscRea… in LandauFormJacobian_Internal() 1502 PetscInt cStart, cEnd, Nfloc = Nf[grid], totDim = Nfloc * Nb; in CreateStaticData() local 1523 PetscCall(PetscArrayzero(elMat, totDim * totDim)); in CreateStaticData() 1524 elMat[(fieldA * Nb + q) * totDim + fieldA * Nb + q] = 1; in CreateStaticData()
|
| /petsc/src/dm/dt/interface/ |
| H A D | dtds.c | 120 …er, " cell total dim %" PetscInt_FMT " total comp %" PetscInt_FMT "\n", ds->totDim, ds->totComp)); in PetscDSView_Ascii() 374 prob->totDim = prob->totComp = 0; in PetscDSSetUp() 507 prob->totDim += Nb; in PetscDSSetUp() 510 if (prob->isCohesive && !prob->cohesive[f]) prob->totDim += Nb; in PetscDSSetUp() 980 *dim = prob->totDim; in PetscDSGetTotalDimension()
|