19 #define SWAP2(a, b, c, d, t1, t2) \  argument
24     t2 = c; \
26     d  = t2; \
28 #define SWAP3(a, b, c, d, e, f, t1, t2, t3) \  argument
33     t2 = c; \
35     d  = t2; \
42 #define SWAP2Data(a, b, c, d, t1, t2, siz) \  argument
47     PetscCall(PetscMemcpy(t2, c, siz)); \
49     PetscCall(PetscMemcpy(d, t2, siz)); \
118 #define TwoWayPartition2(X, Y, pivot, t1, t2, lo, hi, l, r) \  argument
129       SWAP2(X[l], X[r], Y[l], Y[r], t1, t2); \
135 #define TwoWayPartition3(X, Y, Z, pivot, t1, t2, t3, lo, hi, l, r) \  argument
146       SWAP3(X[l], X[r], Y[l], Y[r], Z[l], Z[r], t1, t2, t3); \
198 #define QuickSort2(FuncName, X, Y, n, pivot, t1, t2) \  argument
206             SWAP2(X[i], X[j], Y[i], Y[j], t1, t2); \
214       TwoWayPartition2(X, Y, pivot, t1, t2, 0, hi, l, r); \
220 #define QuickSort3(FuncName, X, Y, Z, n, pivot, t1, t2, t3) \  argument
228             SWAP3(X[i], X[j], Y[i], Y[j], Z[i], Z[j], t1, t2, t3); \
236       TwoWayPartition3(X, Y, Z, pivot, t1, t2, t3, 0, hi, l, r); \
692   PetscInt pivot, t1, t2;  in PetscSortIntWithArray()  local
695   QuickSort2(PetscSortIntWithArray, X, Y, n, pivot, t1, t2);  in PetscSortIntWithArray()
717   PetscInt pivot, t1, t2, t3;  in PetscSortIntWithArrayPair()  local
720   QuickSort3(PetscSortIntWithArrayPair, X, Y, Z, n, pivot, t1, t2, t3);  in PetscSortIntWithArrayPair()
742   PetscMPIInt t2;  in PetscSortIntWithMPIIntArray()  local
745   QuickSort2(PetscSortIntWithMPIIntArray, X, Y, n, pivot, t1, t2);  in PetscSortIntWithMPIIntArray()
767   PetscCount t2;  in PetscSortIntWithCountArray()  local
770   QuickSort2(PetscSortIntWithCountArray, X, Y, n, pivot, t1, t2);  in PetscSortIntWithCountArray()
795   PetscInt   pivot, t1, t2; /* pivot is take from X[], so its type is still PetscInt */  in PetscSortIntWithIntCountArrayPair()  local
799   QuickSort3(PetscSortIntWithIntCountArrayPair, X, Y, Z, n, pivot, t1, t2, t3);  in PetscSortIntWithIntCountArrayPair()
902   PetscMPIInt pivot, t1, t2;  in PetscSortMPIIntWithArray()  local
905   QuickSort2(PetscSortMPIIntWithArray, X, Y, n, pivot, t1, t2);  in PetscSortMPIIntWithArray()
930   PetscInt    t2;  in PetscSortMPIIntWithIntArray()  local
933   QuickSort2(PetscSortMPIIntWithIntArray, X, Y, n, pivot, t1, t2);  in PetscSortMPIIntWithIntArray()
955   PetscScalar t2;  in PetscSortIntWithScalarArray()  local
958   QuickSort2(PetscSortIntWithScalarArray, X, Y, n, pivot, t1, t2);  in PetscSortIntWithScalarArray()
980 PetscErrorCode PetscSortIntWithDataArray(PetscCount n, PetscInt X[], void *Y, size_t size, void *t2)  in PetscSortIntWithDataArray()  argument
992           SWAP2Data(X[i], X[j], YY + size * i, YY + size * j, t1, t2, size);  in PetscSortIntWithDataArray()
1009       SWAP2Data(X[l], X[r], YY + size * l, YY + size * r, t1, t2, size);  in PetscSortIntWithDataArray()
1013     PetscCall(PetscSortIntWithDataArray(l, X, Y, size, t2));  in PetscSortIntWithDataArray()
1014     PetscCall(PetscSortIntWithDataArray(hi - r + 1, X + r, YY + size * r, size, t2));  in PetscSortIntWithDataArray()