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