1: /*$Id: spinver.c,v 1.19 2001/03/23 23:22:51 balay Exp $*/
3: #include petsc.h
5: /*
6: MatInvertPermutation_Private - Compute the inverse ordering of a permutation
7: */
10: void MatInvertPermutation_Private(int n,int *perm,int *iperm)
11: {
12: int i;
15: for (i=0; i<n; i++) {
16: iperm[*perm++] = i;
17: }
18: }