module clp_constants use iso_c_binding implicit none ! The following definition is copied exactly from Coin_C_defines.h #if COIN_BIG_INDEX==0 integer, parameter :: CoinBigIndex_t = c_int #elif COIN_BIG_INDEX==1 integer, parameter :: CoinBigIndex_t = c_long #else 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