c@427
|
1 /* CLAPACK 3.0 BLAS wrapper macros
|
c@427
|
2 * Feb 5, 2000
|
c@427
|
3 */
|
c@427
|
4
|
c@427
|
5 #ifndef __BLASWRAP_H
|
c@427
|
6 #define __BLASWRAP_H
|
c@427
|
7
|
c@427
|
8 #ifndef NO_BLAS_WRAP
|
c@427
|
9
|
c@427
|
10 /* BLAS1 routines */
|
c@427
|
11 #define srotg_ f2c_srotg
|
c@427
|
12 #define crotg_ f2c_crotg
|
c@427
|
13 #define drotg_ f2c_drotg
|
c@427
|
14 #define zrotg_ f2c_zrotg
|
c@427
|
15 #define srotmg_ f2c_srotmg
|
c@427
|
16 #define drotmg_ f2c_drotmg
|
c@427
|
17 #define srot_ f2c_srot
|
c@427
|
18 #define drot_ f2c_drot
|
c@427
|
19 #define srotm_ f2c_srotm
|
c@427
|
20 #define drotm_ f2c_drotm
|
c@427
|
21 #define sswap_ f2c_sswap
|
c@427
|
22 #define dswap_ f2c_dswap
|
c@427
|
23 #define cswap_ f2c_cswap
|
c@427
|
24 #define zswap_ f2c_zswap
|
c@427
|
25 #define sscal_ f2c_sscal
|
c@427
|
26 #define dscal_ f2c_dscal
|
c@427
|
27 #define cscal_ f2c_cscal
|
c@427
|
28 #define zscal_ f2c_zscal
|
c@427
|
29 #define csscal_ f2c_csscal
|
c@427
|
30 #define zdscal_ f2c_zdscal
|
c@427
|
31 #define scopy_ f2c_scopy
|
c@427
|
32 #define dcopy_ f2c_dcopy
|
c@427
|
33 #define ccopy_ f2c_ccopy
|
c@427
|
34 #define zcopy_ f2c_zcopy
|
c@427
|
35 #define saxpy_ f2c_saxpy
|
c@427
|
36 #define daxpy_ f2c_daxpy
|
c@427
|
37 #define caxpy_ f2c_caxpy
|
c@427
|
38 #define zaxpy_ f2c_zaxpy
|
c@427
|
39 #define sdot_ f2c_sdot
|
c@427
|
40 #define ddot_ f2c_ddot
|
c@427
|
41 #define cdotu_ f2c_cdotu
|
c@427
|
42 #define zdotu_ f2c_zdotu
|
c@427
|
43 #define cdotc_ f2c_cdotc
|
c@427
|
44 #define zdotc_ f2c_zdotc
|
c@427
|
45 #define snrm2_ f2c_snrm2
|
c@427
|
46 #define dnrm2_ f2c_dnrm2
|
c@427
|
47 #define scnrm2_ f2c_scnrm2
|
c@427
|
48 #define dznrm2_ f2c_dznrm2
|
c@427
|
49 #define sasum_ f2c_sasum
|
c@427
|
50 #define dasum_ f2c_dasum
|
c@427
|
51 #define scasum_ f2c_scasum
|
c@427
|
52 #define dzasum_ f2c_dzasum
|
c@427
|
53 #define isamax_ f2c_isamax
|
c@427
|
54 #define idamax_ f2c_idamax
|
c@427
|
55 #define icamax_ f2c_icamax
|
c@427
|
56 #define izamax_ f2c_izamax
|
c@427
|
57
|
c@427
|
58 /* BLAS2 routines */
|
c@427
|
59 #define sgemv_ f2c_sgemv
|
c@427
|
60 #define dgemv_ f2c_dgemv
|
c@427
|
61 #define cgemv_ f2c_cgemv
|
c@427
|
62 #define zgemv_ f2c_zgemv
|
c@427
|
63 #define sgbmv_ f2c_sgbmv
|
c@427
|
64 #define dgbmv_ f2c_dgbmv
|
c@427
|
65 #define cgbmv_ f2c_cgbmv
|
c@427
|
66 #define zgbmv_ f2c_zgbmv
|
c@427
|
67 #define chemv_ f2c_chemv
|
c@427
|
68 #define zhemv_ f2c_zhemv
|
c@427
|
69 #define chbmv_ f2c_chbmv
|
c@427
|
70 #define zhbmv_ f2c_zhbmv
|
c@427
|
71 #define chpmv_ f2c_chpmv
|
c@427
|
72 #define zhpmv_ f2c_zhpmv
|
c@427
|
73 #define ssymv_ f2c_ssymv
|
c@427
|
74 #define dsymv_ f2c_dsymv
|
c@427
|
75 #define ssbmv_ f2c_ssbmv
|
c@427
|
76 #define dsbmv_ f2c_dsbmv
|
c@427
|
77 #define sspmv_ f2c_sspmv
|
c@427
|
78 #define dspmv_ f2c_dspmv
|
c@427
|
79 #define strmv_ f2c_strmv
|
c@427
|
80 #define dtrmv_ f2c_dtrmv
|
c@427
|
81 #define ctrmv_ f2c_ctrmv
|
c@427
|
82 #define ztrmv_ f2c_ztrmv
|
c@427
|
83 #define stbmv_ f2c_stbmv
|
c@427
|
84 #define dtbmv_ f2c_dtbmv
|
c@427
|
85 #define ctbmv_ f2c_ctbmv
|
c@427
|
86 #define ztbmv_ f2c_ztbmv
|
c@427
|
87 #define stpmv_ f2c_stpmv
|
c@427
|
88 #define dtpmv_ f2c_dtpmv
|
c@427
|
89 #define ctpmv_ f2c_ctpmv
|
c@427
|
90 #define ztpmv_ f2c_ztpmv
|
c@427
|
91 #define strsv_ f2c_strsv
|
c@427
|
92 #define dtrsv_ f2c_dtrsv
|
c@427
|
93 #define ctrsv_ f2c_ctrsv
|
c@427
|
94 #define ztrsv_ f2c_ztrsv
|
c@427
|
95 #define stbsv_ f2c_stbsv
|
c@427
|
96 #define dtbsv_ f2c_dtbsv
|
c@427
|
97 #define ctbsv_ f2c_ctbsv
|
c@427
|
98 #define ztbsv_ f2c_ztbsv
|
c@427
|
99 #define stpsv_ f2c_stpsv
|
c@427
|
100 #define dtpsv_ f2c_dtpsv
|
c@427
|
101 #define ctpsv_ f2c_ctpsv
|
c@427
|
102 #define ztpsv_ f2c_ztpsv
|
c@427
|
103 #define sger_ f2c_sger
|
c@427
|
104 #define dger_ f2c_dger
|
c@427
|
105 #define cgeru_ f2c_cgeru
|
c@427
|
106 #define zgeru_ f2c_zgeru
|
c@427
|
107 #define cgerc_ f2c_cgerc
|
c@427
|
108 #define zgerc_ f2c_zgerc
|
c@427
|
109 #define cher_ f2c_cher
|
c@427
|
110 #define zher_ f2c_zher
|
c@427
|
111 #define chpr_ f2c_chpr
|
c@427
|
112 #define zhpr_ f2c_zhpr
|
c@427
|
113 #define cher2_ f2c_cher2
|
c@427
|
114 #define zher2_ f2c_zher2
|
c@427
|
115 #define chpr2_ f2c_chpr2
|
c@427
|
116 #define zhpr2_ f2c_zhpr2
|
c@427
|
117 #define ssyr_ f2c_ssyr
|
c@427
|
118 #define dsyr_ f2c_dsyr
|
c@427
|
119 #define sspr_ f2c_sspr
|
c@427
|
120 #define dspr_ f2c_dspr
|
c@427
|
121 #define ssyr2_ f2c_ssyr2
|
c@427
|
122 #define dsyr2_ f2c_dsyr2
|
c@427
|
123 #define sspr2_ f2c_sspr2
|
c@427
|
124 #define dspr2_ f2c_dspr2
|
c@427
|
125
|
c@427
|
126 /* BLAS3 routines */
|
c@427
|
127 #define sgemm_ f2c_sgemm
|
c@427
|
128 #define dgemm_ f2c_dgemm
|
c@427
|
129 #define cgemm_ f2c_cgemm
|
c@427
|
130 #define zgemm_ f2c_zgemm
|
c@427
|
131 #define ssymm_ f2c_ssymm
|
c@427
|
132 #define dsymm_ f2c_dsymm
|
c@427
|
133 #define csymm_ f2c_csymm
|
c@427
|
134 #define zsymm_ f2c_zsymm
|
c@427
|
135 #define chemm_ f2c_chemm
|
c@427
|
136 #define zhemm_ f2c_zhemm
|
c@427
|
137 #define ssyrk_ f2c_ssyrk
|
c@427
|
138 #define dsyrk_ f2c_dsyrk
|
c@427
|
139 #define csyrk_ f2c_csyrk
|
c@427
|
140 #define zsyrk_ f2c_zsyrk
|
c@427
|
141 #define cherk_ f2c_cherk
|
c@427
|
142 #define zherk_ f2c_zherk
|
c@427
|
143 #define ssyr2k_ f2c_ssyr2k
|
c@427
|
144 #define dsyr2k_ f2c_dsyr2k
|
c@427
|
145 #define csyr2k_ f2c_csyr2k
|
c@427
|
146 #define zsyr2k_ f2c_zsyr2k
|
c@427
|
147 #define cher2k_ f2c_cher2k
|
c@427
|
148 #define zher2k_ f2c_zher2k
|
c@427
|
149 #define strmm_ f2c_strmm
|
c@427
|
150 #define dtrmm_ f2c_dtrmm
|
c@427
|
151 #define ctrmm_ f2c_ctrmm
|
c@427
|
152 #define ztrmm_ f2c_ztrmm
|
c@427
|
153 #define strsm_ f2c_strsm
|
c@427
|
154 #define dtrsm_ f2c_dtrsm
|
c@427
|
155 #define ctrsm_ f2c_ctrsm
|
c@427
|
156 #define ztrsm_ f2c_ztrsm
|
c@427
|
157
|
c@427
|
158 #endif /* NO_BLAS_WRAP */
|
c@427
|
159
|
c@427
|
160 #endif /* __BLASWRAP_H */
|