diff options
Diffstat (limited to 'fortran/test/hdf5test.f90')
-rw-r--r-- | fortran/test/hdf5test.f90 | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/fortran/test/hdf5test.f90 b/fortran/test/hdf5test.f90 deleted file mode 100644 index 978c832..0000000 --- a/fortran/test/hdf5test.f90 +++ /dev/null @@ -1,16 +0,0 @@ -! -! -! 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 - |