Lines Matching refs:petsc
10 PetscInt *petsc; /* petsc[j] is the partner for the jth app slot */ member
30 …Int_FMT " %3" PetscInt_FMT " %3" PetscInt_FMT "\n", i, aobasic->app[i], i, aobasic->petsc[i])); in AOView_Basic()
42 PetscCall(PetscFree2(aobasic->app, aobasic->petsc)); in AODestroy_Basic()
71 ia[i] = aobasic->petsc[ia[i]]; in AOApplicationToPetsc_Basic()
88 for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->petsc[i] * block + j]; in AOPetscToApplicationPermuteInt_Basic()
120 for (j = 0; j < block; j++) temp[i * block + j] = array[aobasic->petsc[i] * block + j]; in AOPetscToApplicationPermuteReal_Basic()
158 PetscInt napp, *allpetsc, *allapp, ip, ia, N, i, *petsc = NULL, start; in AOCreate_Basic() local
193 PetscCall(PetscMalloc1(napp + 1, &petsc)); in AOCreate_Basic()
194 for (i = 0; i < napp; i++) petsc[i] = start + i; in AOCreate_Basic()
197 petsc = (PetscInt *)mypetsc; in AOCreate_Basic()
203 PetscCallMPI(MPI_Allgatherv(petsc, count, MPIU_INT, allpetsc, lens, disp, MPIU_INT, comm)); in AOCreate_Basic()
223 PetscCall(PetscCalloc2(N, &aobasic->app, N, &aobasic->petsc)); in AOCreate_Basic()
230 …petsc[ia], PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Duplicate in Application ordering at positi… in AOCreate_Basic()
231 aobasic->petsc[ia] = ip + 1; in AOCreate_Basic()
233 if (napp && !mypetsc) PetscCall(PetscFree(petsc)); in AOCreate_Basic()
238 aobasic->petsc[i]--; in AOCreate_Basic()
246 PetscCall(PetscFree(petsc)); in AOCreate_Basic()
278 const PetscInt *app = myapp, *petsc = mypetsc; in AOCreateBasic() local
283 PetscCall(ISCreateGeneral(comm, napp, petsc, PETSC_USE_POINTER, &ispetsc)); in AOCreateBasic()