1 files changed, 16 insertions, 0 deletions
diff --git a/fortran/testpar/tcheck.f90 b/fortran/testpar/tcheck.f90
new file mode 100644
index 0000000..978c832
--- /dev/null
+++ b/fortran/testpar/tcheck.f90
@@ -0,0 +1,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   
+