1: #include <petsc/private/fortranimpl.h>
2: #include <petscao.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define aocreatemapping_ AOCREATEMAPPING
6: #define aocreatemappingis_ AOCREATEMAPPINGIS
7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8: #define aocreatemapping_ aocreatemapping
9: #define aocreatemappingis_ aocreatemappingis
10: #endif
12: PETSC_EXTERN void aocreatemapping_(MPI_Comm *comm, PetscInt *napp, PetscInt *myapp, PetscInt *mypetsc, AO *aoout, PetscErrorCode *ierr)
13: {
14: if (*napp) {
15: CHKFORTRANNULLINTEGER(myapp);
16: CHKFORTRANNULLINTEGER(mypetsc);
17: }
18: *ierr = AOCreateMapping(MPI_Comm_f2c(*(MPI_Fint *)comm), *napp, myapp, mypetsc, aoout);
19: }