Date: 2025-03-28T21:11:10+00:00

Actual source code: zvcreatef.c

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