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: */
8: void MatInvertPermutation_Private(int n,int *perm,int *iperm)
9: {
10: int i;
13: for (i=0; i<n; i++) {
14: iperm[*perm++] = i;
15: }
16: }