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