diff --git a/src/quit.f90 b/src/quit.f90 index fbe207f64..3373d87d4 100644 --- a/src/quit.f90 +++ b/src/quit.f90 @@ -37,8 +37,8 @@ subroutine quit(stop_id) dateAndTime(6),':',& dateAndTime(7) - if (stop_id == 0_pInt .and. (ierr /= 0_pInt .and. error /= 0_pInt)) stop 0 ! normal termination - if (stop_id == 2_pInt .and. (ierr /= 0_pInt .and. error /= 0_pInt)) stop 2 ! not all incs converged + if (stop_id == 0_pInt .and. ierr == 0_pInt .and. error == 0_pInt) stop 0 ! normal termination + if (stop_id == 2_pInt .and. ierr == 0_pInt .and. error == 0_pInt) stop 2 ! not all incs converged stop 1 ! error (message from IO_error) end subroutine quit