227 PetscErrorCode PCTFS_ivec_sort(PetscInt *ar, PetscInt size)  in PCTFS_ivec_sort()  argument
243       pi = ar + 1;  in PCTFS_ivec_sort()
244       pj = ar + size;  in PCTFS_ivec_sort()
247       SWAP(*(ar + (size >> 1)), *pi);  in PCTFS_ivec_sort()
252       if (*ar > *pj) SWAP(*ar, *pj);  in PCTFS_ivec_sort()
253       else if (*pi > *ar) SWAP(*(ar), *(ar + 1));  in PCTFS_ivec_sort()
260         while (*pi < *ar);  in PCTFS_ivec_sort()
262         while (*pj > *ar);  in PCTFS_ivec_sort()
272       SWAP(*ar, *pj);  in PCTFS_ivec_sort()
278       if ((*top_s = size - ((PetscInt)(pi - ar)))) {  in PCTFS_ivec_sort()
284       else { /* might as well pop - note NR_OPT >=2 ==> we're ok! */ ar = *(--top_a);  in PCTFS_ivec_sort()
290       for (pj = ar + 1; pj <= ar + size; pj++) {  in PCTFS_ivec_sort()
292         for (pi = pj - 1; pi >= ar; pi--) {  in PCTFS_ivec_sort()
303       ar   = *(--top_a);  in PCTFS_ivec_sort()
310 PetscErrorCode PCTFS_ivec_sort_companion(PetscInt *ar, PetscInt *ar2, PetscInt size)  in PCTFS_ivec_sort_companion()  argument
329       pi  = ar + 1;  in PCTFS_ivec_sort_companion()
330       pj  = ar + mid;  in PCTFS_ivec_sort_companion()
340       pj  = ar + size;  in PCTFS_ivec_sort_companion()
346       if (*ar > *pj) {  in PCTFS_ivec_sort_companion()
347         SWAP(*ar, *pj);  in PCTFS_ivec_sort_companion()
349       } else if (*pi > *ar) {  in PCTFS_ivec_sort_companion()
350         SWAP(*(ar), *(ar + 1));  in PCTFS_ivec_sort_companion()
361         } while (*pi < *ar);  in PCTFS_ivec_sort_companion()
365         } while (*pj > *ar);  in PCTFS_ivec_sort_companion()
376       SWAP(*ar, *pj);  in PCTFS_ivec_sort_companion()
383       if ((*top_s = size - ((PetscInt)(pi - ar)))) {  in PCTFS_ivec_sort_companion()
391         ar                                                               = *(--top_a);  in PCTFS_ivec_sort_companion()
397       for (pj = ar + 1, pj2 = ar2 + 1; pj <= ar + size; pj++, pj2++) {  in PCTFS_ivec_sort_companion()
400         for (pi = pj - 1, pi2 = pj2 - 1; pi >= ar; pi--, pi2--) {  in PCTFS_ivec_sort_companion()
414       ar   = *(--top_a);  in PCTFS_ivec_sort_companion()
421 PetscErrorCode PCTFS_ivec_sort_companion_hack(PetscInt *ar, PetscInt **ar2, PetscInt size)  in PCTFS_ivec_sort_companion_hack()  argument
440       pi  = ar + 1;  in PCTFS_ivec_sort_companion_hack()
441       pj  = ar + mid;  in PCTFS_ivec_sort_companion_hack()
451       pj  = ar + size;  in PCTFS_ivec_sort_companion_hack()
457       if (*ar > *pj) {  in PCTFS_ivec_sort_companion_hack()
458         SWAP(*ar, *pj);  in PCTFS_ivec_sort_companion_hack()
460       } else if (*pi > *ar) {  in PCTFS_ivec_sort_companion_hack()
461         SWAP(*(ar), *(ar + 1));  in PCTFS_ivec_sort_companion_hack()
472         } while (*pi < *ar);  in PCTFS_ivec_sort_companion_hack()
476         } while (*pj > *ar);  in PCTFS_ivec_sort_companion_hack()
487       SWAP(*ar, *pj);  in PCTFS_ivec_sort_companion_hack()
494       if ((*top_s = size - ((PetscInt)(pi - ar)))) {  in PCTFS_ivec_sort_companion_hack()
502         ar                                                               = *(--top_a);  in PCTFS_ivec_sort_companion_hack()
507       for (pj = ar + 1, pj2 = ar2 + 1; pj <= ar + size; pj++, pj2++) {  in PCTFS_ivec_sort_companion_hack()
510         for (pi = pj - 1, pi2 = pj2 - 1; pi >= ar; pi--, pi2--) {  in PCTFS_ivec_sort_companion_hack()
524       ar   = *(--top_a);  in PCTFS_ivec_sort_companion_hack()