Date: 2022-03-31T04:45:55+00:00

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