1: #include <petsc/private/fortranimpl.h> 2: #include <petscviewer.h> 4: #if defined(PETSC_HAVE_FORTRAN_CAPS) 5: #define petscviewerandformatcreate_ PETSCVIEWERANDFORMATCREATE 6: #define petscviewerandformatdestroy_ PETSCVIEWERANDFORMATDESTROY 7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8: #define petscviewerandformatcreate_ petscviewerandformatcreate 9: #define petscviewerandformatdestroy_ petscviewerandformatdestroy 10: #endif 12: PETSC_EXTERN void petscviewerandformatcreate_(PetscViewer *vin, PetscViewerFormat *format, PetscViewerAndFormat **vf, PetscErrorCode *ierr) 13: { 14: PetscViewer v; 15: PetscPatchDefaultViewers_Fortran(vin, v); 16: *ierr = PetscViewerAndFormatCreate(v, *format, vf); 17: } 19: PETSC_EXTERN void petscviewerandformatdestroy_(PetscViewerAndFormat **vf, PetscErrorCode *ierr) 20: { 21: *ierr = PetscViewerAndFormatDestroy(vf); 22: }