Lines Matching refs:coords
34 static PetscErrorCode PCSetCoordinates_GEO(PC pc, PetscInt ndm, PetscInt a_nloc, PetscReal *coords) in PCSetCoordinates_GEO() argument
51 …PetscCheck(coords || (nloc <= 0), PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Need coordinates for pc_g… in PCSetCoordinates_GEO()
66 for (ii = 0; ii < ndm; ii++) pc_gamg->data[ii * nloc + kk] = coords[kk * ndm + ii]; in PCSetCoordinates_GEO()
70 for (ii = 0; ii < ndm; ii++) pc_gamg->data[ii * nloc + kk] = coords[bs * kk * ndm + ii]; in PCSetCoordinates_GEO()
126 static PetscErrorCode triangulateAndFormProl(IS selected_2, PetscInt data_stride, PetscReal coords[… in triangulateAndFormProl() argument
164 in.pointlist[sid] = coords[lid]; in triangulateAndFormProl()
165 in.pointlist[sid + 1] = coords[data_stride + lid]; in triangulateAndFormProl()
258 … if (sel) fprintf(file, "%d %e %e\n", sid++, (double)coords[jj], (double)coords[data_stride + jj]); in triangulateAndFormProl()
301 const PetscReal fcoord[3] = {coords[flid], coords[data_stride + flid], 1.0}; in triangulateAndFormProl()
311 AA[tt][0] = coords[lid2]; in triangulateAndFormProl()
312 AA[tt][1] = coords[data_stride + lid2]; in triangulateAndFormProl()
342 AA[tt][0] = coords[lid2]; in triangulateAndFormProl()
343 AA[tt][1] = coords[data_stride + lid2]; in triangulateAndFormProl()
371 AA[tt][0] = coords[lid2]; in triangulateAndFormProl()
372 AA[tt][1] = coords[data_stride + lid2]; in triangulateAndFormProl()
663 PetscReal *coords; in PCGAMGProlongator_GEO() local
675 PetscCall(PCGAMGGetDataWithGhosts(Gmat2, dim, pc_gamg->data, &data_stride, &coords)); in PCGAMGProlongator_GEO()
677 coords = pc_gamg->data; in PCGAMGProlongator_GEO()
686 …PetscCall(triangulateAndFormProl(selected_2, data_stride, coords, nLocalSelected, clid_flid, agg_l… in PCGAMGProlongator_GEO()
690 if (size > 1) PetscCall(PetscFree(coords)); in PCGAMGProlongator_GEO()