test/H5BlockTestAttributesF.f90

	- added

.gitattributes

@@ -100,6 +100,7 @@ test/H5BlockDissolveGhosts.c -text
 test/H5BlockParTestScalarField.c -text
 test/H5BlockParTestScalarField.pbs -text
 test/H5BlockTestAttributes.c -text
+test/H5BlockTestAttributesF.f90 -text
 test/H5ParallelTest.cc -text
 test/H5PartAndreasTest.cc -text
 test/H5PartTest.cc -text

test/H5BlockTestAttributesF.f90

+PROGRAM H5BlockTestAttributesF
+   IMPLICIT   NONE
+
+   INCLUDE 'mpif.h'
+   INCLUDE 'H5PartF90.inc'
+
+   INTERFACE
+      INTEGER*8 FUNCTION write_file ( fname, myproc, comm, layout )
+        CHARACTER(LEN=*), INTENT(IN) :: fname
+        INTEGER, INTENT(IN) ::          myproc
+        INTEGER, INTENT(IN) ::          comm
+        INTEGER*8, INTENT(IN) ::        layout(6)
+      END FUNCTION
+
+      INTEGER*8 FUNCTION read_file ( fname, myproc, comm, layout )
+        CHARACTER(LEN=*), INTENT(IN) :: fname
+        INTEGER, INTENT(IN) ::          myproc
+        INTEGER, INTENT(IN) ::          comm
+        INTEGER*8, INTENT(IN) ::        layout(6)
+      END FUNCTION
+
+   END INTERFACE
+
+   INTEGER :: myproc
+   INTEGER :: nprocs
+   INTEGER :: mpi_err
+   INTEGER*8 :: h5pt_err
+   INTEGER :: comm
+   INTEGER :: i
+   CHARACTER(LEN=32) :: arg_str
+   LOGICAL :: opt_read
+   LOGICAL :: opt_write
+   INTEGER*8 :: layout(6) ! = ( 0, 64, 0, 64, 0, 512 )
+
+   CALL MPI_Init ( mpi_err)
+   comm = MPI_COMM_WORLD
+   CALL MPI_Comm_rank ( comm, myproc, mpi_err)
+   CALL MPI_Comm_size ( comm, nprocs, mpi_err)
+
+   DO i = 1, IARGC ()
+      CALL GETARG ( i, arg_str, 32)
+      IF ( arg_str == "-r" ) THEN
+         opt_read = .TRUE.
+      ELSE IF ( arg_str == "-w" ) THEN
+         opt_write = .TRUE.
+      ELSE
+         PRINT *, "Illegal option ", arg_str, "\n"
+         PRINT *, "Usage: H5BlockTestAttributesF -w | -r"
+      END IF
+
+   END DO
+
+   h5pt_err = h5pt_set_verbosity_level ( 4_8 )
+
+   IF ( opt_write ) THEN
+      h5pt_err = write_file ( "blockfile0.h5", myproc, comm, layout )
+   ELSE IF ( opt_read ) THEN
+      h5pt_err = read_file ( "blockfile0.h5", myproc, comm, layout )
+   ENDIF
+
+   CALL MPI_Finalize()
+END PROGRAM