From 973c015354c14aa6c7977a9906637f6570316530 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 27 Oct 2020 12:03:57 -0400 Subject: Fixed interface functions that return C arrays to return Fortran pointers to arrays --- src/clp_constants.F90 | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 src/clp_constants.F90 (limited to 'src/clp_constants.F90') 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 -- cgit v1.2.3