diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-10-27 14:42:15 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-10-27 14:42:15 -0400 |
| commit | a53e0ecf6d3e5d3bb3ca32fa800f9eb17ff8ba1e (patch) | |
| tree | 7dc71ec02e89dada9c8abc349fa15d50be759b59 /src/clp_constants.F90 | |
| parent | 480726c7a04db36096151d0cc529c446ef3df97f (diff) | |
| download | clp_fortran-a53e0ecf6d3e5d3bb3ca32fa800f9eb17ff8ba1e.tar.gz clp_fortran-a53e0ecf6d3e5d3bb3ca32fa800f9eb17ff8ba1e.zip | |
Implemented status enums. Implemented additional Fortran wrappers for getElements and any procedures returning int arrays.
Diffstat (limited to 'src/clp_constants.F90')
| -rw-r--r-- | src/clp_constants.F90 | 16 |
1 files changed, 16 insertions, 0 deletions
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 |