From 9d3b4a270f6af3245704faf9f77c13886ad66c9f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 12 Jan 2024 07:30:37 +0100 Subject: [PATCH] reasonable order --- src/constants.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/constants.f90 b/src/constants.f90 index 6f3e21d0d..f212ffb7d 100644 --- a/src/constants.f90 +++ b/src/constants.f90 @@ -22,6 +22,7 @@ module constants enum, bind(c); enumerator :: & STATUS_OK, & + STATUS_ITERATING, & STATUS_FAILED_PHASE_STATE, & STATUS_FAILED_PHASE_DELTASTATE, & STATUS_FAILED_PHASE_STRESS, & @@ -30,8 +31,7 @@ module constants STATUS_FAILED_DAMAGE, & STATUS_FAILED_MECHANICAL, & STATUS_PHASE_THERMAL, & - STATUS_PHASE_THERMAL_DOTSTATE, & - STATUS_ITERATING + STATUS_PHASE_THERMAL_DOTSTATE end enum end module constants