Lines Matching refs:subspdim
652 PetscInt subspdim; in PetscDualSpaceGetSymmetries_Sum() local
656 PetscCall(PetscDualSpaceGetInteriorDimension(subsp, &subspdim)); in PetscDualSpaceGetSymmetries_Sum()
657 …PetscCall(PetscMalloc4(subspdim, &range, subspdim, &range_mapped, subspdim, &domain, subspdim, &do… in PetscDualSpaceGetSymmetries_Sum()
658 for (PetscInt i = 0; i < subspdim; i++) domain[i] = i; in PetscDualSpaceGetSymmetries_Sum()
659 PetscCall(PetscArraycpy(range, sub_perms[0][o], subspdim)); in PetscDualSpaceGetSymmetries_Sum()
660 … PetscCall(ISLocalToGlobalMappingApply(sum->int_rows[s], subspdim, domain, domain_mapped)); in PetscDualSpaceGetSymmetries_Sum()
661 … PetscCall(ISLocalToGlobalMappingApply(sum->int_rows[s], subspdim, range, range_mapped)); in PetscDualSpaceGetSymmetries_Sum()
662 for (PetscInt i = 0; i < subspdim; i++) o_perm[domain_mapped[i]] = range_mapped[i]; in PetscDualSpaceGetSymmetries_Sum()
681 PetscInt subspdim; in PetscDualSpaceGetSymmetries_Sum() local
685 PetscCall(PetscDualSpaceGetInteriorDimension(subsp, &subspdim)); in PetscDualSpaceGetSymmetries_Sum()
686 PetscCall(PetscMalloc2(subspdim, &domain, subspdim, &domain_mapped)); in PetscDualSpaceGetSymmetries_Sum()
687 for (PetscInt i = 0; i < subspdim; i++) domain[i] = i; in PetscDualSpaceGetSymmetries_Sum()
688 … PetscCall(ISLocalToGlobalMappingApply(sum->int_rows[s], subspdim, domain, domain_mapped)); in PetscDualSpaceGetSymmetries_Sum()
689 … for (PetscInt i = 0; i < subspdim; i++) o_flip[domain_mapped[i]] = sub_perms[0][o][i]; in PetscDualSpaceGetSymmetries_Sum()