Chombo + EB  3.0
FortranNameMacro.H
Go to the documentation of this file.
1 #ifdef CH_LANG_CC
2 /*
3  * _______ __
4  * / ___/ / ___ __ _ / / ___
5  * / /__/ _ \/ _ \/ V \/ _ \/ _ \
6  * \___/_//_/\___/_/_/_/_.__/\___/
7  * Please refer to Copyright.txt, in Chombo's root directory.
8  */
9 #endif
10 
11 #ifndef _FORTRANNAMEMACRO_H_
12 #define _FORTRANNAMEMACRO_H_
13 
14 #ifndef CH_MULTIDIM
15  #ifdef CH_FORT_UPPERCASE
16  #ifdef CH_FORT_UNDERSCORE
17  #define FORTRAN_NAME( NAME ,name ) NAME ## _
18  #else
19  #define FORTRAN_NAME( NAME ,name ) NAME
20  #endif
21  #else
22  #ifdef CH_FORT_UNDERSCORE
23  #define FORTRAN_NAME( NAME ,name ) name ## _
24  #else
25  #define FORTRAN_NAME( NAME ,name ) name
26  #endif
27  #endif
28 #else
29  #ifndef LAST_MULTIDIM_FortranNameMacro_SPACEDIM
30  #define LAST_MULTIDIM_FortranNameMacro_SPACEDIM 0
31  #endif
32  #if CH_SPACEDIM != LAST_MULTIDIM_FortranNameMacro_SPACEDIM
33  #undef LAST_MULTIDIM_FortranNameMacro_SPACEDIM
34  #ifdef FORTRAN_NAME
35  #undef FORTRAN_NAME
36  #endif
37  #if CH_SPACEDIM == 0
38  #elif CH_SPACEDIM == 1
39  #ifdef CH_FORT_UPPERCASE
40  #ifdef CH_FORT_UNDERSCORE
41  #define FORTRAN_NAME( NAME ,name ) NAME ## _ ## 1d_
42  #else
43  #define FORTRAN_NAME( NAME ,name ) NAME ## 1d
44  #endif
45  #else
46  #ifdef CH_FORT_UNDERSCORE
47  #define FORTRAN_NAME( NAME ,name ) name ## _ ## 1d_
48  #else
49  #define FORTRAN_NAME( NAME ,name ) name ## 1d
50  #endif
51  #endif
52  #define LAST_MULTIDIM_FortranNameMacro_SPACEDIM 1
53  #elif CH_SPACEDIM == 2
54  #ifdef CH_FORT_UPPERCASE
55  #ifdef CH_FORT_UNDERSCORE
56  #define FORTRAN_NAME( NAME ,name ) NAME ## _ ## 2d_
57  #else
58  #define FORTRAN_NAME( NAME ,name ) NAME ## 2d
59  #endif
60  #else
61  #ifdef CH_FORT_UNDERSCORE
62  #define FORTRAN_NAME( NAME ,name ) name ## _ ## 2d_
63  #else
64  #define FORTRAN_NAME( NAME ,name ) name ## 2d
65  #endif
66  #endif
67  #define LAST_MULTIDIM_FortranNameMacro_SPACEDIM 2
68  #elif CH_SPACEDIM == 3
69  #ifdef CH_FORT_UPPERCASE
70  #ifdef CH_FORT_UNDERSCORE
71  #define FORTRAN_NAME( NAME ,name ) NAME ## _ ## 3d_
72  #else
73  #define FORTRAN_NAME( NAME ,name ) NAME ## 3d
74  #endif
75  #else
76  #ifdef CH_FORT_UNDERSCORE
77  #define FORTRAN_NAME( NAME ,name ) name ## _ ## 3d_
78  #else
79  #define FORTRAN_NAME( NAME ,name ) name ## 3d
80  #endif
81  #endif
82  #define LAST_MULTIDIM_FortranNameMacro_SPACEDIM 3
83  #elif CH_SPACEDIM == 4
84  #ifdef CH_FORT_UPPERCASE
85  #ifdef CH_FORT_UNDERSCORE
86  #define FORTRAN_NAME( NAME ,name ) NAME ## _ ## 4d_
87  #else
88  #define FORTRAN_NAME( NAME ,name ) NAME ## 4d
89  #endif
90  #else
91  #ifdef CH_FORT_UNDERSCORE
92  #define FORTRAN_NAME( NAME ,name ) name ## _ ## 4d_
93  #else
94  #define FORTRAN_NAME( NAME ,name ) name ## 4d
95  #endif
96  #endif
97  #define LAST_MULTIDIM_FortranNameMacro_SPACEDIM 4
98  #elif CH_SPACEDIM == 5
99  #ifdef CH_FORT_UPPERCASE
100  #ifdef CH_FORT_UNDERSCORE
101  #define FORTRAN_NAME( NAME ,name ) NAME ## _ ## 5d_
102  #else
103  #define FORTRAN_NAME( NAME ,name ) NAME ## 5d
104  #endif
105  #else
106  #ifdef CH_FORT_UNDERSCORE
107  #define FORTRAN_NAME( NAME ,name ) name ## _ ## 5d_
108  #else
109  #define FORTRAN_NAME( NAME ,name ) name ## 5d
110  #endif
111  #endif
112  #define LAST_MULTIDIM_FortranNameMacro_SPACEDIM 5
113  #elif CH_SPACEDIM == 6
114  #ifdef CH_FORT_UPPERCASE
115  #ifdef CH_FORT_UNDERSCORE
116  #define FORTRAN_NAME( NAME ,name ) NAME ## _ ## 6d_
117  #else
118  #define FORTRAN_NAME( NAME ,name ) NAME ## 6d
119  #endif
120  #else
121  #ifdef CH_FORT_UNDERSCORE
122  #define FORTRAN_NAME( NAME ,name ) name ## _ ## 6d_
123  #else
124  #define FORTRAN_NAME( NAME ,name ) name ## 6d
125  #endif
126  #endif
127  #define LAST_MULTIDIM_FortranNameMacro_SPACEDIM 6
128  #else
129  Fail now: CH_SPACEDIM must be 1, 2, 3, 4, 5 or 6.
130  #endif
131  #endif
132 #endif
133 
134 #endif
CH_SPACEDIM
#define CH_SPACEDIM
Definition: SPACE.H:52
now
Fail now
Definition: BaseNamespaceFooter.H:15
Generated by   doxygen 1.8.13