diff --git a/src/quit.f90 b/src/quit.f90 index 1583a20ff..4395aa24d 100644 --- a/src/quit.f90 +++ b/src/quit.f90 @@ -28,9 +28,9 @@ subroutine quit(stop_id) call h5open_f(err_HDF5) ! prevents error if not opened yet - if (err_HDF5 /= 0) write(ERROR_UNIT,'(a,i5)') ' Error in h5open_f ',err_HDF5 + if (err_HDF5 < 0) write(ERROR_UNIT,'(a,i5)') ' Error in h5open_f ',err_HDF5 call h5close_f(err_HDF5) - if (err_HDF5 /= 0) write(ERROR_UNIT,'(a,i5)') ' Error in h5close_f ',err_HDF5 + if (err_HDF5 < 0) write(ERROR_UNIT,'(a,i5)') ' Error in h5close_f ',err_HDF5 call PetscFinalize(err_PETSc)