79 static PetscErrorCode AOPetscToApplicationPermuteInt_Basic(AO ao, PetscInt block, PetscInt *array)  in AOPetscToApplicationPermuteInt_Basic()  argument
86   PetscCall(PetscMalloc1(ao->N * block, &temp));  in AOPetscToApplicationPermuteInt_Basic()
88     for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->petsc[i] * block + j];  in AOPetscToApplicationPermuteInt_Basic()
90   PetscCall(PetscArraycpy(array, temp, ao->N * block));  in AOPetscToApplicationPermuteInt_Basic()
95 static PetscErrorCode AOApplicationToPetscPermuteInt_Basic(AO ao, PetscInt block, PetscInt *array)  in AOApplicationToPetscPermuteInt_Basic()  argument
102   PetscCall(PetscMalloc1(ao->N * block, &temp));  in AOApplicationToPetscPermuteInt_Basic()
104     for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->app[i] * block + j];  in AOApplicationToPetscPermuteInt_Basic()
106   PetscCall(PetscArraycpy(array, temp, ao->N * block));  in AOApplicationToPetscPermuteInt_Basic()
111 static PetscErrorCode AOPetscToApplicationPermuteReal_Basic(AO ao, PetscInt block, PetscReal *array)  in AOPetscToApplicationPermuteReal_Basic()  argument
118   PetscCall(PetscMalloc1(ao->N * block, &temp));  in AOPetscToApplicationPermuteReal_Basic()
120     for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->petsc[i] * block + j];  in AOPetscToApplicationPermuteReal_Basic()
122   PetscCall(PetscArraycpy(array, temp, ao->N * block));  in AOPetscToApplicationPermuteReal_Basic()
127 static PetscErrorCode AOApplicationToPetscPermuteReal_Basic(AO ao, PetscInt block, PetscReal *array)  in AOApplicationToPetscPermuteReal_Basic()  argument
134   PetscCall(PetscMalloc1(ao->N * block, &temp));  in AOApplicationToPetscPermuteReal_Basic()
136     for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->app[i] * block + j];  in AOApplicationToPetscPermuteReal_Basic()
138   PetscCall(PetscArraycpy(array, temp, ao->N * block));  in AOApplicationToPetscPermuteReal_Basic()