1 #include <petsc-private/fortranimpl.h> 2 3 #if defined(PETSC_HAVE_FORTRAN_CAPS) 4 #define petsc_viewer_stdout__ PETSC_VIEWER_STDOUT_BROKEN 5 #define petscviewerasciiopen_ PETSCVIEWERASCIIOPEN 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define petscviewerasciiopen_ petscviewerasciiopen 8 #define petsc_viewer_stdout__ petsc_viewer_stdout_ 9 #endif 10 11 #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE) 12 #define petsc_viewer_stdout__ petsc_viewer_stdout___ 13 #endif 14 15 EXTERN_C_BEGIN 16 void PETSC_STDCALL petscviewerasciiopen_(MPI_Comm *comm,CHAR name PETSC_MIXED_LEN(len),PetscViewer *lab, 17 PetscErrorCode *ierr PETSC_END_LEN(len)) 18 { 19 char *c1; 20 FIXCHAR(name,len,c1); 21 *ierr = PetscViewerASCIIOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm),c1,lab); 22 FREECHAR(name,c1); 23 } 24 25 PetscViewer PETSC_STDCALL petsc_viewer_stdout__(MPI_Comm *comm) 26 { 27 return PETSC_VIEWER_STDOUT_(MPI_Comm_f2c(*(MPI_Fint *)&*comm)); 28 } 29 30 EXTERN_C_END 31 32