diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2022-05-04 23:29:49 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-05-04 23:29:49 (GMT) |
commit | c4cd250408c7f973c909a56c3cae18ed6a0118f2 (patch) | |
tree | eb746898e73cda15941b80547ef6c75b5af7fcd9 /fortran/testpar/ptest.f90 | |
parent | 838d050a63d310a38f92a510dc94c0656a84bb51 (diff) | |
download | hdf5-c4cd250408c7f973c909a56c3cae18ed6a0118f2.zip hdf5-c4cd250408c7f973c909a56c3cae18ed6a0118f2.tar.gz hdf5-c4cd250408c7f973c909a56c3cae18ed6a0118f2.tar.bz2 |
changes parallel tests to .F90 ext. and fixes the CALL check strings (#1725)
Diffstat (limited to 'fortran/testpar/ptest.f90')
-rw-r--r-- | fortran/testpar/ptest.f90 | 103 |
1 files changed, 0 insertions, 103 deletions
diff --git a/fortran/testpar/ptest.f90 b/fortran/testpar/ptest.f90 deleted file mode 100644 index 30abb88..0000000 --- a/fortran/testpar/ptest.f90 +++ /dev/null @@ -1,103 +0,0 @@ -! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -! Copyright by The HDF Group. * -! Copyright by the Board of Trustees of the University of Illinois. * -! All rights reserved. * -! * -! This file is part of HDF5. The full HDF5 copyright notice, including * -! terms governing use, modification, and redistribution, is contained in * -! the COPYING file, which can be found at the root of the source code * -! distribution tree, or in https://www.hdfgroup.org/licenses. * -! If you do not have access to either file, you may request a copy from * -! help@hdfgroup.org. * -! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - -! -! main program for parallel HDF5 Fortran tests -! - -PROGRAM parallel_test - USE HDF5 - USE MPI - USE TH5_MISC - - IMPLICIT NONE - - INTEGER :: mpierror ! MPI hdferror flag - INTEGER :: hdferror ! HDF hdferror flag - INTEGER :: ret_total_error = 0 ! number of errors in subroutine - INTEGER :: total_error = 0 ! sum of the number of errors - INTEGER :: mpi_size ! number of processes in the group of communicator - INTEGER :: mpi_rank ! rank of the calling process in the communicator - INTEGER :: length = 12000 ! length of array - INTEGER :: i,j - ! use collective MPI I/O - LOGICAL, DIMENSION(1:2) :: do_collective = (/.FALSE.,.TRUE./) - CHARACTER(LEN=11), DIMENSION(1:2) :: chr_collective =(/"independent", "collective "/) - ! use chunking - LOGICAL, DIMENSION(1:2) :: do_chunk = (/.FALSE.,.TRUE./) - CHARACTER(LEN=10), DIMENSION(1:2) :: chr_chunk =(/"contiguous", "chunk "/) - - ! - ! initialize MPI - ! - CALL mpi_init(mpierror) - IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_INIT *FAILED*" - ENDIF - CALL mpi_comm_rank( MPI_COMM_WORLD, mpi_rank, mpierror ) - IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_COMM_RANK *FAILED* Process = ", mpi_rank - ENDIF - CALL mpi_comm_size( MPI_COMM_WORLD, mpi_size, mpierror ) - IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_COMM_SIZE *FAILED* Process = ", mpi_rank - ENDIF - ! - ! initialize the HDF5 fortran interface - ! - CALL h5open_f(hdferror) - ! - ! test write/read dataset by hyperslabs (contiguous/chunk) with independent/collective MPI I/O - ! - DO i = 1, 2 - DO j = 1, 2 - ret_total_error = 0 - CALL hyper(length, do_collective(j), do_chunk(i), mpi_size, mpi_rank, ret_total_error) - IF(mpi_rank==0) CALL write_test_status(ret_total_error, & - "Writing/reading dataset by hyperslabs ("//TRIM(chr_chunk(i))//" layout, "//TRIM(chr_collective(j))//" MPI I/O)", & - total_error) - ENDDO - ENDDO - - ! - ! test write/read several datasets (independent MPI I/O) - ! - ret_total_error = 0 - CALL multiple_dset_write(length, do_collective(1), do_chunk(1), mpi_size, mpi_rank, ret_total_error) - IF(mpi_rank==0) CALL write_test_status(ret_total_error, & - 'Writing/reading several datasets (contiguous layout, independent MPI I/O)', total_error) - - ! - ! close HDF5 interface - ! - CALL h5close_f(hdferror) - - ! - ! close MPI - ! - IF (total_error == 0) THEN - CALL mpi_finalize(mpierror) - IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_FINALIZE *FAILED* Process = ", mpi_rank - ENDIF - ELSE - WRITE(*,*) 'Errors detected in process ', mpi_rank - CALL mpi_abort(MPI_COMM_WORLD, 1, mpierror) - IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_ABORT *FAILED* Process = ", mpi_rank - ENDIF - ENDIF - ! - ! end main program - ! -END PROGRAM parallel_test |