1*6dd63270SBarry Smithinterface 2*6dd63270SBarry Smith Subroutine PetscFortranPrintToFileUnit(unit,str,ierr) 3*6dd63270SBarry Smith import tPetscViewer 4*6dd63270SBarry Smith integer unit 5*6dd63270SBarry Smith character(len=*), intent(in) :: str 6*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 7*6dd63270SBarry Smith End Subroutine 8*6dd63270SBarry Smith Subroutine PetscViewerASCIIOpenWithFileUnit(comm,unit,lab,ierr) 9*6dd63270SBarry Smith import tPetscViewer 10*6dd63270SBarry Smith MPI_Comm, intent(in) :: comm 11*6dd63270SBarry Smith integer, intent(in) :: unit 12*6dd63270SBarry Smith PetscViewer, intent(out) :: lab 13*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 14*6dd63270SBarry Smith End Subroutine 15*6dd63270SBarry Smith Subroutine PetscViewerASCIISetFileUnit(lab,unit,ierr) 16*6dd63270SBarry Smith import tPetscViewer 17*6dd63270SBarry Smith PetscViewer, intent(in) :: lab 18*6dd63270SBarry Smith integer, intent(in) :: unit 19*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 20*6dd63270SBarry Smith End Subroutine 21*6dd63270SBarry Smithend interface 22*6dd63270SBarry Smith 23*6dd63270SBarry SmithInterface PetscViewerBinaryWrite 24*6dd63270SBarry Smith Subroutine PetscViewerBinaryWriteInt(v,a,cnt,tmp,ierr) 25*6dd63270SBarry Smith import tPetscViewer 26*6dd63270SBarry Smith PetscViewer v 27*6dd63270SBarry Smith PetscInt a(*) 28*6dd63270SBarry Smith PetscInt cnt 29*6dd63270SBarry Smith PetscBool tmp 30*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 31*6dd63270SBarry Smith End Subroutine 32*6dd63270SBarry Smith 33*6dd63270SBarry Smith Subroutine PetscViewerBinaryWriteScalar(v,a,cnt,tmp,ierr) 34*6dd63270SBarry Smith import tPetscViewer 35*6dd63270SBarry Smith PetscViewer v 36*6dd63270SBarry Smith PetscScalar a(*) 37*6dd63270SBarry Smith PetscInt cnt 38*6dd63270SBarry Smith PetscBool tmp 39*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 40*6dd63270SBarry Smith End Subroutine 41*6dd63270SBarry Smith 42*6dd63270SBarry Smith#if defined(PETSC_USE_COMPLEX) 43*6dd63270SBarry Smith Subroutine PetscViewerBinaryWriteReal(v,a,cnt,tmp,ierr) 44*6dd63270SBarry Smith import tPetscViewer 45*6dd63270SBarry Smith PetscViewer v 46*6dd63270SBarry Smith PetscReal a(*) 47*6dd63270SBarry Smith PetscInt cnt 48*6dd63270SBarry Smith PetscBool tmp 49*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 50*6dd63270SBarry Smith End Subroutine 51*6dd63270SBarry Smith#endif 52*6dd63270SBarry Smith 53*6dd63270SBarry Smith Subroutine PetscViewerBinaryReadInt(v,a,cnt,ierr) 54*6dd63270SBarry Smith import tPetscViewer 55*6dd63270SBarry Smith PetscViewer v 56*6dd63270SBarry Smith PetscInt a(*) 57*6dd63270SBarry Smith PetscInt cnt 58*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 59*6dd63270SBarry Smith End Subroutine 60*6dd63270SBarry Smith 61*6dd63270SBarry Smith Subroutine PetscViewerBinaryReadScalar(v,a,cnt,ierr) 62*6dd63270SBarry Smith import tPetscViewer 63*6dd63270SBarry Smith PetscViewer v 64*6dd63270SBarry Smith PetscScalar a(*) 65*6dd63270SBarry Smith PetscInt cnt 66*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 67*6dd63270SBarry Smith End Subroutine 68*6dd63270SBarry Smith 69*6dd63270SBarry Smith#if defined(PETSC_USE_COMPLEX) 70*6dd63270SBarry Smith Subroutine PetscViewerBinaryReadReal(v,a,cnt,ierr) 71*6dd63270SBarry Smith import tPetscViewer 72*6dd63270SBarry Smith PetscViewer v 73*6dd63270SBarry Smith PetscReal a(*) 74*6dd63270SBarry Smith PetscInt cnt 75*6dd63270SBarry Smith PetscErrorCode, intent(out):: ierr 76*6dd63270SBarry Smith End Subroutine 77*6dd63270SBarry Smith#endif 78*6dd63270SBarry Smith 79*6dd63270SBarry SmithEnd Interface 80