mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-09 07:32:32 +08:00
8055378bce
Adding the Fortran interface to the HDF5 library Description: Fortran is now a subdirectory of the HDF5 library tree. Platforms tested: Solaris and IRIX (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
|
|
|