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