summaryrefslogtreecommitdiffstats
path: root/fortran/testpar/tcheck.f90
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