Actual source code: spinver.c

  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: }