Actual source code: petscviewer.h90
petsc-3.9.4 2018-09-11
2: Interface PetscViewerBinaryWrite
3: Subroutine PetscViewerBinaryWriteInt(v,a,cnt,tmp,ierr)
4: use petscdef
5: PetscViewer v
6: PetscInt a(*)
7: PetscInt cnt
8: PetscBool tmp
9: PetscErrorCode ierr
10: End Subroutine
12: Subroutine PetscViewerBinaryWriteScalar(v,a,cnt,tmp,ierr)
13: use petscdef
14: PetscViewer v
15: PetscScalar a(*)
16: PetscInt cnt
17: PetscBool tmp
18: PetscErrorCode ierr
19: End Subroutine
21: #if defined(PETSC_USE_COMPLEX)
22: Subroutine PetscViewerBinaryWriteReal(v,a,cnt,tmp,ierr)
23: use petscdef
24: PetscViewer v
25: PetscReal a(*)
26: PetscInt cnt
27: PetscBool tmp
28: PetscErrorCode ierr
29: End Subroutine
30: #endif
32: Subroutine PetscViewerBinaryReadInt(v,a,cnt,ierr)
33: use petscdef
34: PetscViewer v
35: PetscInt a(*)
36: PetscInt cnt
37: PetscErrorCode ierr
38: End Subroutine
40: Subroutine PetscViewerBinaryReadScalar(v,a,cnt,ierr)
41: use petscdef
42: PetscViewer v
43: PetscScalar a(*)
44: PetscInt cnt
45: PetscErrorCode ierr
46: End Subroutine
48: #if defined(PETSC_USE_COMPLEX)
49: Subroutine PetscViewerBinaryReadReal(v,a,cnt,ierr)
50: use petscdef
51: PetscViewer v
52: PetscReal a(*)
53: PetscInt cnt
54: PetscErrorCode ierr
55: End Subroutine
56: #endif
58: End Interface