Nektar++
TransF77.hpp
Go to the documentation of this file.
1 ///////////////////////////////////////////////////////////////////////////////
2 //
3 // File TransF77.hpp
4 //
5 // For more information, please see: http://www.nektar.info
6 //
7 // The MIT License
8 //
9 // Copyright (c) 2006 Scientific Computing and Imaging Institute,
10 // University of Utah (USA) and Department of Aeronautics, Imperial
11 // College London (UK).
12 //
13 // License for the specific language governing rights and limitations under
14 // Permission is hereby granted, free of charge, to any person obtaining a
15 // copy of this software and associated documentation files (the "Software"),
16 // to deal in the Software without restriction, including without limitation
17 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
18 // and/or sell copies of the Software, and to permit persons to whom the
19 // Software is furnished to do so, subject to the following conditions:
20 //
21 // The above copyright notice and this permission notice shall be included
22 // in all copies or substantial portions of the Software.
23 //
24 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
25 // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
26 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
27 // THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
28 // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
29 // FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
30 // DEALINGS IN THE SOFTWARE.
31 //
32 // Description: Macro to redefine fortran routines dependent upon machine type
33 //
34 ///////////////////////////////////////////////////////////////////////////////
35 
36 #ifndef TRANSF77_HPP
37 #define TRANSF77_HPP
38 
39 #if defined (_AIX) || defined (__hpux) || defined (_CRAY)
40 
41 /// Fortran routines need no underscore
42 #define F77NAME(x) x
43 
44 #else
45 
46 /// Fortran routines need an underscore
47 #define F77NAME(x) x##_
48 
49 #endif
50 #endif //TRANSF77_HPP
51 
52 /***
53 $Log: TransF77.hpp,v $
54 Revision 1.3 2007/02/04 03:00:29 bnelson
55 *** empty log message ***
56 
57 Revision 1.2 2007/02/04 00:15:40 bnelson
58 *** empty log message ***
59 
60 Revision 1.1 2006/06/01 11:07:52 kirby
61 *** empty log message ***
62 
63 Revision 1.1 2006/05/04 18:57:44 kirby
64 *** empty log message ***
65 
66 Revision 1.3 2006/02/26 21:13:45 bnelson
67 Fixed a variety of compiler errors caused by updates to the coding standard.
68 
69 Revision 1.2 2006/02/12 21:51:42 sherwin
70 
71 Added licence
72 
73 Revision 1.1 2006/02/12 21:24:09 sherwin
74 
75 Changed filename to march coding standard
76 
77 **/