Lines Matching refs:pc_gamg
37 PC_GAMG *pc_gamg = (PC_GAMG *)mg->innerctx; in PCSetCoordinates_GEO() local
50 pc_gamg->data_cell_rows = 1; in PCSetCoordinates_GEO()
52 pc_gamg->data_cell_cols = ndm; /* coordinates */ in PCSetCoordinates_GEO()
54 arrsz = nloc * pc_gamg->data_cell_rows * pc_gamg->data_cell_cols; in PCSetCoordinates_GEO()
57 if (!pc_gamg->data || (pc_gamg->data_sz != arrsz)) { in PCSetCoordinates_GEO()
58 PetscCall(PetscFree(pc_gamg->data)); in PCSetCoordinates_GEO()
59 PetscCall(PetscMalloc1(arrsz + 1, &pc_gamg->data)); in PCSetCoordinates_GEO()
61 for (kk = 0; kk < arrsz; kk++) pc_gamg->data[kk] = -999.; in PCSetCoordinates_GEO()
62 pc_gamg->data[arrsz] = -99.; 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()
73 …cCheck(pc_gamg->data[arrsz] == -99., PETSC_COMM_SELF, PETSC_ERR_PLIB, "pc_gamg->data[arrsz %" Pets… in PCSetCoordinates_GEO()
74 pc_gamg->data_sz = arrsz; in PCSetCoordinates_GEO()
521 PC_GAMG *pc_gamg = (PC_GAMG *)mg->innerctx; in PCGAMGCreateGraph_GEO() local
522 const PetscReal vfilter = pc_gamg->threshold[0]; in PCGAMGCreateGraph_GEO()
605 PC_GAMG *pc_gamg = (PC_GAMG *)mg->innerctx; in PCGAMGProlongator_GEO() local
606 const PetscInt dim = pc_gamg->data_cell_cols, data_cols = pc_gamg->data_cell_cols; in PCGAMGProlongator_GEO()
675 PetscCall(PCGAMGGetDataWithGhosts(Gmat2, dim, pc_gamg->data, &data_stride, &coords)); in PCGAMGProlongator_GEO()
677 coords = pc_gamg->data; in PCGAMGProlongator_GEO()
678 data_stride = pc_gamg->data_sz / pc_gamg->data_cell_cols; in PCGAMGProlongator_GEO()
705 … for (jj = 0; jj < dim; jj++) crs_crds[jj * nLocalSelected + kk] = pc_gamg->data[jj * nloc + lid]; in PCGAMGProlongator_GEO()
708 PetscCall(PetscFree(pc_gamg->data)); in PCGAMGProlongator_GEO()
709 pc_gamg->data = crs_crds; /* out */ in PCGAMGProlongator_GEO()
710 pc_gamg->data_sz = dim * nLocalSelected; in PCGAMGProlongator_GEO()
730 PC_GAMG *pc_gamg = (PC_GAMG *)mg->innerctx; in PCCreateGAMG_GEO() local
733 pc_gamg->ops->setfromoptions = PCSetFromOptions_GEO; in PCCreateGAMG_GEO()
734 pc_gamg->ops->destroy = PCDestroy_GAMG_GEO; in PCCreateGAMG_GEO()
738 pc_gamg->ops->creategraph = PCGAMGCreateGraph_GEO; in PCCreateGAMG_GEO()
739 pc_gamg->ops->coarsen = PCGAMGCoarsen_GEO; in PCCreateGAMG_GEO()
740 pc_gamg->ops->prolongator = PCGAMGProlongator_GEO; in PCCreateGAMG_GEO()
741 pc_gamg->ops->optprolongator = NULL; in PCCreateGAMG_GEO()
742 pc_gamg->ops->createdefaultdata = PCSetData_GEO; in PCCreateGAMG_GEO()