1: #include <petsc/private/ftnimpl.h>
2: #include <petscmat.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define matmpibaijgetseqbaij_ MATMPIBAIJGETSEQBAIJ
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define matmpibaijgetseqbaij_ matmpibaijgetseqbaij
8: #endif
10: PETSC_EXTERN void matmpibaijgetseqbaij_(Mat *A, Mat *Ad, Mat *Ao, PetscInt *ic, size_t *iic, PetscErrorCode *ierr)
11: {
12: const PetscInt *i;
13: *ierr = MatMPIBAIJGetSeqBAIJ(*A, Ad, Ao, &i);
14: if (*ierr) return;
15: *iic = PetscIntAddressToFortran(ic, (PetscInt *)i);
16: }