Lines Matching refs:ierr
54 …etscInt *row, PetscInt *N, F90Array1d *ia, F90Array1d *a, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in matgetrow_()
61 *ierr = MatGetRow(*B, *row, &n, NULL, NULL); in matgetrow_()
63 *ierr = MatGetRow(*B, *row, &n, NULL, &A); in matgetrow_()
65 *ierr = MatGetRow(*B, *row, &n, &II, NULL); in matgetrow_()
67 *ierr = MatGetRow(*B, *row, &n, &II, &A); in matgetrow_()
69 if (*ierr) return; in matgetrow_()
70 if (II) *ierr = F90Array1dCreate((void *)II, MPIU_INT, 1, n, ia PETSC_F90_2PTR_PARAM(iad)); in matgetrow_()
71 if (A) *ierr = F90Array1dCreate((void *)A, MPIU_SCALAR, 1, n, a PETSC_F90_2PTR_PARAM(jad)); in matgetrow_()
74 …etscInt *row, PetscInt *N, F90Array1d *ia, F90Array1d *a, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in matrestorerow_()
81 *ierr = MatRestoreRow(*B, *row, &n, NULL, NULL); in matrestorerow_()
85 *ierr = F90Array1dAccess(ia, MPIU_INT, (void **)&IA PETSC_F90_2PTR_PARAM(iad)); in matrestorerow_()
86 if (*ierr) return; in matrestorerow_()
87 *ierr = F90Array1dDestroy(ia, MPIU_INT PETSC_F90_2PTR_PARAM(iad)); in matrestorerow_()
88 if (*ierr) return; in matrestorerow_()
91 *ierr = F90Array1dAccess(a, MPIU_SCALAR, (void **)&A PETSC_F90_2PTR_PARAM(jad)); in matrestorerow_()
92 if (*ierr) return; in matrestorerow_()
93 *ierr = F90Array1dDestroy(a, MPIU_INT PETSC_F90_2PTR_PARAM(jad)); in matrestorerow_()
94 if (*ierr) return; in matrestorerow_()
97 *ierr = MatRestoreRow(*B, *row, &n, NULL, &A); in matrestorerow_()
99 *ierr = MatRestoreRow(*B, *row, &n, &IA, NULL); in matrestorerow_()
101 *ierr = MatRestoreRow(*B, *row, &n, &IA, &A); in matrestorerow_()
104 PETSC_EXTERN void matgetghosts_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in matgetghosts_()
109 *ierr = MatGetGhosts(*mat, &N, &ghosts); in matgetghosts_()
110 if (*ierr) return; in matgetghosts_()
111 *ierr = F90Array1dCreate((PetscInt *)ghosts, MPIU_INT, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matgetghosts_()
113 PETSC_EXTERN void matdensegetarray2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptr… in matdensegetarray2d_()
117 *ierr = MatDenseGetArray(*mat, &fa); in matdensegetarray2d_()
118 if (*ierr) return; in matdensegetarray2d_()
119 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarray2d_()
120 if (*ierr) return; in matdensegetarray2d_()
121 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarray2d_()
122 if (*ierr) return; in matdensegetarray2d_()
123 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarray2d_()
124 if (*ierr) return; in matdensegetarray2d_()
126 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarray2d_()
129 *ierr = F90Array2dCreate(fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarray2d_()
131 PETSC_EXTERN void matdenserestorearray2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdenserestorearray2d_()
134 *ierr = F90Array2dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearray2d_()
135 if (*ierr) return; in matdenserestorearray2d_()
136 *ierr = F90Array2dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearray2d_()
137 if (*ierr) return; in matdenserestorearray2d_()
138 *ierr = MatDenseRestoreArray(*mat, &fa); in matdenserestorearray2d_()
140 PETSC_EXTERN void matdensegetarrayread2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdensegetarrayread2d_()
144 *ierr = MatDenseGetArrayRead(*mat, &fa); in matdensegetarrayread2d_()
145 if (*ierr) return; in matdensegetarrayread2d_()
146 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarrayread2d_()
147 if (*ierr) return; in matdensegetarrayread2d_()
148 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarrayread2d_()
149 if (*ierr) return; in matdensegetarrayread2d_()
150 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarrayread2d_()
151 if (*ierr) return; in matdensegetarrayread2d_()
153 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarrayread2d_()
156 *ierr = F90Array2dCreate((void **)fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarrayread2d_()
158 PETSC_EXTERN void matdenserestorearrayread2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_P… in matdenserestorearrayread2d_()
161 *ierr = F90Array2dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearrayread2d_()
162 if (*ierr) return; in matdenserestorearrayread2d_()
163 *ierr = F90Array2dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearrayread2d_()
164 if (*ierr) return; in matdenserestorearrayread2d_()
165 *ierr = MatDenseRestoreArrayRead(*mat, &fa); in matdenserestorearrayread2d_()
167 PETSC_EXTERN void matdensegetarraywrite2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROT… in matdensegetarraywrite2d_()
171 *ierr = MatDenseGetArrayWrite(*mat, &fa); in matdensegetarraywrite2d_()
172 if (*ierr) return; in matdensegetarraywrite2d_()
173 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarraywrite2d_()
174 if (*ierr) return; in matdensegetarraywrite2d_()
175 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarraywrite2d_()
176 if (*ierr) return; in matdensegetarraywrite2d_()
177 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarraywrite2d_()
178 if (*ierr) return; in matdensegetarraywrite2d_()
180 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarraywrite2d_()
183 *ierr = F90Array2dCreate(fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarraywrite2d_()
185 PETSC_EXTERN void matdenserestorearraywrite2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_… in matdenserestorearraywrite2d_()
188 *ierr = F90Array2dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearraywrite2d_()
189 if (*ierr) return; in matdenserestorearraywrite2d_()
190 *ierr = F90Array2dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearraywrite2d_()
191 if (*ierr) return; in matdenserestorearraywrite2d_()
192 *ierr = MatDenseRestoreArrayWrite(*mat, &fa); in matdenserestorearraywrite2d_()
194 PETSC_EXTERN void matdensegetarray1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptr… in matdensegetarray1d_()
198 *ierr = MatDenseGetArray(*mat, &fa); in matdensegetarray1d_()
199 if (*ierr) return; in matdensegetarray1d_()
200 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarray1d_()
201 if (*ierr) return; in matdensegetarray1d_()
202 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarray1d_()
203 if (*ierr) return; in matdensegetarray1d_()
204 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarray1d_()
205 if (*ierr) return; in matdensegetarray1d_()
207 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarray1d_()
210 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarray1d_()
212 PETSC_EXTERN void matdenserestorearray1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdenserestorearray1d_()
215 *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearray1d_()
216 if (*ierr) return; in matdenserestorearray1d_()
217 *ierr = F90Array1dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearray1d_()
218 if (*ierr) return; in matdenserestorearray1d_()
219 *ierr = MatDenseRestoreArray(*mat, &fa); in matdenserestorearray1d_()
221 PETSC_EXTERN void matdensegetarrayread1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdensegetarrayread1d_()
225 *ierr = MatDenseGetArrayRead(*mat, &fa); in matdensegetarrayread1d_()
226 if (*ierr) return; in matdensegetarrayread1d_()
227 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarrayread1d_()
228 if (*ierr) return; in matdensegetarrayread1d_()
229 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarrayread1d_()
230 if (*ierr) return; in matdensegetarrayread1d_()
231 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarrayread1d_()
232 if (*ierr) return; in matdensegetarrayread1d_()
234 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarrayread1d_()
237 *ierr = F90Array1dCreate((void **)fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarrayread1d_()
239 PETSC_EXTERN void matdenserestorearrayread1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_P… in matdenserestorearrayread1d_()
242 *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearrayread1d_()
243 if (*ierr) return; in matdenserestorearrayread1d_()
244 *ierr = F90Array1dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearrayread1d_()
245 if (*ierr) return; in matdenserestorearrayread1d_()
246 *ierr = MatDenseRestoreArrayRead(*mat, &fa); in matdenserestorearrayread1d_()
248 PETSC_EXTERN void matdensegetarraywrite1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROT… in matdensegetarraywrite1d_()
252 *ierr = MatDenseGetArrayWrite(*mat, &fa); in matdensegetarraywrite1d_()
253 if (*ierr) return; in matdensegetarraywrite1d_()
254 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarraywrite1d_()
255 if (*ierr) return; in matdensegetarraywrite1d_()
256 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarraywrite1d_()
257 if (*ierr) return; in matdensegetarraywrite1d_()
258 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarraywrite1d_()
259 if (*ierr) return; in matdensegetarraywrite1d_()
261 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarraywrite1d_()
264 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarraywrite1d_()
266 PETSC_EXTERN void matdenserestorearraywrite1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_… in matdenserestorearraywrite1d_()
269 *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearraywrite1d_()
270 if (*ierr) return; in matdenserestorearraywrite1d_()
271 *ierr = F90Array1dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearraywrite1d_()
272 if (*ierr) return; in matdenserestorearraywrite1d_()
273 *ierr = MatDenseRestoreArrayWrite(*mat, &fa); in matdenserestorearraywrite1d_()
275 PETSC_EXTERN void matdensegetcolumn_(Mat *mat, PetscInt *col, F90Array1d *ptr, int *ierr PETSC_F90_… in matdensegetcolumn_()
279 *ierr = MatDenseGetColumn(*mat, *col, &fa); in matdensegetcolumn_()
280 if (*ierr) return; in matdensegetcolumn_()
281 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetcolumn_()
282 if (*ierr) return; in matdensegetcolumn_()
283 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetcolumn_()
285 PETSC_EXTERN void matdenserestorecolumn_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(… in matdenserestorecolumn_()
288 *ierr = F90Array1dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorecolumn_()
289 if (*ierr) return; in matdenserestorecolumn_()
290 *ierr = MatDenseRestoreColumn(*mat, &fa); in matdenserestorecolumn_()
294 PETSC_EXTERN void matseqaijgetarray_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd… in matseqaijgetarray_()
300 *ierr = MatSeqAIJGetArray(*mat, &fa); in matseqaijgetarray_()
301 if (*ierr) return; in matseqaijgetarray_()
302 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, nz, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matseqaijgetarray_()
304 PETSC_EXTERN void matseqaijrestorearray_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(… in matseqaijrestorearray_()
307 *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matseqaijrestorearray_()
308 if (*ierr) return; in matseqaijrestorearray_()
309 *ierr = F90Array1dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in matseqaijrestorearray_()
310 if (*ierr) return; in matseqaijrestorearray_()
311 *ierr = MatSeqAIJRestoreArray(*mat, &fa); in matseqaijrestorearray_()
313 …cInt *n, F90Array1d *ia, F90Array1d *ja, PetscBool *done, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in matgetrowij_()
316 *ierr = MatGetRowIJ(*B, *shift, *sym, *blockcompressed, n, &IA, &JA, done); in matgetrowij_()
317 if (*ierr) return; in matgetrowij_()
319 *ierr = F90Array1dCreate((PetscInt *)IA, MPIU_INT, 1, *n + 1, ia PETSC_F90_2PTR_PARAM(iad)); in matgetrowij_()
320 *ierr = F90Array1dCreate((PetscInt *)JA, MPIU_INT, 1, IA[*n], ja PETSC_F90_2PTR_PARAM(jad)); in matgetrowij_()
322 …cInt *n, F90Array1d *ia, F90Array1d *ja, PetscBool *done, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in matrestorerowij_()
325 *ierr = F90Array1dAccess(ia, MPIU_INT, (void **)&IA PETSC_F90_2PTR_PARAM(iad)); in matrestorerowij_()
326 if (*ierr) return; in matrestorerowij_()
327 *ierr = F90Array1dDestroy(ia, MPIU_INT PETSC_F90_2PTR_PARAM(iad)); in matrestorerowij_()
328 if (*ierr) return; in matrestorerowij_()
329 *ierr = F90Array1dAccess(ja, MPIU_INT, (void **)&JA PETSC_F90_2PTR_PARAM(jad)); in matrestorerowij_()
330 if (*ierr) return; in matrestorerowij_()
331 *ierr = F90Array1dDestroy(ja, MPIU_INT PETSC_F90_2PTR_PARAM(jad)); in matrestorerowij_()
332 if (*ierr) return; in matrestorerowij_()
333 *ierr = MatRestoreRowIJ(*B, *shift, *sym, *blockcompressed, n, &IA, &JA, done); in matrestorerowij_()
335 PETSC_EXTERN void matmpiaijgetseqaij_(Mat *mat, Mat *A, Mat *B, F90Array1d *ptr, int *ierr PETSC_F9… in matmpiaijgetseqaij_()
339 *ierr = MatMPIAIJGetSeqAIJ(*mat, A, B, &fa); in matmpiaijgetseqaij_()
340 if (*ierr) return; in matmpiaijgetseqaij_()
341 *ierr = MatGetLocalSize(*B, NULL, &n); in matmpiaijgetseqaij_()
342 if (*ierr) return; in matmpiaijgetseqaij_()
343 *ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matmpiaijgetseqaij_()
345 PETSC_EXTERN void matmpiaijrestoreseqaij_(Mat *mat, Mat *A, Mat *B, F90Array1d *ptr, int *ierr PETS… in matmpiaijrestoreseqaij_()
347 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in matmpiaijrestoreseqaij_()
348 if (*ierr) return; in matmpiaijrestoreseqaij_()