SUBROUTINE h5open_f(hdferr) 
            IMPLICIT NONE
            INTEGER, INTENT(OUT) :: hdferr      ! Error code
          END SUBROUTINE h5open_f
          SUBROUTINE h5close_f(hdferr) 
            IMPLICIT NONE
            INTEGER, INTENT(OUT) :: hdferr      ! Error code
          END SUBROUTINE h5close_f