1: #include <petsc/private/fortranimpl.h>
2: #include <petscviewer.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petsc_viewer_stdout__ PETSC_VIEWER_STDOUT_BROKEN
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define petsc_viewer_stdout__ petsc_viewer_stdout_
8: #endif
10: #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE)
11: #define petsc_viewer_stdout__ petsc_viewer_stdout___
12: #endif
14: PETSC_EXTERN PetscViewer petsc_viewer_stdout__(MPI_Comm *comm)
15: {
16: return PETSC_VIEWER_STDOUT_(MPI_Comm_f2c(*(MPI_Fint *)&*comm));
17: }