37   Mat *lsmat;  in matcreatesubmatrices_()  local
40     *ierr = MatCreateSubMatrices(*mat, *n, isrow, iscol, *scall, &lsmat);  in matcreatesubmatrices_()
41     *ierr = F90Array1dCreate(lsmat, MPIU_FORTRANADDR, 1, *n + 1, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matcreatesubmatrices_()
43     *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd));  in matcreatesubmatrices_()
44     *ierr = MatCreateSubMatrices(*mat, *n, isrow, iscol, *scall, &lsmat);  in matcreatesubmatrices_()
50   Mat *lsmat;  in matcreatesubmatricesmpi_()  local
53     *ierr = MatCreateSubMatricesMPI(*mat, *n, isrow, iscol, *scall, &lsmat);  in matcreatesubmatricesmpi_()
55     *ierr = F90Array1dCreate(lsmat, MPIU_FORTRANADDR, 1, *n + 1, ptr PETSC_F90_2PTR_PARAM(ptrd));  in matcreatesubmatricesmpi_()
57     *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd));  in matcreatesubmatricesmpi_()
59     *ierr = MatCreateSubMatricesMPI(*mat, *n, isrow, iscol, *scall, &lsmat);  in matcreatesubmatricesmpi_()
66   Mat     *lsmat;  in matdestroymatrices_()  local
68   *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd));  in matdestroymatrices_()
71     PETSC_FORTRAN_OBJECT_F_DESTROYED_TO_C_NULL(&lsmat[i]);  in matdestroymatrices_()
72     *ierr = MatDestroy(&lsmat[i]);  in matdestroymatrices_()
77   *ierr = PetscFree(lsmat);  in matdestroymatrices_()
82   Mat *lsmat;  in matdestroysubmatrices_()  local
85   *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd));  in matdestroysubmatrices_()
87   *ierr = MatDestroySubMatrices(*n, &lsmat);  in matdestroysubmatrices_()
91   *ierr = PetscFree(lsmat);  in matdestroysubmatrices_()