summaryrefslogtreecommitdiffstats
path: root/fortran/test/hdf5test.f90
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/test/hdf5test.f90')
-rw-r--r--fortran/test/hdf5test.f9016
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
-