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