Psi4
blas_intfc_mangle.h
Go to the documentation of this file.
1 /*
2  * @BEGIN LICENSE
3  *
4  * Psi4: an open-source quantum chemistry software package
5  *
6  * Copyright (c) 2007-2017 The Psi4 Developers.
7  *
8  * The copyrights for code used from other parties are included in
9  * the corresponding files.
10  *
11  * This program is free software; you can redistribute it and/or modify
12  * it under the terms of the GNU General Public License as published by
13  * the Free Software Foundation; either version 2 of the License, or
14  * (at your option) any later version.
15  *
16  * This program is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19  * GNU General Public License for more details.
20  *
21  * You should have received a copy of the GNU General Public License along
22  * with this program; if not, write to the Free Software Foundation, Inc.,
23  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
24  *
25  * @END LICENSE
26  */
27 
28 #ifndef _psi_src_lib_libqt_blas_intfc_mangle_h_
29 #define _psi_src_lib_libqt_blas_intfc_mangle_h_
30 
42 #ifdef USE_FCMANGLE_H
43 #include "FCMangle.h"
44 #define F_DSWAP FC_GLOBAL(dswap, DSWAP)
45 #define F_DAXPY FC_GLOBAL(daxpy, DAXPY)
46 #define F_DCOPY FC_GLOBAL(dcopy, DCOPY)
47 #define F_DROT FC_GLOBAL(drot, DROT)
48 #define F_DSCAL FC_GLOBAL(dscal, DSCAL)
49 #define F_DDOT FC_GLOBAL(ddot, DDOT)
50 #define F_DASUM FC_GLOBAL(dasum, DASUM)
51 #define F_DNRM2 FC_GLOBAL(dnrm2, DNRM2)
52 #define F_IDAMAX FC_GLOBAL(idamax, IDAMAX)
53 #else // USE_FCMANGLE_H
54 #if FC_SYMBOL==2
55 #define F_DSWAP dswap_
56 #define F_DAXPY daxpy_
57 #define F_DCOPY dcopy_
58 #define F_DROT drot_
59 #define F_DSCAL dscal_
60 #define F_DDOT ddot_
61 #define F_DASUM dasum_
62 #define F_DNRM2 dnrm2_
63 #define F_IDAMAX idamax_
64 #elif FC_SYMBOL==1
65 #define F_DSWAP dswap
66 #define F_DAXPY daxpy
67 #define F_DCOPY dcopy
68 #define F_DROT drot
69 #define F_DSCAL dscal
70 #define F_DDOT ddot
71 #define F_DASUM dasum
72 #define F_DNRM2 dnrm2
73 #define F_IDAMAX idamax
74 #elif FC_SYMBOL==3
75 #define F_DSWAP DSWAP
76 #define F_DAXPY DAXPY
77 #define F_DCOPY DCOPY
78 #define F_DROT DROT
79 #define F_DSCAL DSCAL
80 #define F_DDOT DDOT
81 #define F_DASUM DASUM
82 #define F_DNRM2 DNRM2
83 #define F_IDAMAX IDAMAX
84 #elif FC_SYMBOL==4
85 #define F_DSWAP DSWAP_
86 #define F_DAXPY DAXPY_
87 #define F_DCOPY DCOPY_
88 #define F_DROT DROT_
89 #define F_DSCAL DSCAL_
90 #define F_DDOT DDOT_
91 #define F_DASUM DASUM_
92 #define F_DNRM2 DNRM2_
93 #define F_IDAMAX IDAMAX_
94 #endif
95 #endif
96 
97 #endif