Sierra Toolkit Version of the Day
Fortran.hpp
00001 #ifndef STK_UTIL_UTIL_Fortran_h
00002 #define STK_UTIL_UTIL_Fortran_h
00003 
00004 #if ! defined(SIERRA_FORTRAN) && ! defined(SIERRAFORTRAN)
00005 
00006 #if defined(FORTRAN_NO_UNDERSCORE)
00007 # define SIERRA_FORTRAN(subname) subname
00008 # define SIERRAFORTRAN(subname) subname
00009 # define SIERRA_FORTRAN_SUFFIX ""
00010 #elif defined(FORTRAN_ONE_UNDERSCORE)
00011 # define SIERRA_FORTRAN(subname) subname##_
00012 # define SIERRAFORTRAN(subname) subname##_
00013 # define SIERRA_FORTRAN_SUFFIX "_"
00014 #elif defined(FORTRAN_TWO_UNDERSCORES)
00015 # define SIERRA_FORTRAN(subname) subname##__
00016 # define SIERRAFORTRAN(subname) subname##__
00017 # define SIERRA_FORTRAN_SUFFIX "__"
00018 #endif
00019 
00020 #endif // SIERRA_FORTRAN
00021 
00022 #endif // STK_UTIL_UTIL_Fortran_h
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines