Actual source code: spinver.c

 2:  #include petsc.h

  4: /*
  5:   MatInvertPermutation_Private - Compute the inverse ordering of a permutation
  6:  */
  9: void MatInvertPermutation_Private(PetscInt n,PetscInt *perm,PetscInt *iperm)
 10: {
 11:   PetscInt i;

 14:   for (i=0; i<n; i++) {
 15:     iperm[*perm++] = i;
 16:   }
 17: }