1 #include <petsc-private/fortranimpl.h> 2 3 #if defined(PETSC_HAVE_FORTRAN_CAPS) 4 #define petscviewerstringopen_ PETSCVIEWERSTRINGOPEN 5 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6 #define petscviewerstringopen_ petscviewerstringopen 7 #endif 8 9 EXTERN_C_BEGIN 10 void PETSC_STDCALL petscviewerstringopen_(MPI_Comm *comm,CHAR name PETSC_MIXED_LEN(len1),PetscInt *len,PetscViewer *str, 11 PetscErrorCode *ierr PETSC_END_LEN(len1)) 12 { 13 *ierr = PetscViewerStringOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm),name,*len,str); 14 } 15 16 EXTERN_C_END 17