1interface 2 Subroutine PetscFortranPrintToFileUnit(unit,str,ierr) 3 import tPetscViewer 4 integer unit 5 character(len=*), intent(in) :: str 6 PetscErrorCode, intent(out):: ierr 7 End Subroutine 8 Subroutine PetscViewerASCIIOpenWithFileUnit(comm,unit,lab,ierr) 9 import tPetscViewer 10 MPI_Comm, intent(in) :: comm 11 integer, intent(in) :: unit 12 PetscViewer, intent(out) :: lab 13 PetscErrorCode, intent(out):: ierr 14 End Subroutine 15 Subroutine PetscViewerASCIISetFileUnit(lab,unit,ierr) 16 import tPetscViewer 17 PetscViewer, intent(in) :: lab 18 integer, intent(in) :: unit 19 PetscErrorCode, intent(out):: ierr 20 End Subroutine 21end interface 22 23Interface PetscViewerBinaryWrite 24 Subroutine PetscViewerBinaryWriteInt(v,a,cnt,tmp,ierr) 25 import tPetscViewer 26 PetscViewer v 27 PetscInt a(*) 28 PetscInt cnt 29 PetscBool tmp 30 PetscErrorCode, intent(out):: ierr 31 End Subroutine 32 33 Subroutine PetscViewerBinaryWriteScalar(v,a,cnt,tmp,ierr) 34 import tPetscViewer 35 PetscViewer v 36 PetscScalar a(*) 37 PetscInt cnt 38 PetscBool tmp 39 PetscErrorCode, intent(out):: ierr 40 End Subroutine 41 42#if defined(PETSC_USE_COMPLEX) 43 Subroutine PetscViewerBinaryWriteReal(v,a,cnt,tmp,ierr) 44 import tPetscViewer 45 PetscViewer v 46 PetscReal a(*) 47 PetscInt cnt 48 PetscBool tmp 49 PetscErrorCode, intent(out):: ierr 50 End Subroutine 51#endif 52 53 Subroutine PetscViewerBinaryReadInt(v,a,cnt,ierr) 54 import tPetscViewer 55 PetscViewer v 56 PetscInt a(*) 57 PetscInt cnt 58 PetscErrorCode, intent(out):: ierr 59 End Subroutine 60 61 Subroutine PetscViewerBinaryReadScalar(v,a,cnt,ierr) 62 import tPetscViewer 63 PetscViewer v 64 PetscScalar a(*) 65 PetscInt cnt 66 PetscErrorCode, intent(out):: ierr 67 End Subroutine 68 69#if defined(PETSC_USE_COMPLEX) 70 Subroutine PetscViewerBinaryReadReal(v,a,cnt,ierr) 71 import tPetscViewer 72 PetscViewer v 73 PetscReal a(*) 74 PetscInt cnt 75 PetscErrorCode, intent(out):: ierr 76 End Subroutine 77#endif 78 79End Interface 80