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