blob: 978c832a814aa70394896d5dddeee286833066d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
!
!
! 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
|
