Psi4
blas_intfc23_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_intfc23_mangle_h_
29 #define _psi_src_lib_libqt_blas_intfc23_mangle_h_
30 
42 #ifdef USE_FCMANGLE_H
43 #include "FCMangle.h"
44 #define F_DGBMV FC_GLOBAL(dgbmv , DGBMV )
45 #define F_DGEMM FC_GLOBAL(dgemm , DGEMM )
46 #define F_DGEMV FC_GLOBAL(dgemv , DGEMV )
47 #define F_DGER FC_GLOBAL(dger , DGER )
48 #define F_DSBMV FC_GLOBAL(dsbmv , DSBMV )
49 #define F_DSPMV FC_GLOBAL(dspmv , DSPMV )
50 #define F_DSPR FC_GLOBAL(dspr , DSPR )
51 #define F_DSPR2 FC_GLOBAL(dspr2 , DSPR2 )
52 #define F_DSYMM FC_GLOBAL(dsymm , DSYMM )
53 #define F_DSYMV FC_GLOBAL(dsymv , DSYMV )
54 #define F_DSYR FC_GLOBAL(dsyr , DSYR )
55 #define F_DSYR2 FC_GLOBAL(dsyr2 , DSYR2 )
56 #define F_DSYR2K FC_GLOBAL(dsyr2k, DSYR2K)
57 #define F_DSYRK FC_GLOBAL(dsyrk , DSYRK )
58 #define F_DTBMV FC_GLOBAL(dtbmv , DTBMV )
59 #define F_DTBSV FC_GLOBAL(dtbsv , DTBSV )
60 #define F_DTPMV FC_GLOBAL(dtpmv , DTPMV )
61 #define F_DTPSV FC_GLOBAL(dtpsv , DTPSV )
62 #define F_DTRMM FC_GLOBAL(dtrmm , DTRMM )
63 #define F_DTRMV FC_GLOBAL(dtrmv , DTRMV )
64 #define F_DTRSM FC_GLOBAL(dtrsm , DTRSM )
65 #define F_DTRSV FC_GLOBAL(dtrsv , DTRSV )
66 #else // USE_FCMANGLE_H
67 #if FC_SYMBOL==2
68 #define F_DGBMV dgbmv_
69 #define F_DGEMM dgemm_
70 #define F_DGEMV dgemv_
71 #define F_DGER dger_
72 #define F_DSBMV dsbmv_
73 #define F_DSPMV dspmv_
74 #define F_DSPR dspr_
75 #define F_DSPR2 dspr2_
76 #define F_DSYMM dsymm_
77 #define F_DSYMV dsymv_
78 #define F_DSYR dsyr_
79 #define F_DSYR2 dsyr2_
80 #define F_DSYR2K dsyr2k_
81 #define F_DSYRK dsyrk_
82 #define F_DTBMV dtbmv_
83 #define F_DTBSV dtbsv_
84 #define F_DTPMV dtpmv_
85 #define F_DTPSV dtpsv_
86 #define F_DTRMM dtrmm_
87 #define F_DTRMV dtrmv_
88 #define F_DTRSM dtrsm_
89 #define F_DTRSV dtrsv_
90 #elif FC_SYMBOL==1
91 #define F_DGBMV dgbmv
92 #define F_DGEMM dgemm
93 #define F_DGEMV dgemv
94 #define F_DGER dger
95 #define F_DSBMV dsbmv
96 #define F_DSPMV dspmv
97 #define F_DSPR dspr
98 #define F_DSPR2 dspr2
99 #define F_DSYMM dsymm
100 #define F_DSYMV dsymv
101 #define F_DSYR dsyr
102 #define F_DSYR2 dsyr2
103 #define F_DSYR2K dsyr2k
104 #define F_DSYRK dsyrk
105 #define F_DTBMV dtbmv
106 #define F_DTBSV dtbsv
107 #define F_DTPMV dtpmv
108 #define F_DTPSV dtpsv
109 #define F_DTRMM dtrmm
110 #define F_DTRMV dtrmv
111 #define F_DTRSM dtrsm
112 #define F_DTRSV dtrsv
113 #elif FC_SYMBOL==3
114 #define F_DGBMV DGBMV
115 #define F_DGEMM DGEMM
116 #define F_DGEMV DGEMV
117 #define F_DGER DGER
118 #define F_DSBMV DSBMV
119 #define F_DSPMV DSPMV
120 #define F_DSPR DSPR
121 #define F_DSPR2 DSPR2
122 #define F_DSYMM DSYMM
123 #define F_DSYMV DSYMV
124 #define F_DSYR DSYR
125 #define F_DSYR2 DSYR2
126 #define F_DSYR2K DSYR2K
127 #define F_DSYRK DSYRK
128 #define F_DTBMV DTBMV
129 #define F_DTBSV DTBSV
130 #define F_DTPMV DTPMV
131 #define F_DTPSV DTPSV
132 #define F_DTRMM DTRMM
133 #define F_DTRMV DTRMV
134 #define F_DTRSM DTRSM
135 #define F_DTRSV DTRSV
136 #elif FC_SYMBOL==4
137 #define F_DGBMV DGBMV_
138 #define F_DGEMM DGEMM_
139 #define F_DGEMV DGEMV_
140 #define F_DGER DGER_
141 #define F_DSBMV DSBMV_
142 #define F_DSPMV DSPMV_
143 #define F_DSPR DSPR_
144 #define F_DSPR2 DSPR2_
145 #define F_DSYMM DSYMM_
146 #define F_DSYMV DSYMV_
147 #define F_DSYR DSYR_
148 #define F_DSYR2 DSYR2_
149 #define F_DSYR2K DSYR2K_
150 #define F_DSYRK DSYRK_
151 #define F_DTBMV DTBMV_
152 #define F_DTBSV DTBSV_
153 #define F_DTPMV DTPMV_
154 #define F_DTPSV DTPSV_
155 #define F_DTRMM DTRMM_
156 #define F_DTRMV DTRMV_
157 #define F_DTRSM DTRSM_
158 #define F_DTRSV DTRSV_
159 #endif
160 #endif
161 
162 #endif