fixed error from last merge with master

This commit is contained in:
Bryan Herman 2012-01-25 10:28:43 -05:00
parent 123d2840dd
commit c886be7433

View file

@ -41,6 +41,7 @@ contains
subroutine hdf5_open_output()
character(9), parameter :: filename = "output.h5" ! File name
integer :: error ! Error flag
! Initialize FORTRAN interface.
call h5open_f(hdf5_err)