Sierra Toolkit  Version of the Day
Fortran.hpp
1 #ifndef STK_UTIL_UTIL_Fortran_h
2 #define STK_UTIL_UTIL_Fortran_h
3 
4 #if ! defined(SIERRA_FORTRAN) && ! defined(SIERRAFORTRAN)
5 
6 #if defined(FORTRAN_NO_UNDERSCORE)
7 # define SIERRA_FORTRAN(subname) subname
8 # define SIERRAFORTRAN(subname) subname
9 # define SIERRA_FORTRAN_SUFFIX ""
10 #elif defined(FORTRAN_ONE_UNDERSCORE)
11 # define SIERRA_FORTRAN(subname) subname##_
12 # define SIERRAFORTRAN(subname) subname##_
13 # define SIERRA_FORTRAN_SUFFIX "_"
14 #elif defined(FORTRAN_TWO_UNDERSCORES)
15 # define SIERRA_FORTRAN(subname) subname##__
16 # define SIERRAFORTRAN(subname) subname##__
17 # define SIERRA_FORTRAN_SUFFIX "__"
18 #endif
19 
20 #endif // SIERRA_FORTRAN
21 
22 #endif // STK_UTIL_UTIL_Fortran_h