Lines Matching refs:mat
104 PETSC_EXTERN void matgetghosts_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in matgetghosts_() argument
109 *ierr = MatGetGhosts(*mat, &N, &ghosts); in matgetghosts_()
113 PETSC_EXTERN void matdensegetarray2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptr… in matdensegetarray2d_() argument
117 *ierr = MatDenseGetArray(*mat, &fa); in matdensegetarray2d_()
119 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarray2d_()
121 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarray2d_()
123 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarray2d_()
126 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarray2d_()
131 PETSC_EXTERN void matdenserestorearray2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdenserestorearray2d_() argument
138 *ierr = MatDenseRestoreArray(*mat, &fa); in matdenserestorearray2d_()
140 PETSC_EXTERN void matdensegetarrayread2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdensegetarrayread2d_() argument
144 *ierr = MatDenseGetArrayRead(*mat, &fa); in matdensegetarrayread2d_()
146 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarrayread2d_()
148 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarrayread2d_()
150 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarrayread2d_()
153 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarrayread2d_()
158 PETSC_EXTERN void matdenserestorearrayread2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_P… in matdenserestorearrayread2d_() argument
165 *ierr = MatDenseRestoreArrayRead(*mat, &fa); in matdenserestorearrayread2d_()
167 PETSC_EXTERN void matdensegetarraywrite2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_PROT… in matdensegetarraywrite2d_() argument
171 *ierr = MatDenseGetArrayWrite(*mat, &fa); in matdensegetarraywrite2d_()
173 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarraywrite2d_()
175 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarraywrite2d_()
177 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarraywrite2d_()
180 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarraywrite2d_()
185 PETSC_EXTERN void matdenserestorearraywrite2d_(Mat *mat, F90Array2d *ptr, int *ierr PETSC_F90_2PTR_… in matdenserestorearraywrite2d_() argument
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_() argument
198 *ierr = MatDenseGetArray(*mat, &fa); in matdensegetarray1d_()
200 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarray1d_()
202 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarray1d_()
204 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarray1d_()
207 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarray1d_()
212 PETSC_EXTERN void matdenserestorearray1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdenserestorearray1d_() argument
219 *ierr = MatDenseRestoreArray(*mat, &fa); in matdenserestorearray1d_()
221 PETSC_EXTERN void matdensegetarrayread1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdensegetarrayread1d_() argument
225 *ierr = MatDenseGetArrayRead(*mat, &fa); in matdensegetarrayread1d_()
227 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarrayread1d_()
229 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarrayread1d_()
231 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarrayread1d_()
234 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarrayread1d_()
239 PETSC_EXTERN void matdenserestorearrayread1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_P… in matdenserestorearrayread1d_() argument
246 *ierr = MatDenseRestoreArrayRead(*mat, &fa); in matdenserestorearrayread1d_()
248 PETSC_EXTERN void matdensegetarraywrite1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROT… in matdensegetarraywrite1d_() argument
252 *ierr = MatDenseGetArrayWrite(*mat, &fa); in matdensegetarraywrite1d_()
254 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetarraywrite1d_()
256 *ierr = MatGetSize(*mat, NULL, &N); in matdensegetarraywrite1d_()
258 *ierr = MatDenseGetLDA(*mat, &lda); in matdensegetarraywrite1d_()
261 …*ierr = PetscError(((PetscObject)*mat)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in matdensegetarraywrite1d_()
266 PETSC_EXTERN void matdenserestorearraywrite1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_… in matdenserestorearraywrite1d_() argument
273 *ierr = MatDenseRestoreArrayWrite(*mat, &fa); in matdenserestorearraywrite1d_()
275 PETSC_EXTERN void matdensegetcolumn_(Mat *mat, PetscInt *col, F90Array1d *ptr, int *ierr PETSC_F90_… in matdensegetcolumn_() argument
279 *ierr = MatDenseGetColumn(*mat, *col, &fa); in matdensegetcolumn_()
281 *ierr = MatGetLocalSize(*mat, &m, NULL); in matdensegetcolumn_()
285 PETSC_EXTERN void matdenserestorecolumn_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(… in matdenserestorecolumn_() argument
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_() argument
297 Mat_SeqAIJ *a = (Mat_SeqAIJ *)(*mat)->data; in matseqaijgetarray_()
298 PetscInt nz = (*mat)->rmap->n ? a->i[(*mat)->rmap->n] : 0; in matseqaijgetarray_()
300 *ierr = MatSeqAIJGetArray(*mat, &fa); in matseqaijgetarray_()
304 PETSC_EXTERN void matseqaijrestorearray_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(… in matseqaijrestorearray_() argument
311 *ierr = MatSeqAIJRestoreArray(*mat, &fa); in matseqaijrestorearray_()
335 PETSC_EXTERN void matmpiaijgetseqaij_(Mat *mat, Mat *A, Mat *B, F90Array1d *ptr, int *ierr PETSC_F9… in matmpiaijgetseqaij_() argument
339 *ierr = MatMPIAIJGetSeqAIJ(*mat, A, B, &fa); in matmpiaijgetseqaij_()
345 PETSC_EXTERN void matmpiaijrestoreseqaij_(Mat *mat, Mat *A, Mat *B, F90Array1d *ptr, int *ierr PETS… in matmpiaijrestoreseqaij_() argument