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
stk_util
stk_util
util
Fortran.hpp
Generated by
1.8.14