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