Actual source code: zplexgmsh.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdmplex.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define dmplexcreategmshfromfile_ DMPLEXCREATEGMSHFROMFILE
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
7: #define dmplexcreategmshfromfile_ dmplexcreategmshfromfile
8: #endif
10: /* Definitions of Fortran Wrapper routines */
12: PETSC_EXTERN void dmplexcreategmshfromfile_(MPI_Fint *comm, char *name, PetscBool *interpolate, DM *dm, int *ierr, PETSC_FORTRAN_CHARLEN_T lenN)
13: {
14: char *filename;
16: FIXCHAR(name, lenN, filename);
17: *ierr = DMPlexCreateGmshFromFile(MPI_Comm_f2c(*(comm)), filename, *interpolate, dm);
18: if (*ierr) return;
19: FREECHAR(name, filename);
20: }