From a53e0ecf6d3e5d3bb3ca32fa800f9eb17ff8ba1e Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 27 Oct 2020 14:42:15 -0400 Subject: Implemented status enums. Implemented additional Fortran wrappers for getElements and any procedures returning int arrays. --- src/clp_constants.F90 | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'src/clp_constants.F90') diff --git a/src/clp_constants.F90 b/src/clp_constants.F90 index bf7b285..5a44089 100644 --- a/src/clp_constants.F90 +++ b/src/clp_constants.F90 @@ -11,4 +11,20 @@ module clp_constants integer, parameter :: CoinBigIndex_t = c_long_long #endif + enum, bind(c) + enumerator :: Status_isFree = 0 + enumerator :: Status_basic + enumerator :: Status_atUpperBound + enumerator :: Status_atLowerBound + enumerator :: Status_superBasic + enumerator :: Status_isFixed + end enum + + enum, bind(c) + enumerator :: FakeBound_noFake = 0 + enumerator :: FakeBound_lowerFake + enumerator :: FakeBound_upperFake + enumerator :: FakeBound_bothFake + end enum + end module clp_constants -- cgit v1.2.3