From 43ff5d2ca03fa859963b8aca17b1237ac8a6c062 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Fri, 29 Jun 2007 10:02:04 +0000 Subject: [PATCH] src/H5PartF90.inc - declarations for open in append mode functions added --- src/H5PartF90.inc | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/H5PartF90.inc b/src/H5PartF90.inc index 5484668..12f533d 100644 --- a/src/H5PartF90.inc +++ b/src/H5PartF90.inc @@ -10,8 +10,12 @@ CHARACTER(LEN=*), INTENT(IN) :: filename ! the filename to open for writing END FUNCTION + INTEGER*8 FUNCTION h5pt_opena ( filename ) + CHARACTER(LEN=*), INTENT(IN) :: filename ! the filename to open for appending + END FUNCTION + INTEGER*8 FUNCTION h5pt_openr_par ( filename, mpi_communicator ) - CHARACTER(LEN=*), INTENT(IN) :: filename ! the filename to open for writing + CHARACTER(LEN=*), INTENT(IN) :: filename ! the filename to open for reading INTEGER, INTENT(IN) :: mpi_communicator ! the MPI_Communicator used by the program END FUNCTION @@ -20,6 +24,12 @@ INTEGER, INTENT(IN) :: mpi_communicator ! the MPI_Communicator used by the program END FUNCTION + INTEGER*8 FUNCTION h5pt_opena_par ( filename, mpi_communicator ) + CHARACTER(LEN=*), INTENT(IN) :: filename ! the filename to open for appending + INTEGER, INTENT(IN) :: mpi_communicator ! the MPI_Communicator used by the program + END FUNCTION + + INTEGER*8 FUNCTION h5pt_close ( filehandle ) INTEGER*8, INTENT(IN) :: filehandle ! close this open filehandle END FUNCTION