1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 2665c2dedSJed Brown #include <petscviewer.h> 35c6c1daeSBarry Smith 45c6c1daeSBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 58a6b6cadSSatish Balay #define petsc_viewer_stdout_ PETSC_VIEWER_STDOUT 65c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 78a6b6cadSSatish Balay #define petsc_viewer_stdout_ petsc_viewer_stdout 85c6c1daeSBarry Smith #endif 95c6c1daeSBarry Smith 105c6c1daeSBarry Smith #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE) 118a6b6cadSSatish Balay #define petsc_viewer_stdout_ petsc_viewer_stdout__ 125c6c1daeSBarry Smith #endif 135c6c1daeSBarry Smith petsc_viewer_stdout_(MPI_Comm * comm)148a6b6cadSSatish BalayPETSC_EXTERN PetscViewer petsc_viewer_stdout_(MPI_Comm *comm) 155c6c1daeSBarry Smith { 165c6c1daeSBarry Smith return PETSC_VIEWER_STDOUT_(MPI_Comm_f2c(*(MPI_Fint *)&*comm)); 175c6c1daeSBarry Smith } 18