Actual source code: zaomappingf.c

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