From d32d088ed7aa903ae862f97c282d591d2a9a3540 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 18 Apr 2023 12:01:03 +0200 Subject: [PATCH] positive values are ok from the description: Returns a non-negative value if successful; otherwise returns a negative value. --- src/quit.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)