115   PetscScalar *fa;  in matdensegetarray2d_()  local
117   *ierr = MatDenseGetArray(*mat, &fa);  in matdensegetarray2d_()
129   *ierr = F90Array2dCreate(fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matdensegetarray2d_()
133   PetscScalar *fa;  in matdenserestorearray2d_()  local
134   *ierr = F90Array2dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));  in matdenserestorearray2d_()
138   *ierr = MatDenseRestoreArray(*mat, &fa);  in matdenserestorearray2d_()
142   const PetscScalar *fa;  in matdensegetarrayread2d_()  local
144   *ierr = MatDenseGetArrayRead(*mat, &fa);  in matdensegetarrayread2d_()
156   *ierr = F90Array2dCreate((void **)fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matdensegetarrayread2d_()
160   const PetscScalar *fa;  in matdenserestorearrayread2d_()  local
161   *ierr = F90Array2dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));  in matdenserestorearrayread2d_()
165   *ierr = MatDenseRestoreArrayRead(*mat, &fa);  in matdenserestorearrayread2d_()
169   PetscScalar *fa;  in matdensegetarraywrite2d_()  local
171   *ierr = MatDenseGetArrayWrite(*mat, &fa);  in matdensegetarraywrite2d_()
183   *ierr = F90Array2dCreate(fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matdensegetarraywrite2d_()
187   PetscScalar *fa;  in matdenserestorearraywrite2d_()  local
188   *ierr = F90Array2dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));  in matdenserestorearraywrite2d_()
192   *ierr = MatDenseRestoreArrayWrite(*mat, &fa);  in matdenserestorearraywrite2d_()
196   PetscScalar *fa;  in matdensegetarray1d_()  local
198   *ierr = MatDenseGetArray(*mat, &fa);  in matdensegetarray1d_()
210   *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matdensegetarray1d_()
214   PetscScalar *fa;  in matdenserestorearray1d_()  local
215   *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));  in matdenserestorearray1d_()
219   *ierr = MatDenseRestoreArray(*mat, &fa);  in matdenserestorearray1d_()
223   const PetscScalar *fa;  in matdensegetarrayread1d_()  local
225   *ierr = MatDenseGetArrayRead(*mat, &fa);  in matdensegetarrayread1d_()
237   *ierr = F90Array1dCreate((void **)fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matdensegetarrayread1d_()
241   const PetscScalar *fa;  in matdenserestorearrayread1d_()  local
242   *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));  in matdenserestorearrayread1d_()
246   *ierr = MatDenseRestoreArrayRead(*mat, &fa);  in matdenserestorearrayread1d_()
250   PetscScalar *fa;  in matdensegetarraywrite1d_()  local
252   *ierr = MatDenseGetArrayWrite(*mat, &fa);  in matdensegetarraywrite1d_()
264   *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matdensegetarraywrite1d_()
268   PetscScalar *fa;  in matdenserestorearraywrite1d_()  local
269   *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));  in matdenserestorearraywrite1d_()
273   *ierr = MatDenseRestoreArrayWrite(*mat, &fa);  in matdenserestorearraywrite1d_()
277   PetscScalar *fa;  in matdensegetcolumn_()  local
279   *ierr = MatDenseGetColumn(*mat, *col, &fa);  in matdensegetcolumn_()
283   *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matdensegetcolumn_()
287   PetscScalar *fa;  in matdenserestorecolumn_()  local
290   *ierr = MatDenseRestoreColumn(*mat, &fa);  in matdenserestorecolumn_()
296   PetscScalar *fa;  in matseqaijgetarray_()  local
300   *ierr = MatSeqAIJGetArray(*mat, &fa);  in matseqaijgetarray_()
302   *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, nz, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matseqaijgetarray_()
306   PetscScalar *fa;  in matseqaijrestorearray_()  local
307   *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));  in matseqaijrestorearray_()
311   *ierr = MatSeqAIJRestoreArray(*mat, &fa);  in matseqaijrestorearray_()
337   const PetscInt *fa;  in matmpiaijgetseqaij_()  local
339   *ierr = MatMPIAIJGetSeqAIJ(*mat, A, B, &fa);  in matmpiaijgetseqaij_()
343   *ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matmpiaijgetseqaij_()