1*55fcb7f5SSatish Balay #include "zpetsc.h" 2*55fcb7f5SSatish Balay #include "petsc.h" 3*55fcb7f5SSatish Balay 4*55fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 5*55fcb7f5SSatish Balay #define petscfprintf_ PETSCFPRINTF 6*55fcb7f5SSatish Balay #define petscprintf_ PETSCPRINTF 7*55fcb7f5SSatish Balay #define petscsynchronizedfprintf_ PETSCSYNCHRONIZEDFPRINTF 8*55fcb7f5SSatish Balay #define petscsynchronizedprintf_ PETSCSYNCHRONIZEDPRINTF 9*55fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 10*55fcb7f5SSatish Balay #define petscfprintf_ petscfprintf 11*55fcb7f5SSatish Balay #define petscprintf_ petscprintf 12*55fcb7f5SSatish Balay #define petscsynchronizedfprintf_ petscsynchronizedfprintf 13*55fcb7f5SSatish Balay #define petscsynchronizedprintf_ petscsynchronizedprintf 14*55fcb7f5SSatish Balay #endif 15*55fcb7f5SSatish Balay 16*55fcb7f5SSatish Balay EXTERN_C_BEGIN 17*55fcb7f5SSatish Balay 18*55fcb7f5SSatish Balay void PETSC_STDCALL petscfprintf_(MPI_Comm *comm,FILE **file,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 19*55fcb7f5SSatish Balay { 20*55fcb7f5SSatish Balay char *c1; 21*55fcb7f5SSatish Balay 22*55fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 23*55fcb7f5SSatish Balay *ierr = PetscFPrintf((MPI_Comm)PetscToPointerComm(*comm),*file,c1); 24*55fcb7f5SSatish Balay FREECHAR(fname,c1); 25*55fcb7f5SSatish Balay } 26*55fcb7f5SSatish Balay 27*55fcb7f5SSatish Balay void PETSC_STDCALL petscprintf_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 28*55fcb7f5SSatish Balay { 29*55fcb7f5SSatish Balay char *c1; 30*55fcb7f5SSatish Balay 31*55fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 32*55fcb7f5SSatish Balay *ierr = PetscPrintf((MPI_Comm)PetscToPointerComm(*comm),c1); 33*55fcb7f5SSatish Balay FREECHAR(fname,c1); 34*55fcb7f5SSatish Balay } 35*55fcb7f5SSatish Balay 36*55fcb7f5SSatish Balay void PETSC_STDCALL petscsynchronizedfprintf_(MPI_Comm *comm,FILE **file,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 37*55fcb7f5SSatish Balay { 38*55fcb7f5SSatish Balay char *c1; 39*55fcb7f5SSatish Balay 40*55fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 41*55fcb7f5SSatish Balay *ierr = PetscSynchronizedFPrintf((MPI_Comm)PetscToPointerComm(*comm),*file,c1); 42*55fcb7f5SSatish Balay FREECHAR(fname,c1); 43*55fcb7f5SSatish Balay } 44*55fcb7f5SSatish Balay 45*55fcb7f5SSatish Balay void PETSC_STDCALL petscsynchronizedprintf_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 46*55fcb7f5SSatish Balay { 47*55fcb7f5SSatish Balay char *c1; 48*55fcb7f5SSatish Balay 49*55fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 50*55fcb7f5SSatish Balay *ierr = PetscSynchronizedPrintf((MPI_Comm)PetscToPointerComm(*comm),c1); 51*55fcb7f5SSatish Balay FREECHAR(fname,c1); 52*55fcb7f5SSatish Balay } 53*55fcb7f5SSatish Balay 54*55fcb7f5SSatish Balay EXTERN_C_END 55