34   PetscInt nloc;  in pcasmgetlocalsubmatrices_()  local
39   *ierr = PCASMGetLocalSubmatrices(*pc, &nloc, &tmat);  in pcasmgetlocalsubmatrices_()
40   if (n) *n = nloc;  in pcasmgetlocalsubmatrices_()
41 …if (mat) *ierr = F90Array1dCreate(tmat, MPIU_FORTRANADDR, 1, nloc, mat PETSC_F90_2PTR_PARAM(ptrd));  in pcasmgetlocalsubmatrices_()
46   PetscInt nloc;  in pcasmgetlocalsubdomains_()  local
52   *ierr = PCASMGetLocalSubdomains(*pc, &nloc, &tis, &tis_local);  in pcasmgetlocalsubdomains_()
54   if (n) *n = nloc;  in pcasmgetlocalsubdomains_()
55   if (is) *ierr = F90Array1dCreate(tis, MPIU_FORTRANADDR, 1, nloc, is PETSC_F90_2PTR_PARAM(ptrd1));  in pcasmgetlocalsubdomains_()
57 …if (is_local) *ierr = F90Array1dCreate(tis_local, MPIU_FORTRANADDR, 1, nloc, is_local PETSC_F90_2P…  in pcasmgetlocalsubdomains_()
92   PetscInt nloc, flocal;  in pcasmgetsubksp_()  local
96   *ierr = PCASMGetSubKSP(*pc, &nloc, &flocal, &tksp);  in pcasmgetsubksp_()
97   if (n_local) *n_local = nloc;  in pcasmgetsubksp_()
99   *ierr = F90Array1dCreate(tksp, MPIU_FORTRANADDR, 1, nloc, ksp PETSC_F90_2PTR_PARAM(ptrd));  in pcasmgetsubksp_()