Actual source code: zoptionsyamlf.c
1: /*
2: This file contains Fortran stubs for Options routines.
3: These are not generated automatically since they require passing strings
4: between Fortran and C.
5: */
7: #include <petsc/private/fortranimpl.h>
9: #if defined(PETSC_HAVE_FORTRAN_CAPS)
10: #define petscoptionsinsertfileyaml_ PETSCOPTIONSINSERTFILEYAML
11: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
12: #define petscoptionsinsertfileyaml_ petscoptionsinsertfileyaml
13: #endif
15: PETSC_EXTERN void petscoptionsinsertfileyaml_(MPI_Fint *comm, PetscOptions *options, char *file, PetscBool *require, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
16: {
17: char *c1;
19: FIXCHAR(file, len, c1);
20: *ierr = PetscOptionsInsertFileYAML(MPI_Comm_f2c(*comm), *options, c1, *require);
21: if (*ierr) return;
22: FREECHAR(file, c1);
23: }