82   PetscInt *temp;  in AOPetscToApplicationPermuteInt_Basic()  local
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()
91   PetscCall(PetscFree(temp));  in AOPetscToApplicationPermuteInt_Basic()
98   PetscInt *temp;  in AOApplicationToPetscPermuteInt_Basic()  local
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()
107   PetscCall(PetscFree(temp));  in AOApplicationToPetscPermuteInt_Basic()
114   PetscReal *temp;  in AOPetscToApplicationPermuteReal_Basic()  local
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()
123   PetscCall(PetscFree(temp));  in AOPetscToApplicationPermuteReal_Basic()
130   PetscReal *temp;  in AOApplicationToPetscPermuteReal_Basic()  local
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()
139   PetscCall(PetscFree(temp));  in AOApplicationToPetscPermuteReal_Basic()