| /petsc/src/vec/vec/utils/tagger/interface/ |
| H A D | tagger.c | 35 PetscErrorCode VecTaggerCreate(MPI_Comm comm, VecTagger *tagger) in VecTaggerCreate() argument
40 PetscAssertPointer(tagger, 2); in VecTaggerCreate()
47 *tagger = b; in VecTaggerCreate()
76 PetscErrorCode VecTaggerSetType(VecTagger tagger, VecTaggerType type) in VecTaggerSetType() argument
82 PetscValidHeaderSpecific(tagger, VEC_TAGGER_CLASSID, 1); in VecTaggerSetType()
85 PetscCall(PetscObjectTypeCompare((PetscObject)tagger, type, &match)); in VecTaggerSetType()
89 …PetscCheck(r, PetscObjectComm((PetscObject)tagger), PETSC_ERR_ARG_UNKNOWN_TYPE, "Unable to find re… in VecTaggerSetType()
91 PetscTryTypeMethod(tagger, destroy); in VecTaggerSetType()
92 PetscCall(PetscMemzero(tagger->ops, sizeof(*tagger->ops))); in VecTaggerSetType()
93 PetscCall(PetscObjectChangeTypeName((PetscObject)tagger, type)); in VecTaggerSetType()
[all …]
|
| /petsc/src/vec/vec/utils/tagger/impls/ |
| H A D | simple.c | 4 static PetscErrorCode VecTaggerDestroy_Simple(VecTagger tagger) in VecTaggerDestroy_Simple() argument
6 VecTagger_Simple *smpl = (VecTagger_Simple *)tagger->data; in VecTaggerDestroy_Simple()
10 PetscCall(PetscFree(tagger->data)); in VecTaggerDestroy_Simple()
14 PetscErrorCode VecTaggerSetFromOptions_Simple(VecTagger tagger, PetscOptionItems PetscOptionsObject) in VecTaggerSetFromOptions_Simple() argument
24 PetscCall(PetscObjectGetType((PetscObject)tagger, &name)); in VecTaggerSetFromOptions_Simple()
25 PetscCall(VecTaggerGetBlockSize(tagger, &bs)); in VecTaggerSetFromOptions_Simple()
34 …PetscCheck(nvals == 2 * bs, PetscObjectComm((PetscObject)tagger), PETSC_ERR_ARG_INCOMP, "Expect ar… in VecTaggerSetFromOptions_Simple()
35 PetscCall(VecTaggerSetBox_Simple(tagger, (VecTaggerBox *)inBoxVals)); in VecTaggerSetFromOptions_Simple()
41 static PetscErrorCode VecTaggerSetUp_Simple(VecTagger tagger) in VecTaggerSetUp_Simple() argument
43 VecTagger_Simple *smpl = (VecTagger_Simple *)tagger->data; in VecTaggerSetUp_Simple()
[all …]
|
| H A D | andor.c | 4 static PetscErrorCode VecTaggerDestroy_AndOr(VecTagger tagger) in VecTaggerDestroy_AndOr() argument
6 VecTagger_AndOr *andOr = (VecTagger_AndOr *)tagger->data; in VecTaggerDestroy_AndOr()
12 PetscCall(PetscFree(tagger->data)); in VecTaggerDestroy_AndOr()
16 PetscErrorCode VecTaggerGetSubs_AndOr(VecTagger tagger, PetscInt *nsubs, VecTagger **subs) in VecTaggerGetSubs_AndOr() argument
18 VecTagger_AndOr *andOr = (VecTagger_AndOr *)tagger->data; in VecTaggerGetSubs_AndOr()
21 PetscValidHeaderSpecific(tagger, VEC_TAGGER_CLASSID, 1); in VecTaggerGetSubs_AndOr()
33 PetscErrorCode VecTaggerSetSubs_AndOr(VecTagger tagger, PetscInt nsubs, VecTagger *subs, PetscCopyM… in VecTaggerSetSubs_AndOr() argument
36 VecTagger_AndOr *andOr = (VecTagger_AndOr *)tagger->data; in VecTaggerSetSubs_AndOr()
39 PetscValidHeaderSpecific(tagger, VEC_TAGGER_CLASSID, 1); in VecTaggerSetSubs_AndOr()
59 MPI_Comm comm = PetscObjectComm((PetscObject)tagger); in VecTaggerSetSubs_AndOr()
[all …]
|
| H A D | absolute.c | 4 static PetscErrorCode VecTaggerComputeBoxes_Absolute(VecTagger tagger, Vec vec, PetscInt *numBoxes,… in VecTaggerComputeBoxes_Absolute() argument
6 VecTagger_Simple *smpl = (VecTagger_Simple *)tagger->data; in VecTaggerComputeBoxes_Absolute()
11 PetscCall(VecTaggerGetBlockSize(tagger, &bs)); in VecTaggerComputeBoxes_Absolute()
36 PetscErrorCode VecTaggerAbsoluteSetBox(VecTagger tagger, VecTaggerBox box[]) in VecTaggerAbsoluteSetBox() argument
39 PetscCall(VecTaggerSetBox_Simple(tagger, box)); in VecTaggerAbsoluteSetBox()
58 PetscErrorCode VecTaggerAbsoluteGetBox(VecTagger tagger, const VecTaggerBox *box[]) in VecTaggerAbsoluteGetBox() argument
61 PetscCall(VecTaggerGetBox_Simple(tagger, box)); in VecTaggerAbsoluteGetBox()
65 PETSC_INTERN PetscErrorCode VecTaggerCreate_Absolute(VecTagger tagger) in VecTaggerCreate_Absolute() argument
68 PetscCall(VecTaggerCreate_Simple(tagger)); in VecTaggerCreate_Absolute()
69 tagger->ops->computeboxes = VecTaggerComputeBoxes_Absolute; in VecTaggerCreate_Absolute()
|
| H A D | cdf.c | 39 static PetscErrorCode VecTaggerComputeBoxes_CDF_Serial(VecTagger tagger, Vec vec, PetscInt bs, VecT… in VecTaggerComputeBoxes_CDF_Serial() argument
41 VecTagger_Simple *smpl = (VecTagger_Simple *)tagger->data; in VecTaggerComputeBoxes_CDF_Serial()
104 static PetscErrorCode VecTaggerComputeBoxes_CDF_Gather(VecTagger tagger, Vec vec, PetscInt bs, VecT… in VecTaggerComputeBoxes_CDF_Gather() argument
116 if (rank == 0) PetscCall(VecTaggerComputeBoxes_CDF_Serial(tagger, gVec, bs, boxes)); in VecTaggerComputeBoxes_CDF_Gather()
153 static PetscErrorCode VecTaggerComputeBox_CDF_SortedArray_Iterative(VecTagger tagger, MPI_Datatype … in VecTaggerComputeBox_CDF_SortedArray_Iterative() argument
164 comm = PetscObjectComm((PetscObject)tagger); in VecTaggerComputeBox_CDF_SortedArray_Iterative()
165 cdf = (VecTagger_CDF *)tagger->data; in VecTaggerComputeBox_CDF_SortedArray_Iterative()
270 static PetscErrorCode VecTaggerComputeBoxes_CDF_Iterative(VecTagger tagger, Vec vec, PetscInt bs, V… in VecTaggerComputeBoxes_CDF_Iterative() argument
272 VecTagger_CDF *cdf = (VecTagger_CDF *)tagger->data; in VecTaggerComputeBoxes_CDF_Iterative()
313 …PetscCall(VecTaggerComputeBox_CDF_SortedArray_Iterative(tagger, statType, statReduce, cArray, m, &… in VecTaggerComputeBoxes_CDF_Iterative()
[all …]
|
| H A D | or.c | 20 PetscErrorCode VecTaggerOrGetSubs(VecTagger tagger, PetscInt *nsubs, VecTagger *subs[]) in VecTaggerOrGetSubs() argument
23 PetscCall(VecTaggerGetSubs_AndOr(tagger, nsubs, subs)); in VecTaggerOrGetSubs()
42 PetscErrorCode VecTaggerOrSetSubs(VecTagger tagger, PetscInt nsubs, VecTagger subs[], PetscCopyMode… in VecTaggerOrSetSubs() argument
45 PetscCall(VecTaggerSetSubs_AndOr(tagger, nsubs, subs, mode)); in VecTaggerOrSetSubs()
49 static PetscErrorCode VecTaggerComputeBoxes_Or(VecTagger tagger, Vec vec, PetscInt *numBoxes, VecTa… in VecTaggerComputeBoxes_Or() argument
58 PetscCall(VecTaggerGetBlockSize(tagger, &bs)); in VecTaggerComputeBoxes_Or()
59 PetscCall(VecTaggerOrGetSubs(tagger, &nsubs, &subs)); in VecTaggerComputeBoxes_Or()
107 static PetscErrorCode VecTaggerComputeIS_Or(VecTagger tagger, Vec vec, IS *is, PetscBool *listed) in VecTaggerComputeIS_Or() argument
115 PetscCall(VecTaggerComputeIS_FromBoxes(tagger, vec, is, &boxlisted)); in VecTaggerComputeIS_Or()
120 PetscCall(VecTaggerOrGetSubs(tagger, &nsubs, &subs)); in VecTaggerComputeIS_Or()
[all …]
|
| H A D | and.c | 20 PetscErrorCode VecTaggerAndGetSubs(VecTagger tagger, PetscInt *nsubs, VecTagger *subs[]) in VecTaggerAndGetSubs() argument
23 PetscCall(VecTaggerGetSubs_AndOr(tagger, nsubs, subs)); in VecTaggerAndGetSubs()
42 PetscErrorCode VecTaggerAndSetSubs(VecTagger tagger, PetscInt nsubs, VecTagger subs[], PetscCopyMod… in VecTaggerAndSetSubs() argument
45 PetscCall(VecTaggerSetSubs_AndOr(tagger, nsubs, subs, mode)); in VecTaggerAndSetSubs()
49 static PetscErrorCode VecTaggerComputeBoxes_And(VecTagger tagger, Vec vec, PetscInt *numBoxes, VecT… in VecTaggerComputeBoxes_And() argument
58 PetscCall(VecTaggerGetBlockSize(tagger, &bs)); in VecTaggerComputeBoxes_And()
59 PetscCall(VecTaggerOrGetSubs(tagger, &nsubs, &subs)); in VecTaggerComputeBoxes_And()
127 static PetscErrorCode VecTaggerComputeIS_And(VecTagger tagger, Vec vec, IS *is, PetscBool *listed) in VecTaggerComputeIS_And() argument
135 PetscCall(VecTaggerComputeIS_FromBoxes(tagger, vec, is, &boxlisted)); in VecTaggerComputeIS_And()
140 PetscCall(VecTaggerOrGetSubs(tagger, &nsubs, &subs)); in VecTaggerComputeIS_And()
[all …]
|
| H A D | relative.c | 4 static PetscErrorCode VecTaggerComputeBoxes_Relative(VecTagger tagger, Vec vec, PetscInt *numBoxes,… in VecTaggerComputeBoxes_Relative() argument
6 VecTagger_Simple *smpl = (VecTagger_Simple *)tagger->data; in VecTaggerComputeBoxes_Relative()
12 PetscCall(VecTaggerGetBlockSize(tagger, &bs)); in VecTaggerComputeBoxes_Relative()
40 …tscScalar) / sizeof(PetscReal)) * bs), MPIU_REAL, MPIU_MIN, PetscObjectComm((PetscObject)tagger))); in VecTaggerComputeBoxes_Relative()
70 PetscErrorCode VecTaggerRelativeSetBox(VecTagger tagger, VecTaggerBox box[]) in VecTaggerRelativeSetBox() argument
73 PetscCall(VecTaggerSetBox_Simple(tagger, box)); in VecTaggerRelativeSetBox()
92 PetscErrorCode VecTaggerRelativeGetBox(VecTagger tagger, const VecTaggerBox *box[]) in VecTaggerRelativeGetBox() argument
95 PetscCall(VecTaggerGetBox_Simple(tagger, box)); in VecTaggerRelativeGetBox()
99 PETSC_INTERN PetscErrorCode VecTaggerCreate_Relative(VecTagger tagger) in VecTaggerCreate_Relative() argument
102 PetscCall(VecTaggerCreate_Simple(tagger)); in VecTaggerCreate_Relative()
[all …]
|
| /petsc/src/vec/vec/utils/tagger/tutorials/ |
| H A D | ex1.c | 30 VecTagger tagger; in main() local
68 PetscCall(VecTaggerCreate(comm, &tagger)); in main()
69 PetscCall(VecTaggerSetBlockSize(tagger, bs)); in main()
70 PetscCall(VecTaggerSetType(tagger, VECTAGGERABSOLUTE)); in main()
81 PetscCall(VecTaggerAbsoluteSetBox(tagger, defaultBox)); in main()
83 PetscCall(VecTaggerSetFromOptions(tagger)); in main()
84 PetscCall(VecTaggerSetUp(tagger)); in main()
85 PetscCall(PetscObjectViewFromOptions((PetscObject)tagger, NULL, "-vec_tagger_view")); in main()
86 PetscCall(VecTaggerGetBlockSize(tagger, &bs)); in main()
88 PetscCall(VecTaggerComputeBoxes(tagger, vec, &nint, &boxes, &listed)); in main()
[all …]
|
| /petsc/systems/Apple/iOS/PETSc/PETSc.xcodeproj/ |
| H A D | project.pbxproj | 516 …D89D1E7D207AA1AB00FACC19 /* tagger.c in Sources */ = {isa = PBXBuildFile; fileRef = D89D1B95207AA1…
1268 …B95207AA1AA00FACC19 /* tagger.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType …
2039 D89D1B95207AA1AA00FACC19 /* tagger.c */,
2436 D89D1E7D207AA1AB00FACC19 /* tagger.c in Sources */,
|