blob: 5451bbaf97b1849fa3c56f42153a16e3b96eb459 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
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
! Default message string length
integer, parameter::clp_default_message_len = 128
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
|
