Sierra Toolkit
Version of the Day
Main Page
Related Pages
Modules
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
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 on Wed Sep 26 2018 14:44:34 for Sierra Toolkit by
1.8.6