OpenRDM
An open-source library for reduced-density matrix-based analysis and computation
blas_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-2016 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 BLAS_MANGLE_H
29 #define BLAS_MANGLE_H
30 
35 #ifndef FC_SYMBOL
36 #define FC_SYMBOL 2
37 #endif
38 
39 #ifdef USE_FCMANGLE_H
40 #include "FCMangle.h"
41 #define dgemv FC_GLOBAL(dgemv , DGEMV)
42 #define dgemm FC_GLOBAL(dgemm , DGEMM)
43 #define dcopy FC_GLOBAL(dcopy , DCOPY)
44 #define daxpy FC_GLOBAL(daxpy , DAXPY)
45 #define dnrm2 FC_GLOBAL(drnm2 , DRNM2)
46 #define dgesv FC_GLOBAL(dgesv , DGESV)
47 #define ddot FC_GLOBAL(ddot , DDOT)
48 #define dsyev FC_GLOBAL(dsyev , DSYEV)
49 #define dspev FC_GLOBAL(dspev , DSPEV)
50 #define dgesvd FC_GLOBAL(dgesvd, DGESVD)
51 #else // USE_FCMANGLE_H
52 #if FC_SYMBOL==2
53 #define dgemv dgemv_
54 #define dgemm dgemm_
55 #define dcopy dcopy_
56 #define daxpy daxpy_
57 #define dnrm2 drnm2_
58 #define dgesv dgesv_
59 #define ddot ddot_
60 #define dsyev dsyev_
61 #define dspev dspev_
62 #define dgesvd dgesvd_
63 #elif FC_SYMBOL==1
64 #define dgemv dgemv
65 #define dgemm dgemm
66 #define dcopy dcopy
67 #define daxpy daxpy
68 #define dnrm2 drnm2
69 #define dgesv dgesv
70 #define ddot ddot
71 #define dsyev dsyev
72 #define dspev dspev
73 #define dgesvd dgesvd
74 #elif FC_SYMBOL==3
75 #define dgemv DGEMV
76 #define dgemm DGEMM
77 #define dcopy DCOPY
78 #define daxpy DAXPY
79 #define dnrm2 DRNM2
80 #define dgesv DGESV
81 #define ddot DDOT
82 #define dsyev DSYEV
83 #define dspev DSPEV
84 #define dgesvd DGESVD
85 #elif FC_SYMBOL==4
86 #define dgemv DGEMV_
87 #define dgemm DGEMM_
88 #define dcopy DCOPY_
89 #define daxpy DAXPY_
90 #define dnrm2 DRNM2_
91 #define dgesv DGESV_
92 #define ddot DDOT_
93 #define dsyev DSYEV_
94 #define dspev DSPEV_
95 #define dgesvd DGESVD_
96 #endif // FC_SYMBOL
97 #endif // USE_FCMANGLE_H
98 
99 #endif