Lines Matching refs:aobasic
20 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOView_Basic() local
30 …etscInt_FMT " %3" PetscInt_FMT " %3" PetscInt_FMT "\n", i, aobasic->app[i], i, aobasic->petsc[… in AOView_Basic()
39 AO_Basic *aobasic = (AO_Basic *)ao->data; in AODestroy_Basic() local
42 PetscCall(PetscFree2(aobasic->app, aobasic->petsc)); in AODestroy_Basic()
43 PetscCall(PetscFree(aobasic)); in AODestroy_Basic()
50 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOPetscToApplication_Basic() local
55 ia[i] = aobasic->app[ia[i]]; in AOPetscToApplication_Basic()
66 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOApplicationToPetsc_Basic() local
71 ia[i] = aobasic->petsc[ia[i]]; in AOApplicationToPetsc_Basic()
81 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOPetscToApplicationPermuteInt_Basic() local
88 for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->petsc[i] * block + j]; in AOPetscToApplicationPermuteInt_Basic()
97 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOApplicationToPetscPermuteInt_Basic() local
104 for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->app[i] * block + j]; in AOApplicationToPetscPermuteInt_Basic()
113 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOPetscToApplicationPermuteReal_Basic() local
120 for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->petsc[i] * block + j]; in AOPetscToApplicationPermuteReal_Basic()
129 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOApplicationToPetscPermuteReal_Basic() local
136 for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->app[i] * block + j]; in AOApplicationToPetscPermuteReal_Basic()
156 AO_Basic *aobasic; in AOCreate_Basic() local
165 PetscCall(PetscNew(&aobasic)); in AOCreate_Basic()
166 ao->data = (void *)aobasic; in AOCreate_Basic()
223 PetscCall(PetscCalloc2(N, &aobasic->app, N, &aobasic->petsc)); in AOCreate_Basic()
228 …aobasic->app[ip], PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Duplicate in PETSc ordering at posit… in AOCreate_Basic()
229 aobasic->app[ip] = ia + 1; in AOCreate_Basic()
230 …aobasic->petsc[ia], PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Duplicate in Application ordering … in AOCreate_Basic()
231 aobasic->petsc[ia] = ip + 1; in AOCreate_Basic()
237 aobasic->app[i]--; in AOCreate_Basic()
238 aobasic->petsc[i]--; in AOCreate_Basic()