Lines Matching refs:ao
16 static PetscErrorCode AOView_Basic(AO ao, PetscViewer viewer) in AOView_Basic() argument
20 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOView_Basic()
24 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)ao), &rank)); in AOView_Basic()
28 …cCall(PetscViewerASCIIPrintf(viewer, "Number of elements in ordering %" PetscInt_FMT "\n", ao->N)); in AOView_Basic()
30 …for (i = 0; i < ao->N; i++) PetscCall(PetscViewerASCIIPrintf(viewer, "%3" PetscInt_FMT " %3" Pets… in AOView_Basic()
37 static PetscErrorCode AODestroy_Basic(AO ao) in AODestroy_Basic() argument
39 AO_Basic *aobasic = (AO_Basic *)ao->data; in AODestroy_Basic()
47 static PetscErrorCode AOPetscToApplication_Basic(AO ao, PetscInt n, PetscInt *ia) in AOPetscToApplication_Basic() argument
49 PetscInt i, N = ao->N; in AOPetscToApplication_Basic()
50 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOPetscToApplication_Basic()
63 static PetscErrorCode AOApplicationToPetsc_Basic(AO ao, PetscInt n, PetscInt *ia) in AOApplicationToPetsc_Basic() argument
65 PetscInt i, N = ao->N; in AOApplicationToPetsc_Basic()
66 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOApplicationToPetsc_Basic()
79 static PetscErrorCode AOPetscToApplicationPermuteInt_Basic(AO ao, PetscInt block, PetscInt *array) in AOPetscToApplicationPermuteInt_Basic() argument
81 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOPetscToApplicationPermuteInt_Basic()
86 PetscCall(PetscMalloc1(ao->N * block, &temp)); in AOPetscToApplicationPermuteInt_Basic()
87 for (i = 0; i < ao->N; i++) { 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
97 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOApplicationToPetscPermuteInt_Basic()
102 PetscCall(PetscMalloc1(ao->N * block, &temp)); in AOApplicationToPetscPermuteInt_Basic()
103 for (i = 0; i < ao->N; i++) { 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
113 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOPetscToApplicationPermuteReal_Basic()
118 PetscCall(PetscMalloc1(ao->N * block, &temp)); in AOPetscToApplicationPermuteReal_Basic()
119 for (i = 0; i < ao->N; i++) { 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
129 AO_Basic *aobasic = (AO_Basic *)ao->data; in AOApplicationToPetscPermuteReal_Basic()
134 PetscCall(PetscMalloc1(ao->N * block, &temp)); in AOApplicationToPetscPermuteReal_Basic()
135 for (i = 0; i < ao->N; i++) { in AOApplicationToPetscPermuteReal_Basic()
138 PetscCall(PetscArraycpy(array, temp, ao->N * block)); in AOApplicationToPetscPermuteReal_Basic()
154 PETSC_INTERN PetscErrorCode AOCreate_Basic(AO ao) in AOCreate_Basic() argument
159 IS isapp = ao->isapp, ispetsc = ao->ispetsc; in AOCreate_Basic()
166 ao->data = (void *)aobasic; in AOCreate_Basic()
167 ao->ops[0] = AOOps_Basic; in AOCreate_Basic()
168 PetscCall(PetscObjectChangeTypeName((PetscObject)ao, AOBASIC)); in AOCreate_Basic()
186 ao->N = N; in AOCreate_Basic()
187 ao->n = N; in AOCreate_Basic()
316 AO ao; in AOCreateBasicIS() local
320 PetscCall(AOCreate(comm, &ao)); in AOCreateBasicIS()
321 PetscCall(AOSetIS(ao, isapp, ispetsc)); in AOCreateBasicIS()
322 PetscCall(AOSetType(ao, AOBASIC)); in AOCreateBasicIS()
323 PetscCall(AOViewFromOptions(ao, NULL, "-ao_view")); in AOCreateBasicIS()
324 *aoout = ao; in AOCreateBasicIS()