diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-10-27 12:03:57 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-10-27 12:03:57 -0400 |
| commit | 973c015354c14aa6c7977a9906637f6570316530 (patch) | |
| tree | 67fd190dc6ed8c60a2ec662001718df945c229c7 /src/clp_constants.F90 | |
| parent | b1be8b0f5ff9d32756c98a7f7fa6d9023d124527 (diff) | |
| download | clp_fortran-973c015354c14aa6c7977a9906637f6570316530.tar.gz clp_fortran-973c015354c14aa6c7977a9906637f6570316530.zip | |
Fixed interface functions that return C arrays to return Fortran pointers to arrays
Diffstat (limited to 'src/clp_constants.F90')
| -rw-r--r-- | src/clp_constants.F90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/clp_constants.F90 b/src/clp_constants.F90 new file mode 100644 index 0000000..bf7b285 --- /dev/null +++ b/src/clp_constants.F90 @@ -0,0 +1,14 @@ +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 + +end module clp_constants |