Psi4
mcscf/algebra_interface_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_bin_mcscf_algebra_interface_mangle_h_
30 #define _psi_src_bin_mcscf_algebra_interface_mangle_h_
31 
32 #ifndef FC_SYMBOL
33 #define FC_SYMBOL 2
34 #endif
35 
36 #ifdef USE_FCMANGLE_H
37 #include "FCMangle.h"
38 #define F_DAXPY FC_GLOBAL(daxpy, DAXPY)
39 #define F_DCOPY FC_GLOBAL(dcopy, DCOPY)
40 #define F_DGEMM FC_GLOBAL(dgemm, DGEMM)
41 #define F_DROT FC_GLOBAL(drot, DROT)
42 #define F_DSCAL FC_GLOBAL(dscal, DSCAL)
43 #define F_DGEMV FC_GLOBAL(dgemv, DGEMV)
44 #define F_DSPMV FC_GLOBAL(dfpmv, DSPMV)
45 #define F_DDOT FC_GLOBAL(ddot, DDOT)
46 #define F_DGEEV FC_GLOBAL(dgeev, DGEEV)
47 #define F_DGESV FC_GLOBAL(dgesv, DGESV)
48 #define F_DGETRF FC_GLOBAL(dgetrf, DGETRF)
49 #define F_DGETRI FC_GLOBAL(dgetri, DGETRI)
50 #define F_DGESVD FC_GLOBAL(dgesvd, DGESVD)
51 #define F_DSYEV FC_GLOBAL(dsyev, DSYEV)
52 #else // USE_FCMANGLE_H
53 #if FC_SYMBOL==2
54 #define F_DAXPY daxpy_
55 #define F_DCOPY dcopy_
56 #define F_DGEMM dgemm_
57 #define F_DROT drot_
58 #define F_DSCAL dscal_
59 #define F_DGEMV dgemv_
60 #define F_DSPMV dspmv_
61 #define F_DDOT ddot_
62 #define F_DGEEV dgeev_
63 #define F_DGESV dgesv_
64 #define F_DGETRF dgetrf_
65 #define F_DGETRI dgetri_
66 #define F_DGESVD dgesvd_
67 #define F_DSYEV dsyev_
68 #elif FC_SYMBOL==1
69 #define F_DAXPY daxpy
70 #define F_DCOPY dcopy
71 #define F_DGEMM dgemm
72 #define F_DROT drot
73 #define F_DSCAL dscal
74 #define F_DGEMV dgemv
75 #define F_DSPMV dspmv
76 #define F_DDOT ddot
77 #define F_DGEEV dgeev
78 #define F_DGESV dgesv
79 #define F_DGETRF dgetrf
80 #define F_DGETRI dgetri
81 #define F_DGESVD dgesvd
82 #define F_DSYEV dsyev
83 #elif FC_SYMBOL==3
84 #define F_DAXPY DAXPY
85 #define F_DCOPY DCOPY
86 #define F_DGEMM DGEMM
87 #define F_DROT DROT
88 #define F_DSCAL DSCAL
89 #define F_DGEMV DGEMV
90 #define F_DSPMV DSPMV
91 #define F_DDOT DDOT
92 #define F_DGEEV DGEEV
93 #define F_DGESV DGESV
94 #define F_DGETRF DGETRF
95 #define F_DGETRI DGETRI
96 #define F_DGESVD DGESVD
97 #define F_DSYEV DSYEV
98 #elif FC_SYMBOL==4
99 #define F_DAXPY DAXPY_
100 #define F_DCOPY DCOPY_
101 #define F_DGEMM DGEMM_
102 #define F_DROT DROT_
103 #define F_DSCAL DSCAL_
104 #define F_DGEMV DGEMV_
105 #define F_DSPMV DSPMV_
106 #define F_DDOT DDOT_
107 #define F_DGEEV DGEEV_
108 #define F_DGESV DGESV_
109 #define F_DGETRF DGETRF_
110 #define F_DGETRI DGETRI_
111 #define F_DGESVD DGESVD_
112 #define F_DSYEV DSYEV_
113 #endif // FC_SYMBOL
114 #endif // USE_FCMANGLE_H
115 
116 #endif // _psi_src_bin_mcscf_algebra_interface_mangle_h_