Lines Matching refs:ierr
31 …cInt *nleaves, F90Array1d *ailocal, F90Array1d *airemote, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfgetgraph_()
37 *ierr = PetscSFGetGraph(*sf, nroots, nleaves, &ilocal, &iremote); in petscsfgetgraph_()
38 if (*ierr) return; in petscsfgetgraph_()
41 *ierr = F90Array1dCreate((void *)ilocal, MPIU_INT, 1, nl, ailocal PETSC_F90_2PTR_PARAM(pilocal)); in petscsfgetgraph_()
46 …cInt *nleaves, F90Array1d *ailocal, F90Array1d *airemote, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfrestoregraph_()
48 *ierr = F90Array1dDestroy(ailocal, MPIU_INT PETSC_F90_2PTR_PARAM(pilocal)); in petscsfrestoregraph_()
49 if (*ierr) return; in petscsfrestoregraph_()
53 …1d *airanks, F90Array1d *aioffset, F90Array1d *airootloc, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfgetleafranks_()
59 *ierr = PetscSFGetLeafRanks(*sf, niranks, &iranks, &ioffset, &irootloc); in petscsfgetleafranks_()
60 if (*ierr) return; in petscsfgetleafranks_()
61 …*ierr = F90Array1dCreate((void *)irootloc, MPIU_INT, 1, ioffset[*niranks], airootloc PETSC_F90_2PT… in petscsfgetleafranks_()
62 if (*ierr) return; in petscsfgetleafranks_()
63 …*ierr = F90Array1dCreate((void *)iranks, MPI_INT, 1, *niranks, airanks PETSC_F90_2PTR_PARAM(pirank… in petscsfgetleafranks_()
64 if (*ierr) return; in petscsfgetleafranks_()
65 …*ierr = F90Array1dCreate((void *)ioffset, MPIU_INT, 1, *niranks + 1, aioffset PETSC_F90_2PTR_PARAM… in petscsfgetleafranks_()
66 if (*ierr) return; in petscsfgetleafranks_()
69 …ay1d *aroffset, F90Array1d *armine, F90Array1d *arremote, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfgetrootranks_()
76 *ierr = PetscSFGetRootRanks(*sf, nranks, &ranks, &roffset, &rmine, &rremote); in petscsfgetrootranks_()
77 if (*ierr) return; in petscsfgetrootranks_()
78 *ierr = F90Array1dCreate((void *)ranks, MPI_INT, 1, *nranks, aranks PETSC_F90_2PTR_PARAM(pranks)); in petscsfgetrootranks_()
79 if (*ierr) return; in petscsfgetrootranks_()
80 …*ierr = F90Array1dCreate((void *)roffset, MPIU_INT, 1, *nranks + 1, aroffset PETSC_F90_2PTR_PARAM(… in petscsfgetrootranks_()
81 if (*ierr) return; in petscsfgetrootranks_()
82 …*ierr = F90Array1dCreate((void *)rmine, MPIU_INT, 1, roffset[*nranks], armine PETSC_F90_2PTR_PARAM… in petscsfgetrootranks_()
83 if (*ierr) return; in petscsfgetrootranks_()
84 …*ierr = F90Array1dCreate((void *)rremote, MPIU_INT, 1, roffset[*nranks], arremote PETSC_F90_2PTR_P… in petscsfgetrootranks_()
85 if (*ierr) return; in petscsfgetrootranks_()
89 …gin_(PetscSF *sf, MPI_Fint *unit, const void *rptr, void *lptr, MPI_Fint *op, PetscErrorCode *ierr) in petscsfbcastbegin_() argument
94 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfbcastbegin_()
95 if (*ierr) return; in petscsfbcastbegin_()
96 *ierr = PetscSFBcastBegin(*sf, dtype, rptr, lptr, cop); in petscsfbcastbegin_()
99 …end_(PetscSF *sf, MPI_Fint *unit, const void *rptr, void *lptr, MPI_Fint *op, PetscErrorCode *ierr) in petscsfbcastend_() argument
104 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfbcastend_()
105 if (*ierr) return; in petscsfbcastend_()
106 *ierr = PetscSFBcastEnd(*sf, dtype, rptr, lptr, cop); in petscsfbcastend_()
109 …gin_(PetscSF *sf, MPI_Fint *unit, const void *lptr, void *rptr, MPI_Fint *op, PetscErrorCode *ierr) in petscsfreducebegin_() argument
114 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfreducebegin_()
115 if (*ierr) return; in petscsfreducebegin_()
116 *ierr = PetscSFReduceBegin(*sf, dtype, lptr, rptr, cop); in petscsfreducebegin_()
119 …end_(PetscSF *sf, MPI_Fint *unit, const void *lptr, void *rptr, MPI_Fint *op, PetscErrorCode *ierr) in petscsfreduceend_() argument
124 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfreduceend_()
125 if (*ierr) return; in petscsfreduceend_()
126 *ierr = PetscSFReduceEnd(*sf, dtype, lptr, rptr, cop); in petscsfreduceend_()
131 … *unit, F90Array1d *rptr, F90Array1d *lptr, MPI_Fint *op, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfbcastbegin_()
138 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfbcastbegin_()
139 if (*ierr) return; in petscsfbcastbegin_()
140 *ierr = F90Array1dAccess(rptr, dtype, (void **)&rootdata PETSC_F90_2PTR_PARAM(rptrd)); in petscsfbcastbegin_()
141 if (*ierr) return; in petscsfbcastbegin_()
142 *ierr = F90Array1dAccess(lptr, dtype, (void **)&leafdata PETSC_F90_2PTR_PARAM(lptrd)); in petscsfbcastbegin_()
143 if (*ierr) return; in petscsfbcastbegin_()
144 *ierr = PetscSFBcastBegin(*sf, dtype, rootdata, leafdata, cop); in petscsfbcastbegin_()
147 … *unit, F90Array1d *rptr, F90Array1d *lptr, MPI_Fint *op, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfbcastend_()
154 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfbcastend_()
155 if (*ierr) return; in petscsfbcastend_()
156 *ierr = F90Array1dAccess(rptr, dtype, (void **)&rootdata PETSC_F90_2PTR_PARAM(rptrd)); in petscsfbcastend_()
157 if (*ierr) return; in petscsfbcastend_()
158 *ierr = F90Array1dAccess(lptr, dtype, (void **)&leafdata PETSC_F90_2PTR_PARAM(lptrd)); in petscsfbcastend_()
159 if (*ierr) return; in petscsfbcastend_()
160 *ierr = PetscSFBcastEnd(*sf, dtype, rootdata, leafdata, cop); in petscsfbcastend_()
163 … *unit, F90Array1d *lptr, F90Array1d *rptr, MPI_Fint *op, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfreducebegin_()
170 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfreducebegin_()
171 if (*ierr) return; in petscsfreducebegin_()
172 *ierr = F90Array1dAccess(rptr, dtype, (void **)&rootdata PETSC_F90_2PTR_PARAM(rptrd)); in petscsfreducebegin_()
173 if (*ierr) return; in petscsfreducebegin_()
174 *ierr = F90Array1dAccess(lptr, dtype, (void **)&leafdata PETSC_F90_2PTR_PARAM(lptrd)); in petscsfreducebegin_()
175 if (*ierr) return; in petscsfreducebegin_()
176 *ierr = PetscSFReduceBegin(*sf, dtype, leafdata, rootdata, cop); in petscsfreducebegin_()
179 … *unit, F90Array1d *lptr, F90Array1d *rptr, MPI_Fint *op, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfreduceend_()
186 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfreduceend_()
187 if (*ierr) return; in petscsfreduceend_()
188 *ierr = F90Array1dAccess(rptr, dtype, (void **)&rootdata PETSC_F90_2PTR_PARAM(rptrd)); in petscsfreduceend_()
189 if (*ierr) return; in petscsfreduceend_()
190 *ierr = F90Array1dAccess(lptr, dtype, (void **)&leafdata PETSC_F90_2PTR_PARAM(lptrd)); in petscsfreduceend_()
191 if (*ierr) return; in petscsfreduceend_()
192 *ierr = PetscSFReduceEnd(*sf, dtype, leafdata, rootdata, cop); in petscsfreduceend_()