string/ftn-custom/zstringvf.c

*af0996ceSBarry Smith#include <petsc/private/fortranimpl.h>
665c2dedSJed Brown#include <petscviewer.h>
5c6c1daeSBarry Smith
5c6c1daeSBarry Smith#if defined(PETSC_HAVE_FORTRAN_CAPS)
5c6c1daeSBarry Smith#define petscviewerstringopen_     PETSCVIEWERSTRINGOPEN
5c6c1daeSBarry Smith#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
5c6c1daeSBarry Smith#define petscviewerstringopen_     petscviewerstringopen
5c6c1daeSBarry Smith#endif
5c6c1daeSBarry Smith
8cc058d9SJed BrownPETSC_EXTERN void PETSC_STDCALL petscviewerstringopen_(MPI_Comm *comm,CHAR name PETSC_MIXED_LEN(len1),PetscInt *len,PetscViewer *str,
5c6c1daeSBarry Smith                                     PetscErrorCode *ierr PETSC_END_LEN(len1))
5c6c1daeSBarry Smith{
5c6c1daeSBarry Smith  *ierr = PetscViewerStringOpen(MPI_Comm_f2c(*(MPI_Fint*)&*comm),name,*len,str);
5c6c1daeSBarry Smith}