reasonable order

This commit is contained in:
Martin Diehl 2024-01-12 07:30:37 +01:00
parent 7ca02b3f3d
commit 9d3b4a270f
No known key found for this signature in database
GPG Key ID: 1FD50837275A0A9B
1 changed files with 2 additions and 2 deletions

View File

@ -22,6 +22,7 @@ module constants
enum, bind(c); enumerator :: & enum, bind(c); enumerator :: &
STATUS_OK, & STATUS_OK, &
STATUS_ITERATING, &
STATUS_FAILED_PHASE_STATE, & STATUS_FAILED_PHASE_STATE, &
STATUS_FAILED_PHASE_DELTASTATE, & STATUS_FAILED_PHASE_DELTASTATE, &
STATUS_FAILED_PHASE_STRESS, & STATUS_FAILED_PHASE_STRESS, &
@ -30,8 +31,7 @@ module constants
STATUS_FAILED_DAMAGE, & STATUS_FAILED_DAMAGE, &
STATUS_FAILED_MECHANICAL, & STATUS_FAILED_MECHANICAL, &
STATUS_PHASE_THERMAL, & STATUS_PHASE_THERMAL, &
STATUS_PHASE_THERMAL_DOTSTATE, & STATUS_PHASE_THERMAL_DOTSTATE
STATUS_ITERATING
end enum end enum
end module constants end module constants