int main(int argc,char **argv) { PetscErrorCode ierr; char filename[PETSC_MAX_PATH_LEN]; PetscBool flg; ierr = PetscInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr; ierr = PetscOptionsGetString(NULL,NULL,"-f",filename,sizeof(filename),&flg); if (flg) { ierr = PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,filename,PETSC_TRUE);CHKERRQ(ierr); } ierr = PetscOptionsView(NULL,PETSC_VIEWER_STDOUT_WORLD);CHKERRQ(ierr); ierr = PetscFinalize(); return ierr; }
/* This file contains Fortran stubs for Options routines. These are not generated automatically since they require passing strings between Fortran and C. */ #include <petsc-private/fortranimpl.h> #if defined(PETSC_HAVE_FORTRAN_CAPS) #define petscoptionsinsertfileyaml_ PETSCOPTIONSINSERTFILEYAML #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) #define petscoptionsinsertfileyaml_ petscoptionsinsertfileyaml #endif PETSC_EXTERN void PETSC_STDCALL petscoptionsinsertfileyaml_(MPI_Fint *comm,CHAR file PETSC_MIXED_LEN(len),PetscBool *require,PetscErrorCode *ierr PETSC_END_LEN(len)) { char *c1; FIXCHAR(file,len,c1); *ierr = PetscOptionsInsertFileYAML(MPI_Comm_f2c(*comm),c1,*require); FREECHAR(file,c1); }