Searched refs:invV (Results 1 – 6 of 6) sorted by relevance
| /petsc/src/dm/dt/fe/impls/composite/ |
| H A D | fecomposite.c | 63 PetscCall(PetscMalloc1(cmp->numSubelements * spdim * spdim, &fem->invV)); in PetscFESetUp_Composite()
68 invVscalar = fem->invV; in PetscFESetUp_Composite()
93 …for (s = 0; s < cmp->numSubelements * spdim * spdim; s++) fem->invV[s] = PetscRealPart(invVscalar[… in PetscFESetUp_Composite()
162 … for (k = 0; k < spdim; ++k) B[i] += fem->invV[(s * spdim + k) * spdim + j] * tmpB[p * spdim + k]; in PetscFEComputeTabulation_Composite()
172 …for (k = 0; k < spdim; ++k) D[i] += fem->invV[(s * spdim + k) * spdim + j] * tmpD[(p * spdim + k) … in PetscFEComputeTabulation_Composite()
183 …for (k = 0; k < spdim; ++k) H[i] += fem->invV[(s * spdim + k) * spdim + j] * tmpH[(p * spdim + k) … in PetscFEComputeTabulation_Composite()
|
| /petsc/src/dm/dt/fe/impls/vector/ |
| H A D | fevector.c | 87 PetscCall(PetscCalloc1(n * n, &fe->invV)); in PetscFESetUp_Vector()
94 PetscReal *row_w = &fe->invV[iw * n]; in PetscFESetUp_Vector()
95 const PetscReal *row_r = &v->scalar_fe->invV[i * scalar_n]; in PetscFESetUp_Vector()
|
| /petsc/src/dm/dt/fe/impls/basic/ |
| H A D | febasic.c | 55 PetscCall(PetscMalloc1(pdim * pdim, &fem->invV)); in PetscFESetUp_Basic()
68 fem->invV[j * pdim + k] = 0.0; in PetscFESetUp_Basic()
71 …for (c = 0; c < Nc; ++c) fem->invV[j * pdim + k] += Bf[(q * pdim + k) * Nc + c] * weights[q * Nc +… in PetscFESetUp_Basic()
79 PetscCallBLAS("LAPACKgetrf", LAPACKREALgetrf_(&n, &n, fem->invV, &n, pivots, &info)); in PetscFESetUp_Basic()
81 PetscCallBLAS("LAPACKgetri", LAPACKREALgetri_(&n, fem->invV, &n, pivots, work, &n, &info)); in PetscFESetUp_Basic()
146 PetscCall(TensorContract_Private(npoints, pdim, Nc, pdim, tmpB, fem->invV, B)); in PetscFEComputeTabulation_Basic()
150 PetscCall(TensorContract_Private(npoints, pdim, Nc * dim, pdim, tmpD, fem->invV, D)); in PetscFEComputeTabulation_Basic()
154 PetscCall(TensorContract_Private(npoints, pdim, Nc * dim * dim, pdim, tmpH, fem->invV, H)); in PetscFEComputeTabulation_Basic()
|
| /petsc/include/petsc/private/ |
| H A D | petscfeimpl.h | 232 PetscReal *invV; /* Change of basis matrix, from prime to nodal basis set */ member
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexgeometry.c | 3731 PetscReal *invV, *modes; in DMPlexCoordinatesToReference_FE() local
3744 invV = fe->invV; in DMPlexCoordinatesToReference_FE()
3747 for (j = 0; j < pdim; ++j) modes[i] += invV[i * pdim + j] * PetscRealPart(nodes[j]); in DMPlexCoordinatesToReference_FE()
3796 PetscReal *invV, *modes; in DMPlexReferenceToCoordinates_FE() local
3807 invV = fe->invV; in DMPlexReferenceToCoordinates_FE()
3810 for (j = 0; j < pdim; ++j) modes[i] += invV[i * pdim + j] * PetscRealPart(nodes[j]); in DMPlexReferenceToCoordinates_FE()
|
| /petsc/src/dm/dt/fe/interface/ |
| H A D | fe.c | 311 PetscCall(PetscFree((*fem)->invV)); in PetscFEDestroy()
359 f->invV = NULL; in PetscFECreate()
|