155fcb7f5SSatish Balay #include "zpetsc.h" 255fcb7f5SSatish Balay #include "petsc.h" 355fcb7f5SSatish Balay 455fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 555fcb7f5SSatish Balay #define petscfprintf_ PETSCFPRINTF 655fcb7f5SSatish Balay #define petscprintf_ PETSCPRINTF 755fcb7f5SSatish Balay #define petscsynchronizedfprintf_ PETSCSYNCHRONIZEDFPRINTF 855fcb7f5SSatish Balay #define petscsynchronizedprintf_ PETSCSYNCHRONIZEDPRINTF 955fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 1055fcb7f5SSatish Balay #define petscfprintf_ petscfprintf 1155fcb7f5SSatish Balay #define petscprintf_ petscprintf 1255fcb7f5SSatish Balay #define petscsynchronizedfprintf_ petscsynchronizedfprintf 1355fcb7f5SSatish Balay #define petscsynchronizedprintf_ petscsynchronizedprintf 1455fcb7f5SSatish Balay #endif 1555fcb7f5SSatish Balay 1655fcb7f5SSatish Balay EXTERN_C_BEGIN 1755fcb7f5SSatish Balay 18*1850a936SBarry Smith static PetscErrorCode PetscFixSlashN(const char *in, char **out) 19*1850a936SBarry Smith { 20*1850a936SBarry Smith PetscErrorCode ierr; 21*1850a936SBarry Smith PetscInt i; 22*1850a936SBarry Smith size_t len; 23*1850a936SBarry Smith 24*1850a936SBarry Smith PetscFunctionBegin; 25*1850a936SBarry Smith ierr = PetscStrallocpy(in,out);CHKERRQ(ierr); 26*1850a936SBarry Smith ierr = PetscStrlen(*out,&len);CHKERRQ(ierr); 27*1850a936SBarry Smith for (i=0; i<len-1; i++) { 28*1850a936SBarry Smith if ((*out)[i] == '\\' && (*out)[i+1] == 'n') {(*out)[i] = ' '; (*out)[i+1] = '\n';} 29*1850a936SBarry Smith } 30*1850a936SBarry Smith PetscFunctionReturn(0); 31*1850a936SBarry Smith } 32*1850a936SBarry Smith 3355fcb7f5SSatish Balay void PETSC_STDCALL petscfprintf_(MPI_Comm *comm,FILE **file,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 3455fcb7f5SSatish Balay { 35*1850a936SBarry Smith char *c1,*tmp; 3655fcb7f5SSatish Balay 3755fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 38*1850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 39*1850a936SBarry Smith *ierr = PetscFPrintf((MPI_Comm)PetscToPointerComm(*comm),*file,tmp);if (*ierr) return; 40*1850a936SBarry Smith *ierr = PetscStrfree(tmp);if (*ierr) return; 4155fcb7f5SSatish Balay FREECHAR(fname,c1); 4255fcb7f5SSatish Balay } 4355fcb7f5SSatish Balay 4455fcb7f5SSatish Balay void PETSC_STDCALL petscprintf_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 4555fcb7f5SSatish Balay { 46*1850a936SBarry Smith char *c1,*tmp; 4755fcb7f5SSatish Balay 4855fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 49*1850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 50*1850a936SBarry Smith *ierr = PetscPrintf((MPI_Comm)PetscToPointerComm(*comm),tmp);if (*ierr) return; 51*1850a936SBarry Smith *ierr = PetscStrfree(tmp);if (*ierr) return; 5255fcb7f5SSatish Balay FREECHAR(fname,c1); 5355fcb7f5SSatish Balay } 5455fcb7f5SSatish Balay 5555fcb7f5SSatish Balay void PETSC_STDCALL petscsynchronizedfprintf_(MPI_Comm *comm,FILE **file,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 5655fcb7f5SSatish Balay { 57*1850a936SBarry Smith char *c1,*tmp; 5855fcb7f5SSatish Balay 5955fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 60*1850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 61*1850a936SBarry Smith *ierr = PetscSynchronizedFPrintf((MPI_Comm)PetscToPointerComm(*comm),*file,tmp);if (*ierr) return; 62*1850a936SBarry Smith *ierr = PetscStrfree(tmp);if (*ierr) return; 6355fcb7f5SSatish Balay FREECHAR(fname,c1); 6455fcb7f5SSatish Balay } 6555fcb7f5SSatish Balay 6655fcb7f5SSatish Balay void PETSC_STDCALL petscsynchronizedprintf_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 6755fcb7f5SSatish Balay { 68*1850a936SBarry Smith char *c1,*tmp; 6955fcb7f5SSatish Balay 7055fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 71*1850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 72*1850a936SBarry Smith *ierr = PetscSynchronizedPrintf((MPI_Comm)PetscToPointerComm(*comm),tmp);if (*ierr) return; 73*1850a936SBarry Smith *ierr = PetscStrfree(tmp);if (*ierr) return; 7455fcb7f5SSatish Balay FREECHAR(fname,c1); 7555fcb7f5SSatish Balay } 7655fcb7f5SSatish Balay 7755fcb7f5SSatish Balay EXTERN_C_END 78