229   PetscInt  *pi, *pj, temp;  in PCTFS_ivec_sort()  local
243       pi = ar + 1;  in PCTFS_ivec_sort()
247       SWAP(*(ar + (size >> 1)), *pi);  in PCTFS_ivec_sort()
251       if (*pi > *pj) SWAP(*pi, *pj);  in PCTFS_ivec_sort()
253       else if (*pi > *ar) SWAP(*(ar), *(ar + 1));  in PCTFS_ivec_sort()
259         do pi++;  in PCTFS_ivec_sort()
260         while (*pi < *ar);  in PCTFS_ivec_sort()
265         if (pj < pi) break;  in PCTFS_ivec_sort()
268         SWAP(*pi, *pj);  in PCTFS_ivec_sort()
278       if ((*top_s = size - ((PetscInt)(pi - ar)))) {  in PCTFS_ivec_sort()
279         *(top_a++) = pi;  in PCTFS_ivec_sort()
292         for (pi = pj - 1; pi >= ar; pi--) {  in PCTFS_ivec_sort()
293           if (*pi <= temp) break;  in PCTFS_ivec_sort()
294           *(pi + 1) = *pi;  in PCTFS_ivec_sort()
296         *(pi + 1) = temp;  in PCTFS_ivec_sort()
312   PetscInt  *pi, *pj, temp, temp2;  in PCTFS_ivec_sort_companion()  local
329       pi  = ar + 1;  in PCTFS_ivec_sort_companion()
335       SWAP(*pi, *pj);  in PCTFS_ivec_sort_companion()
342       if (*pi > *pj) {  in PCTFS_ivec_sort_companion()
343         SWAP(*pi, *pj);  in PCTFS_ivec_sort_companion()
349       } else if (*pi > *ar) {  in PCTFS_ivec_sort_companion()
359           pi++;  in PCTFS_ivec_sort_companion()
361         } while (*pi < *ar);  in PCTFS_ivec_sort_companion()
368         if (pj < pi) break;  in PCTFS_ivec_sort_companion()
371         SWAP(*pi, *pj);  in PCTFS_ivec_sort_companion()
383       if ((*top_s = size - ((PetscInt)(pi - ar)))) {  in PCTFS_ivec_sort_companion()
384         *(top_a++) = pi;  in PCTFS_ivec_sort_companion()
400         for (pi = pj - 1, pi2 = pj2 - 1; pi >= ar; pi--, pi2--) {  in PCTFS_ivec_sort_companion()
401           if (*pi <= temp) break;  in PCTFS_ivec_sort_companion()
402           *(pi + 1)  = *pi;  in PCTFS_ivec_sort_companion()
405         *(pi + 1)  = temp;  in PCTFS_ivec_sort_companion()
423   PetscInt  *pi, *pj, temp, *ptr;  in PCTFS_ivec_sort_companion_hack()  local
440       pi  = ar + 1;  in PCTFS_ivec_sort_companion_hack()
446       SWAP(*pi, *pj);  in PCTFS_ivec_sort_companion_hack()
453       if (*pi > *pj) {  in PCTFS_ivec_sort_companion_hack()
454         SWAP(*pi, *pj);  in PCTFS_ivec_sort_companion_hack()
460       } else if (*pi > *ar) {  in PCTFS_ivec_sort_companion_hack()
470           pi++;  in PCTFS_ivec_sort_companion_hack()
472         } while (*pi < *ar);  in PCTFS_ivec_sort_companion_hack()
479         if (pj < pi) break;  in PCTFS_ivec_sort_companion_hack()
482         SWAP(*pi, *pj);  in PCTFS_ivec_sort_companion_hack()
494       if ((*top_s = size - ((PetscInt)(pi - ar)))) {  in PCTFS_ivec_sort_companion_hack()
495         *(top_a++) = pi;  in PCTFS_ivec_sort_companion_hack()
510         for (pi = pj - 1, pi2 = pj2 - 1; pi >= ar; pi--, pi2--) {  in PCTFS_ivec_sort_companion_hack()
511           if (*pi <= temp) break;  in PCTFS_ivec_sort_companion_hack()
512           *(pi + 1)  = *pi;  in PCTFS_ivec_sort_companion_hack()
515         *(pi + 1)  = temp;  in PCTFS_ivec_sort_companion_hack()