mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-21 01:04:10 +08:00
76807a6985
Purpose:
Adding F90 || tests.
Description:
I created testpar directory with the following files
ptesthdf5_fortran.f90 - F90 test driver program
tcheck.f90 thdf5.f90 - handy subroutines to use with the tests
thyperslab_wr.f90 - F90 test:
collectively writes and reads hyperslabs to/from the dataset
Solution:
Platforms tested:
Partially tested on modi4 (O2K)
17 lines
429 B
Fortran
17 lines
429 B
Fortran
!
|
|
!
|
|
! This module contains check subroutine which is used in
|
|
! all the fortran h5 test files
|
|
!
|
|
|
|
SUBROUTINE check(string,error,total_error)
|
|
CHARACTER(LEN=*) :: string
|
|
INTEGER :: error, total_error
|
|
if (error .lt. 0) then
|
|
total_error=total_error+1
|
|
write(*,*) string, " failed"
|
|
endif
|
|
RETURN
|
|
END SUBROUTINE check
|
|
|