15c6c1daeSBarry Smith #include <petsc-private/fortranimpl.h> 2*665c2dedSJed Brown #include <petscviewer.h> 35c6c1daeSBarry Smith 45c6c1daeSBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 55c6c1daeSBarry Smith #define petscviewerstringopen_ PETSCVIEWERSTRINGOPEN 65c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 75c6c1daeSBarry Smith #define petscviewerstringopen_ petscviewerstringopen 85c6c1daeSBarry Smith #endif 95c6c1daeSBarry Smith 105c6c1daeSBarry Smith EXTERN_C_BEGIN 115c6c1daeSBarry Smith void PETSC_STDCALL petscviewerstringopen_(MPI_Comm *comm,CHAR name PETSC_MIXED_LEN(len1),PetscInt *len,PetscViewer *str, 125c6c1daeSBarry Smith PetscErrorCode *ierr PETSC_END_LEN(len1)) 135c6c1daeSBarry Smith { 145c6c1daeSBarry Smith *ierr = PetscViewerStringOpen(MPI_Comm_f2c(*(MPI_Fint*)&*comm),name,*len,str); 155c6c1daeSBarry Smith } 165c6c1daeSBarry Smith 175c6c1daeSBarry Smith EXTERN_C_END 18