Actual source code: petscviewer.h90

  1: interface
  2:   Subroutine PetscViewerDestroy(v,ierr)
  3:     PetscViewer v
  4:     PetscErrorCode, intent(out):: ierr
  5:   End Subroutine
  6:   Subroutine PetscViewerBinaryOpen(c,n,t,v,ierr)
  7:     MPI_Comm :: c
  8:     character(len=*), intent(in) :: n
  9:     PetscFileMode, intent(in) :: t
 10:     PetscViewer, intent(out) :: v
 11:     PetscErrorCode, intent(out):: ierr
 12:   End Subroutine
 13:   Subroutine PetscViewerGetSubViewer(v,c,vn,ierr)
 14:     PetscViewer, intent(in) :: v
 15:     MPI_Comm :: c
 16:     PetscFileMode, intent(out) :: vn
 17:     PetscErrorCode, intent(out):: ierr
 18:   End Subroutine
 19: end interface

 21: Interface PetscViewerBinaryWrite
 22:   Subroutine PetscViewerBinaryWriteInt(v,a,cnt,tmp,ierr)
 23:     PetscViewer v
 24:     PetscInt a(*)
 25:     PetscInt cnt
 26:     PetscBool  tmp
 27:     PetscErrorCode, intent(out):: ierr
 28:   End Subroutine

 30:   Subroutine PetscViewerBinaryWriteScalar(v,a,cnt,tmp,ierr)
 31:     PetscViewer v
 32:     PetscScalar a(*)
 33:     PetscInt cnt
 34:     PetscBool  tmp
 35:     PetscErrorCode, intent(out):: ierr
 36:   End Subroutine

 38: #if defined(PETSC_USE_COMPLEX)
 39:   Subroutine PetscViewerBinaryWriteReal(v,a,cnt,tmp,ierr)
 40:     PetscViewer v
 41:     PetscReal a(*)
 42:     PetscInt cnt
 43:     PetscBool  tmp
 44:     PetscErrorCode, intent(out):: ierr
 45:   End Subroutine
 46: #endif

 48:   Subroutine PetscViewerBinaryReadInt(v,a,cnt,ierr)
 49:     PetscViewer v
 50:     PetscInt a(*)
 51:     PetscInt cnt
 52:     PetscErrorCode, intent(out):: ierr
 53:   End Subroutine

 55:   Subroutine PetscViewerBinaryReadScalar(v,a,cnt,ierr)
 56:     PetscViewer v
 57:     PetscScalar a(*)
 58:     PetscInt cnt
 59:     PetscErrorCode, intent(out):: ierr
 60:   End Subroutine

 62: #if defined(PETSC_USE_COMPLEX)
 63:   Subroutine PetscViewerBinaryReadReal(v,a,cnt,ierr)
 64:     PetscViewer v
 65:     PetscReal a(*)
 66:     PetscInt cnt
 67:     PetscErrorCode, intent(out):: ierr
 68:   End Subroutine
 69: #endif

 71: End Interface