Actual source code: zplexfluent.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdmplex.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define dmplexcreatefluentfromfile_ DMPLEXCREATEFLUENTFROMFILE
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
7: #define dmplexcreatefluentfromfile_ dmplexcreatefluentfromfile
8: #endif
10: /* Definitions of Fortran Wrapper routines */
12: PETSC_EXTERN void dmplexcreatefluentfromfile_(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 = DMPlexCreateFluentFromFile(MPI_Comm_f2c(*(comm)), filename, *interpolate, dm);
18: if (*ierr) return;
19: FREECHAR(name, filename);
20: }