Date: 2025-03-29T05:58:43+00:00

Actual source code: zvcreatef.c

      1: #include <petsc/private/ftnimpl.h>
      2: #include <petscviewer.h>

      4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
      5:   #define petsc_viewer_stdout_ PETSC_VIEWER_STDOUT
      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: }