Home
last modified time | relevance | path

Searched refs:elcoor (Results 1 – 3 of 3) sorted by relevance

/petsc/src/dm/impls/swarm/
H A Dswarmpic_plex.c91 PetscScalar *elcoor = NULL; in private_DMSwarmInsertPointsUsingCellDM_PLEX_SubDivide() local
138 PetscCall(DMPlexVecGetClosure(dmc, coordSection, coorlocal, ps + e, NULL, &elcoor)); in private_DMSwarmInsertPointsUsingCellDM_PLEX_SubDivide()
143 …s; k++) swarm_coor[dim * pcnt + d] += T->T[0][q * nbasis + k] * PetscRealPart(elcoor[dim * k + d]); in private_DMSwarmInsertPointsUsingCellDM_PLEX_SubDivide()
148 PetscCall(DMPlexVecRestoreClosure(dmc, coordSection, coorlocal, ps + e, NULL, &elcoor)); in private_DMSwarmInsertPointsUsingCellDM_PLEX_SubDivide()
166 PetscScalar *elcoor = NULL; in private_DMSwarmInsertPointsUsingCellDM_PLEX2D_Regular() local
228 PetscCall(DMPlexVecGetClosure(dmc, coordSection, coorlocal, e, NULL, &elcoor)); in private_DMSwarmInsertPointsUsingCellDM_PLEX2D_Regular()
233 …for (k = 0; k < npe; k++) swarm_coor[dim * pcnt + d] += basis[q][k] * PetscRealPart(elcoor[dim * k… in private_DMSwarmInsertPointsUsingCellDM_PLEX2D_Regular()
238 PetscCall(DMPlexVecRestoreClosure(dmc, coordSection, coorlocal, e, NULL, &elcoor)); in private_DMSwarmInsertPointsUsingCellDM_PLEX2D_Regular()
H A Dswarmpic_da.c97 PetscReal *elcoor; in private_DMSwarmInsertPointsUsingCellDM_DA_Q1() local
130 PetscCall(PetscMalloc1(dim * npe, &elcoor)); in private_DMSwarmInsertPointsUsingCellDM_DA_Q1()
176 for (d = 0; d < dim; d++) elcoor[dim * k + d] = PetscRealPart(_coor[dim * element[k] + d]); in private_DMSwarmInsertPointsUsingCellDM_DA_Q1()
182 for (d = 0; d < dim; d++) swarm_coor[dim * pcnt + d] += basis[q][k] * elcoor[dim * k + d]; in private_DMSwarmInsertPointsUsingCellDM_DA_Q1()
194 PetscCall(PetscFree(elcoor)); in private_DMSwarmInsertPointsUsingCellDM_DA_Q1()
/petsc/src/ksp/ksp/tutorials/
H A Dex70.c530 PetscReal **basis, *elcoor, *xp; in DMSwarmPICInsertPointsCellwise() local
540 PetscCall(PetscMalloc1(dim * npe, &elcoor)); in DMSwarmPICInsertPointsCellwise()
577 for (d = 0; d < dim; d++) elcoor[dim * k + d] = PetscRealPart(_coor[dim * element[k] + d]); in DMSwarmPICInsertPointsCellwise()
582 for (d = 0; d < dim; d++) xp[dim * q + d] += basis[q][k] * elcoor[dim * k + d]; in DMSwarmPICInsertPointsCellwise()
656 PetscCall(PetscFree(elcoor)); in DMSwarmPICInsertPointsCellwise()