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: }