1af0996ceSBarry Smith #include <petsc/private/fortranimpl.h> 255fcb7f5SSatish Balay 355fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 455fcb7f5SSatish Balay #define petscfprintf_ PETSCFPRINTF 555fcb7f5SSatish Balay #define petscprintf_ PETSCPRINTF 655fcb7f5SSatish Balay #define petscsynchronizedfprintf_ PETSCSYNCHRONIZEDFPRINTF 755fcb7f5SSatish Balay #define petscsynchronizedprintf_ PETSCSYNCHRONIZEDPRINTF 80ec8b6e3SBarry Smith #define petscsynchronizedflush_ PETSCSYNCHRONIZEDFLUSH 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 140ec8b6e3SBarry Smith #define petscsynchronizedflush_ petscsynchronizedflush 1555fcb7f5SSatish Balay #endif 1655fcb7f5SSatish Balay 170ec8b6e3SBarry Smith PETSC_EXTERN void PETSC_STDCALL petscsynchronizedflush_(MPI_Fint * comm, FILE **file,int *ierr) 180ec8b6e3SBarry Smith { 19*e50bf69fSBarry Smith FILE *f = *file; 20*e50bf69fSBarry Smith if (!f) f = PETSC_STDOUT; /* support for PETSC_STDOUT in Fortran */ 21*e50bf69fSBarry Smith *ierr = PetscSynchronizedFlush(MPI_Comm_f2c( *(comm) ),f); 220ec8b6e3SBarry Smith } 230ec8b6e3SBarry Smith 24e878f7f2SJed Brown #undef __FUNCT__ 25e878f7f2SJed Brown #define __FUNCT__ "PetscFixSlashN" 261850a936SBarry Smith static PetscErrorCode PetscFixSlashN(const char *in, char **out) 271850a936SBarry Smith { 281850a936SBarry Smith PetscErrorCode ierr; 291850a936SBarry Smith PetscInt i; 301850a936SBarry Smith size_t len; 311850a936SBarry Smith 321850a936SBarry Smith PetscFunctionBegin; 331850a936SBarry Smith ierr = PetscStrallocpy(in,out);CHKERRQ(ierr); 341850a936SBarry Smith ierr = PetscStrlen(*out,&len);CHKERRQ(ierr); 3551c0b0ecSMatthew Knepley for (i=0; i<(int)len-1; i++) { 361850a936SBarry Smith if ((*out)[i] == '\\' && (*out)[i+1] == 'n') {(*out)[i] = ' '; (*out)[i+1] = '\n';} 371850a936SBarry Smith } 381850a936SBarry Smith PetscFunctionReturn(0); 391850a936SBarry Smith } 401850a936SBarry Smith 418cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL petscfprintf_(MPI_Comm *comm,FILE **file,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 4255fcb7f5SSatish Balay { 431850a936SBarry Smith char *c1,*tmp; 4455fcb7f5SSatish Balay 4555fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 461850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 4755fcb7f5SSatish Balay FREECHAR(fname,c1); 488bceffaeSBarry Smith *ierr = PetscFPrintf(MPI_Comm_f2c(*(MPI_Fint*)&*comm),*file,tmp);if (*ierr) return; 498bceffaeSBarry Smith *ierr = PetscFree(tmp); 5055fcb7f5SSatish Balay } 5155fcb7f5SSatish Balay 528cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL petscprintf_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 5355fcb7f5SSatish Balay { 541850a936SBarry Smith char *c1,*tmp; 5555fcb7f5SSatish Balay 5655fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 571850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 5855fcb7f5SSatish Balay FREECHAR(fname,c1); 598bceffaeSBarry Smith *ierr = PetscPrintf(MPI_Comm_f2c(*(MPI_Fint*)&*comm),tmp);if (*ierr) return; 608bceffaeSBarry Smith *ierr = PetscFree(tmp); 6155fcb7f5SSatish Balay } 6255fcb7f5SSatish Balay 638cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL petscsynchronizedfprintf_(MPI_Comm *comm,FILE **file,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 6455fcb7f5SSatish Balay { 651850a936SBarry Smith char *c1,*tmp; 6655fcb7f5SSatish Balay 6755fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 681850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 6955fcb7f5SSatish Balay FREECHAR(fname,c1); 708bceffaeSBarry Smith *ierr = PetscSynchronizedFPrintf(MPI_Comm_f2c(*(MPI_Fint*)&*comm),*file,tmp);if (*ierr) return; 718bceffaeSBarry Smith *ierr = PetscFree(tmp); 7255fcb7f5SSatish Balay } 7355fcb7f5SSatish Balay 748cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL petscsynchronizedprintf_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),PetscErrorCode *ierr PETSC_END_LEN(len1)) 7555fcb7f5SSatish Balay { 761850a936SBarry Smith char *c1,*tmp; 7755fcb7f5SSatish Balay 7855fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 791850a936SBarry Smith *ierr = PetscFixSlashN(c1,&tmp);if (*ierr) return; 8055fcb7f5SSatish Balay FREECHAR(fname,c1); 818bceffaeSBarry Smith *ierr = PetscSynchronizedPrintf(MPI_Comm_f2c(*(MPI_Fint*)&*comm),tmp);if (*ierr) return; 828bceffaeSBarry Smith *ierr = PetscFree(tmp); 8355fcb7f5SSatish Balay } 8455fcb7f5SSatish Balay 85