|
Chris@202
|
1 /*
|
|
Chris@202
|
2 * cblas_f77.h
|
|
Chris@202
|
3 * Written by Keita Teranishi
|
|
Chris@202
|
4 *
|
|
Chris@202
|
5 * Updated by Jeff Horner
|
|
Chris@202
|
6 * Merged cblas_f77.h and cblas_fortran_header.h
|
|
Chris@202
|
7 */
|
|
Chris@202
|
8
|
|
Chris@202
|
9 #ifndef CBLAS_F77_H
|
|
Chris@202
|
10 #define CBLAS_f77_H
|
|
Chris@202
|
11
|
|
Chris@202
|
12 #ifdef CRAY
|
|
Chris@202
|
13 #include <fortran.h>
|
|
Chris@202
|
14 #define F77_CHAR _fcd
|
|
Chris@202
|
15 #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
|
|
Chris@202
|
16 #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
|
|
Chris@202
|
17 #define F77_STRLEN(a) (_fcdlen)
|
|
Chris@202
|
18 #endif
|
|
Chris@202
|
19
|
|
Chris@202
|
20 #ifdef WeirdNEC
|
|
Chris@202
|
21 #define F77_INT long
|
|
Chris@202
|
22 #endif
|
|
Chris@202
|
23
|
|
Chris@202
|
24 #ifdef F77_CHAR
|
|
Chris@202
|
25 #define FCHAR F77_CHAR
|
|
Chris@202
|
26 #else
|
|
Chris@202
|
27 #define FCHAR char *
|
|
Chris@202
|
28 #endif
|
|
Chris@202
|
29
|
|
Chris@202
|
30 #ifdef F77_INT
|
|
Chris@202
|
31 #define FINT const F77_INT *
|
|
Chris@202
|
32 #define FINT2 F77_INT *
|
|
Chris@202
|
33 #else
|
|
Chris@202
|
34 #define FINT const int *
|
|
Chris@202
|
35 #define FINT2 int *
|
|
Chris@202
|
36 #endif
|
|
Chris@202
|
37
|
|
Chris@202
|
38 #if defined(ADD_)
|
|
Chris@202
|
39 /*
|
|
Chris@202
|
40 * Level 1 BLAS
|
|
Chris@202
|
41 */
|
|
Chris@202
|
42 #define F77_xerbla xerbla_
|
|
Chris@202
|
43 #define F77_srotg srotg_
|
|
Chris@202
|
44 #define F77_srotmg srotmg_
|
|
Chris@202
|
45 #define F77_srot srot_
|
|
Chris@202
|
46 #define F77_srotm srotm_
|
|
Chris@202
|
47 #define F77_drotg drotg_
|
|
Chris@202
|
48 #define F77_drotmg drotmg_
|
|
Chris@202
|
49 #define F77_drot drot_
|
|
Chris@202
|
50 #define F77_drotm drotm_
|
|
Chris@202
|
51 #define F77_sswap sswap_
|
|
Chris@202
|
52 #define F77_scopy scopy_
|
|
Chris@202
|
53 #define F77_saxpy saxpy_
|
|
Chris@202
|
54 #define F77_isamax_sub isamaxsub_
|
|
Chris@202
|
55 #define F77_dswap dswap_
|
|
Chris@202
|
56 #define F77_dcopy dcopy_
|
|
Chris@202
|
57 #define F77_daxpy daxpy_
|
|
Chris@202
|
58 #define F77_idamax_sub idamaxsub_
|
|
Chris@202
|
59 #define F77_cswap cswap_
|
|
Chris@202
|
60 #define F77_ccopy ccopy_
|
|
Chris@202
|
61 #define F77_caxpy caxpy_
|
|
Chris@202
|
62 #define F77_icamax_sub icamaxsub_
|
|
Chris@202
|
63 #define F77_zswap zswap_
|
|
Chris@202
|
64 #define F77_zcopy zcopy_
|
|
Chris@202
|
65 #define F77_zaxpy zaxpy_
|
|
Chris@202
|
66 #define F77_izamax_sub izamaxsub_
|
|
Chris@202
|
67 #define F77_sdot_sub sdotsub_
|
|
Chris@202
|
68 #define F77_ddot_sub ddotsub_
|
|
Chris@202
|
69 #define F77_dsdot_sub dsdotsub_
|
|
Chris@202
|
70 #define F77_sscal sscal_
|
|
Chris@202
|
71 #define F77_dscal dscal_
|
|
Chris@202
|
72 #define F77_cscal cscal_
|
|
Chris@202
|
73 #define F77_zscal zscal_
|
|
Chris@202
|
74 #define F77_csscal csscal_
|
|
Chris@202
|
75 #define F77_zdscal zdscal_
|
|
Chris@202
|
76 #define F77_cdotu_sub cdotusub_
|
|
Chris@202
|
77 #define F77_cdotc_sub cdotcsub_
|
|
Chris@202
|
78 #define F77_zdotu_sub zdotusub_
|
|
Chris@202
|
79 #define F77_zdotc_sub zdotcsub_
|
|
Chris@202
|
80 #define F77_snrm2_sub snrm2sub_
|
|
Chris@202
|
81 #define F77_sasum_sub sasumsub_
|
|
Chris@202
|
82 #define F77_dnrm2_sub dnrm2sub_
|
|
Chris@202
|
83 #define F77_dasum_sub dasumsub_
|
|
Chris@202
|
84 #define F77_scnrm2_sub scnrm2sub_
|
|
Chris@202
|
85 #define F77_scasum_sub scasumsub_
|
|
Chris@202
|
86 #define F77_dznrm2_sub dznrm2sub_
|
|
Chris@202
|
87 #define F77_dzasum_sub dzasumsub_
|
|
Chris@202
|
88 #define F77_sdsdot_sub sdsdotsub_
|
|
Chris@202
|
89 /*
|
|
Chris@202
|
90 * Level 2 BLAS
|
|
Chris@202
|
91 */
|
|
Chris@202
|
92 #define F77_ssymv ssymv_
|
|
Chris@202
|
93 #define F77_ssbmv ssbmv_
|
|
Chris@202
|
94 #define F77_sspmv sspmv_
|
|
Chris@202
|
95 #define F77_sger sger_
|
|
Chris@202
|
96 #define F77_ssyr ssyr_
|
|
Chris@202
|
97 #define F77_sspr sspr_
|
|
Chris@202
|
98 #define F77_ssyr2 ssyr2_
|
|
Chris@202
|
99 #define F77_sspr2 sspr2_
|
|
Chris@202
|
100 #define F77_dsymv dsymv_
|
|
Chris@202
|
101 #define F77_dsbmv dsbmv_
|
|
Chris@202
|
102 #define F77_dspmv dspmv_
|
|
Chris@202
|
103 #define F77_dger dger_
|
|
Chris@202
|
104 #define F77_dsyr dsyr_
|
|
Chris@202
|
105 #define F77_dspr dspr_
|
|
Chris@202
|
106 #define F77_dsyr2 dsyr2_
|
|
Chris@202
|
107 #define F77_dspr2 dspr2_
|
|
Chris@202
|
108 #define F77_chemv chemv_
|
|
Chris@202
|
109 #define F77_chbmv chbmv_
|
|
Chris@202
|
110 #define F77_chpmv chpmv_
|
|
Chris@202
|
111 #define F77_cgeru cgeru_
|
|
Chris@202
|
112 #define F77_cgerc cgerc_
|
|
Chris@202
|
113 #define F77_cher cher_
|
|
Chris@202
|
114 #define F77_chpr chpr_
|
|
Chris@202
|
115 #define F77_cher2 cher2_
|
|
Chris@202
|
116 #define F77_chpr2 chpr2_
|
|
Chris@202
|
117 #define F77_zhemv zhemv_
|
|
Chris@202
|
118 #define F77_zhbmv zhbmv_
|
|
Chris@202
|
119 #define F77_zhpmv zhpmv_
|
|
Chris@202
|
120 #define F77_zgeru zgeru_
|
|
Chris@202
|
121 #define F77_zgerc zgerc_
|
|
Chris@202
|
122 #define F77_zher zher_
|
|
Chris@202
|
123 #define F77_zhpr zhpr_
|
|
Chris@202
|
124 #define F77_zher2 zher2_
|
|
Chris@202
|
125 #define F77_zhpr2 zhpr2_
|
|
Chris@202
|
126 #define F77_sgemv sgemv_
|
|
Chris@202
|
127 #define F77_sgbmv sgbmv_
|
|
Chris@202
|
128 #define F77_strmv strmv_
|
|
Chris@202
|
129 #define F77_stbmv stbmv_
|
|
Chris@202
|
130 #define F77_stpmv stpmv_
|
|
Chris@202
|
131 #define F77_strsv strsv_
|
|
Chris@202
|
132 #define F77_stbsv stbsv_
|
|
Chris@202
|
133 #define F77_stpsv stpsv_
|
|
Chris@202
|
134 #define F77_dgemv dgemv_
|
|
Chris@202
|
135 #define F77_dgbmv dgbmv_
|
|
Chris@202
|
136 #define F77_dtrmv dtrmv_
|
|
Chris@202
|
137 #define F77_dtbmv dtbmv_
|
|
Chris@202
|
138 #define F77_dtpmv dtpmv_
|
|
Chris@202
|
139 #define F77_dtrsv dtrsv_
|
|
Chris@202
|
140 #define F77_dtbsv dtbsv_
|
|
Chris@202
|
141 #define F77_dtpsv dtpsv_
|
|
Chris@202
|
142 #define F77_cgemv cgemv_
|
|
Chris@202
|
143 #define F77_cgbmv cgbmv_
|
|
Chris@202
|
144 #define F77_ctrmv ctrmv_
|
|
Chris@202
|
145 #define F77_ctbmv ctbmv_
|
|
Chris@202
|
146 #define F77_ctpmv ctpmv_
|
|
Chris@202
|
147 #define F77_ctrsv ctrsv_
|
|
Chris@202
|
148 #define F77_ctbsv ctbsv_
|
|
Chris@202
|
149 #define F77_ctpsv ctpsv_
|
|
Chris@202
|
150 #define F77_zgemv zgemv_
|
|
Chris@202
|
151 #define F77_zgbmv zgbmv_
|
|
Chris@202
|
152 #define F77_ztrmv ztrmv_
|
|
Chris@202
|
153 #define F77_ztbmv ztbmv_
|
|
Chris@202
|
154 #define F77_ztpmv ztpmv_
|
|
Chris@202
|
155 #define F77_ztrsv ztrsv_
|
|
Chris@202
|
156 #define F77_ztbsv ztbsv_
|
|
Chris@202
|
157 #define F77_ztpsv ztpsv_
|
|
Chris@202
|
158 /*
|
|
Chris@202
|
159 * Level 3 BLAS
|
|
Chris@202
|
160 */
|
|
Chris@202
|
161 #define F77_chemm chemm_
|
|
Chris@202
|
162 #define F77_cherk cherk_
|
|
Chris@202
|
163 #define F77_cher2k cher2k_
|
|
Chris@202
|
164 #define F77_zhemm zhemm_
|
|
Chris@202
|
165 #define F77_zherk zherk_
|
|
Chris@202
|
166 #define F77_zher2k zher2k_
|
|
Chris@202
|
167 #define F77_sgemm sgemm_
|
|
Chris@202
|
168 #define F77_ssymm ssymm_
|
|
Chris@202
|
169 #define F77_ssyrk ssyrk_
|
|
Chris@202
|
170 #define F77_ssyr2k ssyr2k_
|
|
Chris@202
|
171 #define F77_strmm strmm_
|
|
Chris@202
|
172 #define F77_strsm strsm_
|
|
Chris@202
|
173 #define F77_dgemm dgemm_
|
|
Chris@202
|
174 #define F77_dsymm dsymm_
|
|
Chris@202
|
175 #define F77_dsyrk dsyrk_
|
|
Chris@202
|
176 #define F77_dsyr2k dsyr2k_
|
|
Chris@202
|
177 #define F77_dtrmm dtrmm_
|
|
Chris@202
|
178 #define F77_dtrsm dtrsm_
|
|
Chris@202
|
179 #define F77_cgemm cgemm_
|
|
Chris@202
|
180 #define F77_csymm csymm_
|
|
Chris@202
|
181 #define F77_csyrk csyrk_
|
|
Chris@202
|
182 #define F77_csyr2k csyr2k_
|
|
Chris@202
|
183 #define F77_ctrmm ctrmm_
|
|
Chris@202
|
184 #define F77_ctrsm ctrsm_
|
|
Chris@202
|
185 #define F77_zgemm zgemm_
|
|
Chris@202
|
186 #define F77_zsymm zsymm_
|
|
Chris@202
|
187 #define F77_zsyrk zsyrk_
|
|
Chris@202
|
188 #define F77_zsyr2k zsyr2k_
|
|
Chris@202
|
189 #define F77_ztrmm ztrmm_
|
|
Chris@202
|
190 #define F77_ztrsm ztrsm_
|
|
Chris@202
|
191 #elif defined(UPCASE)
|
|
Chris@202
|
192 /*
|
|
Chris@202
|
193 * Level 1 BLAS
|
|
Chris@202
|
194 */
|
|
Chris@202
|
195 #define F77_xerbla XERBLA
|
|
Chris@202
|
196 #define F77_srotg SROTG
|
|
Chris@202
|
197 #define F77_srotmg SROTMG
|
|
Chris@202
|
198 #define F77_srot SROT
|
|
Chris@202
|
199 #define F77_srotm SROTM
|
|
Chris@202
|
200 #define F77_drotg DROTG
|
|
Chris@202
|
201 #define F77_drotmg DROTMG
|
|
Chris@202
|
202 #define F77_drot DROT
|
|
Chris@202
|
203 #define F77_drotm DROTM
|
|
Chris@202
|
204 #define F77_sswap SSWAP
|
|
Chris@202
|
205 #define F77_scopy SCOPY
|
|
Chris@202
|
206 #define F77_saxpy SAXPY
|
|
Chris@202
|
207 #define F77_isamax_sub ISAMAXSUB
|
|
Chris@202
|
208 #define F77_dswap DSWAP
|
|
Chris@202
|
209 #define F77_dcopy DCOPY
|
|
Chris@202
|
210 #define F77_daxpy DAXPY
|
|
Chris@202
|
211 #define F77_idamax_sub IDAMAXSUB
|
|
Chris@202
|
212 #define F77_cswap CSWAP
|
|
Chris@202
|
213 #define F77_ccopy CCOPY
|
|
Chris@202
|
214 #define F77_caxpy CAXPY
|
|
Chris@202
|
215 #define F77_icamax_sub ICAMAXSUB
|
|
Chris@202
|
216 #define F77_zswap ZSWAP
|
|
Chris@202
|
217 #define F77_zcopy ZCOPY
|
|
Chris@202
|
218 #define F77_zaxpy ZAXPY
|
|
Chris@202
|
219 #define F77_izamax_sub IZAMAXSUB
|
|
Chris@202
|
220 #define F77_sdot_sub SDOTSUB
|
|
Chris@202
|
221 #define F77_ddot_sub DDOTSUB
|
|
Chris@202
|
222 #define F77_dsdot_sub DSDOTSUB
|
|
Chris@202
|
223 #define F77_sscal SSCAL
|
|
Chris@202
|
224 #define F77_dscal DSCAL
|
|
Chris@202
|
225 #define F77_cscal CSCAL
|
|
Chris@202
|
226 #define F77_zscal ZSCAL
|
|
Chris@202
|
227 #define F77_csscal CSSCAL
|
|
Chris@202
|
228 #define F77_zdscal ZDSCAL
|
|
Chris@202
|
229 #define F77_cdotu_sub CDOTUSUB
|
|
Chris@202
|
230 #define F77_cdotc_sub CDOTCSUB
|
|
Chris@202
|
231 #define F77_zdotu_sub ZDOTUSUB
|
|
Chris@202
|
232 #define F77_zdotc_sub ZDOTCSUB
|
|
Chris@202
|
233 #define F77_snrm2_sub SNRM2SUB
|
|
Chris@202
|
234 #define F77_sasum_sub SASUMSUB
|
|
Chris@202
|
235 #define F77_dnrm2_sub DNRM2SUB
|
|
Chris@202
|
236 #define F77_dasum_sub DASUMSUB
|
|
Chris@202
|
237 #define F77_scnrm2_sub SCNRM2SUB
|
|
Chris@202
|
238 #define F77_scasum_sub SCASUMSUB
|
|
Chris@202
|
239 #define F77_dznrm2_sub DZNRM2SUB
|
|
Chris@202
|
240 #define F77_dzasum_sub DZASUMSUB
|
|
Chris@202
|
241 #define F77_sdsdot_sub SDSDOTSUB
|
|
Chris@202
|
242 /*
|
|
Chris@202
|
243 * Level 2 BLAS
|
|
Chris@202
|
244 */
|
|
Chris@202
|
245 #define F77_ssymv SSYMV
|
|
Chris@202
|
246 #define F77_ssbmv SSBMV
|
|
Chris@202
|
247 #define F77_sspmv SSPMV
|
|
Chris@202
|
248 #define F77_sger SGER
|
|
Chris@202
|
249 #define F77_ssyr SSYR
|
|
Chris@202
|
250 #define F77_sspr SSPR
|
|
Chris@202
|
251 #define F77_ssyr2 SSYR2
|
|
Chris@202
|
252 #define F77_sspr2 SSPR2
|
|
Chris@202
|
253 #define F77_dsymv DSYMV
|
|
Chris@202
|
254 #define F77_dsbmv DSBMV
|
|
Chris@202
|
255 #define F77_dspmv DSPMV
|
|
Chris@202
|
256 #define F77_dger DGER
|
|
Chris@202
|
257 #define F77_dsyr DSYR
|
|
Chris@202
|
258 #define F77_dspr DSPR
|
|
Chris@202
|
259 #define F77_dsyr2 DSYR2
|
|
Chris@202
|
260 #define F77_dspr2 DSPR2
|
|
Chris@202
|
261 #define F77_chemv CHEMV
|
|
Chris@202
|
262 #define F77_chbmv CHBMV
|
|
Chris@202
|
263 #define F77_chpmv CHPMV
|
|
Chris@202
|
264 #define F77_cgeru CGERU
|
|
Chris@202
|
265 #define F77_cgerc CGERC
|
|
Chris@202
|
266 #define F77_cher CHER
|
|
Chris@202
|
267 #define F77_chpr CHPR
|
|
Chris@202
|
268 #define F77_cher2 CHER2
|
|
Chris@202
|
269 #define F77_chpr2 CHPR2
|
|
Chris@202
|
270 #define F77_zhemv ZHEMV
|
|
Chris@202
|
271 #define F77_zhbmv ZHBMV
|
|
Chris@202
|
272 #define F77_zhpmv ZHPMV
|
|
Chris@202
|
273 #define F77_zgeru ZGERU
|
|
Chris@202
|
274 #define F77_zgerc ZGERC
|
|
Chris@202
|
275 #define F77_zher ZHER
|
|
Chris@202
|
276 #define F77_zhpr ZHPR
|
|
Chris@202
|
277 #define F77_zher2 ZHER2
|
|
Chris@202
|
278 #define F77_zhpr2 ZHPR2
|
|
Chris@202
|
279 #define F77_sgemv SGEMV
|
|
Chris@202
|
280 #define F77_sgbmv SGBMV
|
|
Chris@202
|
281 #define F77_strmv STRMV
|
|
Chris@202
|
282 #define F77_stbmv STBMV
|
|
Chris@202
|
283 #define F77_stpmv STPMV
|
|
Chris@202
|
284 #define F77_strsv STRSV
|
|
Chris@202
|
285 #define F77_stbsv STBSV
|
|
Chris@202
|
286 #define F77_stpsv STPSV
|
|
Chris@202
|
287 #define F77_dgemv DGEMV
|
|
Chris@202
|
288 #define F77_dgbmv DGBMV
|
|
Chris@202
|
289 #define F77_dtrmv DTRMV
|
|
Chris@202
|
290 #define F77_dtbmv DTBMV
|
|
Chris@202
|
291 #define F77_dtpmv DTPMV
|
|
Chris@202
|
292 #define F77_dtrsv DTRSV
|
|
Chris@202
|
293 #define F77_dtbsv DTBSV
|
|
Chris@202
|
294 #define F77_dtpsv DTPSV
|
|
Chris@202
|
295 #define F77_cgemv CGEMV
|
|
Chris@202
|
296 #define F77_cgbmv CGBMV
|
|
Chris@202
|
297 #define F77_ctrmv CTRMV
|
|
Chris@202
|
298 #define F77_ctbmv CTBMV
|
|
Chris@202
|
299 #define F77_ctpmv CTPMV
|
|
Chris@202
|
300 #define F77_ctrsv CTRSV
|
|
Chris@202
|
301 #define F77_ctbsv CTBSV
|
|
Chris@202
|
302 #define F77_ctpsv CTPSV
|
|
Chris@202
|
303 #define F77_zgemv ZGEMV
|
|
Chris@202
|
304 #define F77_zgbmv ZGBMV
|
|
Chris@202
|
305 #define F77_ztrmv ZTRMV
|
|
Chris@202
|
306 #define F77_ztbmv ZTBMV
|
|
Chris@202
|
307 #define F77_ztpmv ZTPMV
|
|
Chris@202
|
308 #define F77_ztrsv ZTRSV
|
|
Chris@202
|
309 #define F77_ztbsv ZTBSV
|
|
Chris@202
|
310 #define F77_ztpsv ZTPSV
|
|
Chris@202
|
311 /*
|
|
Chris@202
|
312 * Level 3 BLAS
|
|
Chris@202
|
313 */
|
|
Chris@202
|
314 #define F77_chemm CHEMM
|
|
Chris@202
|
315 #define F77_cherk CHERK
|
|
Chris@202
|
316 #define F77_cher2k CHER2K
|
|
Chris@202
|
317 #define F77_zhemm ZHEMM
|
|
Chris@202
|
318 #define F77_zherk ZHERK
|
|
Chris@202
|
319 #define F77_zher2k ZHER2K
|
|
Chris@202
|
320 #define F77_sgemm SGEMM
|
|
Chris@202
|
321 #define F77_ssymm SSYMM
|
|
Chris@202
|
322 #define F77_ssyrk SSYRK
|
|
Chris@202
|
323 #define F77_ssyr2k SSYR2K
|
|
Chris@202
|
324 #define F77_strmm STRMM
|
|
Chris@202
|
325 #define F77_strsm STRSM
|
|
Chris@202
|
326 #define F77_dgemm DGEMM
|
|
Chris@202
|
327 #define F77_dsymm DSYMM
|
|
Chris@202
|
328 #define F77_dsyrk DSYRK
|
|
Chris@202
|
329 #define F77_dsyr2k DSYR2K
|
|
Chris@202
|
330 #define F77_dtrmm DTRMM
|
|
Chris@202
|
331 #define F77_dtrsm DTRSM
|
|
Chris@202
|
332 #define F77_cgemm CGEMM
|
|
Chris@202
|
333 #define F77_csymm CSYMM
|
|
Chris@202
|
334 #define F77_csyrk CSYRK
|
|
Chris@202
|
335 #define F77_csyr2k CSYR2K
|
|
Chris@202
|
336 #define F77_ctrmm CTRMM
|
|
Chris@202
|
337 #define F77_ctrsm CTRSM
|
|
Chris@202
|
338 #define F77_zgemm ZGEMM
|
|
Chris@202
|
339 #define F77_zsymm ZSYMM
|
|
Chris@202
|
340 #define F77_zsyrk ZSYRK
|
|
Chris@202
|
341 #define F77_zsyr2k ZSYR2K
|
|
Chris@202
|
342 #define F77_ztrmm ZTRMM
|
|
Chris@202
|
343 #define F77_ztrsm ZTRSM
|
|
Chris@202
|
344 #elif defined(NOCHANGE)
|
|
Chris@202
|
345 /*
|
|
Chris@202
|
346 * Level 1 BLAS
|
|
Chris@202
|
347 */
|
|
Chris@202
|
348 #define F77_xerbla xerbla
|
|
Chris@202
|
349 #define F77_srotg srotg
|
|
Chris@202
|
350 #define F77_srotmg srotmg
|
|
Chris@202
|
351 #define F77_srot srot
|
|
Chris@202
|
352 #define F77_srotm srotm
|
|
Chris@202
|
353 #define F77_drotg drotg
|
|
Chris@202
|
354 #define F77_drotmg drotmg
|
|
Chris@202
|
355 #define F77_drot drot
|
|
Chris@202
|
356 #define F77_drotm drotm
|
|
Chris@202
|
357 #define F77_sswap sswap
|
|
Chris@202
|
358 #define F77_scopy scopy
|
|
Chris@202
|
359 #define F77_saxpy saxpy
|
|
Chris@202
|
360 #define F77_isamax_sub isamaxsub
|
|
Chris@202
|
361 #define F77_dswap dswap
|
|
Chris@202
|
362 #define F77_dcopy dcopy
|
|
Chris@202
|
363 #define F77_daxpy daxpy
|
|
Chris@202
|
364 #define F77_idamax_sub idamaxsub
|
|
Chris@202
|
365 #define F77_cswap cswap
|
|
Chris@202
|
366 #define F77_ccopy ccopy
|
|
Chris@202
|
367 #define F77_caxpy caxpy
|
|
Chris@202
|
368 #define F77_icamax_sub icamaxsub
|
|
Chris@202
|
369 #define F77_zswap zswap
|
|
Chris@202
|
370 #define F77_zcopy zcopy
|
|
Chris@202
|
371 #define F77_zaxpy zaxpy
|
|
Chris@202
|
372 #define F77_izamax_sub izamaxsub
|
|
Chris@202
|
373 #define F77_sdot_sub sdotsub
|
|
Chris@202
|
374 #define F77_ddot_sub ddotsub
|
|
Chris@202
|
375 #define F77_dsdot_sub dsdotsub
|
|
Chris@202
|
376 #define F77_sscal sscal
|
|
Chris@202
|
377 #define F77_dscal dscal
|
|
Chris@202
|
378 #define F77_cscal cscal
|
|
Chris@202
|
379 #define F77_zscal zscal
|
|
Chris@202
|
380 #define F77_csscal csscal
|
|
Chris@202
|
381 #define F77_zdscal zdscal
|
|
Chris@202
|
382 #define F77_cdotu_sub cdotusub
|
|
Chris@202
|
383 #define F77_cdotc_sub cdotcsub
|
|
Chris@202
|
384 #define F77_zdotu_sub zdotusub
|
|
Chris@202
|
385 #define F77_zdotc_sub zdotcsub
|
|
Chris@202
|
386 #define F77_snrm2_sub snrm2sub
|
|
Chris@202
|
387 #define F77_sasum_sub sasumsub
|
|
Chris@202
|
388 #define F77_dnrm2_sub dnrm2sub
|
|
Chris@202
|
389 #define F77_dasum_sub dasumsub
|
|
Chris@202
|
390 #define F77_scnrm2_sub scnrm2sub
|
|
Chris@202
|
391 #define F77_scasum_sub scasumsub
|
|
Chris@202
|
392 #define F77_dznrm2_sub dznrm2sub
|
|
Chris@202
|
393 #define F77_dzasum_sub dzasumsub
|
|
Chris@202
|
394 #define F77_sdsdot_sub sdsdotsub
|
|
Chris@202
|
395 /*
|
|
Chris@202
|
396 * Level 2 BLAS
|
|
Chris@202
|
397 */
|
|
Chris@202
|
398 #define F77_ssymv ssymv
|
|
Chris@202
|
399 #define F77_ssbmv ssbmv
|
|
Chris@202
|
400 #define F77_sspmv sspmv
|
|
Chris@202
|
401 #define F77_sger sger
|
|
Chris@202
|
402 #define F77_ssyr ssyr
|
|
Chris@202
|
403 #define F77_sspr sspr
|
|
Chris@202
|
404 #define F77_ssyr2 ssyr2
|
|
Chris@202
|
405 #define F77_sspr2 sspr2
|
|
Chris@202
|
406 #define F77_dsymv dsymv
|
|
Chris@202
|
407 #define F77_dsbmv dsbmv
|
|
Chris@202
|
408 #define F77_dspmv dspmv
|
|
Chris@202
|
409 #define F77_dger dger
|
|
Chris@202
|
410 #define F77_dsyr dsyr
|
|
Chris@202
|
411 #define F77_dspr dspr
|
|
Chris@202
|
412 #define F77_dsyr2 dsyr2
|
|
Chris@202
|
413 #define F77_dspr2 dspr2
|
|
Chris@202
|
414 #define F77_chemv chemv
|
|
Chris@202
|
415 #define F77_chbmv chbmv
|
|
Chris@202
|
416 #define F77_chpmv chpmv
|
|
Chris@202
|
417 #define F77_cgeru cgeru
|
|
Chris@202
|
418 #define F77_cgerc cgerc
|
|
Chris@202
|
419 #define F77_cher cher
|
|
Chris@202
|
420 #define F77_chpr chpr
|
|
Chris@202
|
421 #define F77_cher2 cher2
|
|
Chris@202
|
422 #define F77_chpr2 chpr2
|
|
Chris@202
|
423 #define F77_zhemv zhemv
|
|
Chris@202
|
424 #define F77_zhbmv zhbmv
|
|
Chris@202
|
425 #define F77_zhpmv zhpmv
|
|
Chris@202
|
426 #define F77_zgeru zgeru
|
|
Chris@202
|
427 #define F77_zgerc zgerc
|
|
Chris@202
|
428 #define F77_zher zher
|
|
Chris@202
|
429 #define F77_zhpr zhpr
|
|
Chris@202
|
430 #define F77_zher2 zher2
|
|
Chris@202
|
431 #define F77_zhpr2 zhpr2
|
|
Chris@202
|
432 #define F77_sgemv sgemv
|
|
Chris@202
|
433 #define F77_sgbmv sgbmv
|
|
Chris@202
|
434 #define F77_strmv strmv
|
|
Chris@202
|
435 #define F77_stbmv stbmv
|
|
Chris@202
|
436 #define F77_stpmv stpmv
|
|
Chris@202
|
437 #define F77_strsv strsv
|
|
Chris@202
|
438 #define F77_stbsv stbsv
|
|
Chris@202
|
439 #define F77_stpsv stpsv
|
|
Chris@202
|
440 #define F77_dgemv dgemv
|
|
Chris@202
|
441 #define F77_dgbmv dgbmv
|
|
Chris@202
|
442 #define F77_dtrmv dtrmv
|
|
Chris@202
|
443 #define F77_dtbmv dtbmv
|
|
Chris@202
|
444 #define F77_dtpmv dtpmv
|
|
Chris@202
|
445 #define F77_dtrsv dtrsv
|
|
Chris@202
|
446 #define F77_dtbsv dtbsv
|
|
Chris@202
|
447 #define F77_dtpsv dtpsv
|
|
Chris@202
|
448 #define F77_cgemv cgemv
|
|
Chris@202
|
449 #define F77_cgbmv cgbmv
|
|
Chris@202
|
450 #define F77_ctrmv ctrmv
|
|
Chris@202
|
451 #define F77_ctbmv ctbmv
|
|
Chris@202
|
452 #define F77_ctpmv ctpmv
|
|
Chris@202
|
453 #define F77_ctrsv ctrsv
|
|
Chris@202
|
454 #define F77_ctbsv ctbsv
|
|
Chris@202
|
455 #define F77_ctpsv ctpsv
|
|
Chris@202
|
456 #define F77_zgemv zgemv
|
|
Chris@202
|
457 #define F77_zgbmv zgbmv
|
|
Chris@202
|
458 #define F77_ztrmv ztrmv
|
|
Chris@202
|
459 #define F77_ztbmv ztbmv
|
|
Chris@202
|
460 #define F77_ztpmv ztpmv
|
|
Chris@202
|
461 #define F77_ztrsv ztrsv
|
|
Chris@202
|
462 #define F77_ztbsv ztbsv
|
|
Chris@202
|
463 #define F77_ztpsv ztpsv
|
|
Chris@202
|
464 /*
|
|
Chris@202
|
465 * Level 3 BLAS
|
|
Chris@202
|
466 */
|
|
Chris@202
|
467 #define F77_chemm chemm
|
|
Chris@202
|
468 #define F77_cherk cherk
|
|
Chris@202
|
469 #define F77_cher2k cher2k
|
|
Chris@202
|
470 #define F77_zhemm zhemm
|
|
Chris@202
|
471 #define F77_zherk zherk
|
|
Chris@202
|
472 #define F77_zher2k zher2k
|
|
Chris@202
|
473 #define F77_sgemm sgemm
|
|
Chris@202
|
474 #define F77_ssymm ssymm
|
|
Chris@202
|
475 #define F77_ssyrk ssyrk
|
|
Chris@202
|
476 #define F77_ssyr2k ssyr2k
|
|
Chris@202
|
477 #define F77_strmm strmm
|
|
Chris@202
|
478 #define F77_strsm strsm
|
|
Chris@202
|
479 #define F77_dgemm dgemm
|
|
Chris@202
|
480 #define F77_dsymm dsymm
|
|
Chris@202
|
481 #define F77_dsyrk dsyrk
|
|
Chris@202
|
482 #define F77_dsyr2k dsyr2k
|
|
Chris@202
|
483 #define F77_dtrmm dtrmm
|
|
Chris@202
|
484 #define F77_dtrsm dtrsm
|
|
Chris@202
|
485 #define F77_cgemm cgemm
|
|
Chris@202
|
486 #define F77_csymm csymm
|
|
Chris@202
|
487 #define F77_csyrk csyrk
|
|
Chris@202
|
488 #define F77_csyr2k csyr2k
|
|
Chris@202
|
489 #define F77_ctrmm ctrmm
|
|
Chris@202
|
490 #define F77_ctrsm ctrsm
|
|
Chris@202
|
491 #define F77_zgemm zgemm
|
|
Chris@202
|
492 #define F77_zsymm zsymm
|
|
Chris@202
|
493 #define F77_zsyrk zsyrk
|
|
Chris@202
|
494 #define F77_zsyr2k zsyr2k
|
|
Chris@202
|
495 #define F77_ztrmm ztrmm
|
|
Chris@202
|
496 #define F77_ztrsm ztrsm
|
|
Chris@202
|
497 #endif
|
|
Chris@202
|
498
|
|
Chris@202
|
499 #ifdef __cplusplus
|
|
Chris@202
|
500 extern "C" {
|
|
Chris@202
|
501 #endif
|
|
Chris@202
|
502
|
|
Chris@202
|
503 void F77_xerbla(FCHAR, void *);
|
|
Chris@202
|
504 /*
|
|
Chris@202
|
505 * Level 1 Fortran Prototypes
|
|
Chris@202
|
506 */
|
|
Chris@202
|
507
|
|
Chris@202
|
508 /* Single Precision */
|
|
Chris@202
|
509
|
|
Chris@202
|
510 void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
|
|
Chris@202
|
511 void F77_srotg(float *,float *,float *,float *);
|
|
Chris@202
|
512 void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
|
|
Chris@202
|
513 void F77_srotmg(float *,float *,float *,const float *, float *);
|
|
Chris@202
|
514 void F77_sswap( FINT, float *, FINT, float *, FINT);
|
|
Chris@202
|
515 void F77_scopy( FINT, const float *, FINT, float *, FINT);
|
|
Chris@202
|
516 void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT);
|
|
Chris@202
|
517 void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *);
|
|
Chris@202
|
518 void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *);
|
|
Chris@202
|
519 void F77_sscal( FINT, const float *, float *, FINT);
|
|
Chris@202
|
520 void F77_snrm2_sub( FINT, const float *, FINT, float *);
|
|
Chris@202
|
521 void F77_sasum_sub( FINT, const float *, FINT, float *);
|
|
Chris@202
|
522 void F77_isamax_sub( FINT, const float * , FINT, FINT2);
|
|
Chris@202
|
523
|
|
Chris@202
|
524 /* Double Precision */
|
|
Chris@202
|
525
|
|
Chris@202
|
526 void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
|
|
Chris@202
|
527 void F77_drotg(double *,double *,double *,double *);
|
|
Chris@202
|
528 void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
|
|
Chris@202
|
529 void F77_drotmg(double *,double *,double *,const double *, double *);
|
|
Chris@202
|
530 void F77_dswap( FINT, double *, FINT, double *, FINT);
|
|
Chris@202
|
531 void F77_dcopy( FINT, const double *, FINT, double *, FINT);
|
|
Chris@202
|
532 void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT);
|
|
Chris@202
|
533 void F77_dswap( FINT, double *, FINT, double *, FINT);
|
|
Chris@202
|
534 void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *);
|
|
Chris@202
|
535 void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *);
|
|
Chris@202
|
536 void F77_dscal( FINT, const double *, double *, FINT);
|
|
Chris@202
|
537 void F77_dnrm2_sub( FINT, const double *, FINT, double *);
|
|
Chris@202
|
538 void F77_dasum_sub( FINT, const double *, FINT, double *);
|
|
Chris@202
|
539 void F77_idamax_sub( FINT, const double * , FINT, FINT2);
|
|
Chris@202
|
540
|
|
Chris@202
|
541 /* Single Complex Precision */
|
|
Chris@202
|
542
|
|
Chris@202
|
543 void F77_cswap( FINT, void *, FINT, void *, FINT);
|
|
Chris@202
|
544 void F77_ccopy( FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
545 void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT);
|
|
Chris@202
|
546 void F77_cswap( FINT, void *, FINT, void *, FINT);
|
|
Chris@202
|
547 void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
Chris@202
|
548 void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
Chris@202
|
549 void F77_cscal( FINT, const void *, void *, FINT);
|
|
Chris@202
|
550 void F77_icamax_sub( FINT, const void *, FINT, FINT2);
|
|
Chris@202
|
551 void F77_csscal( FINT, const float *, void *, FINT);
|
|
Chris@202
|
552 void F77_scnrm2_sub( FINT, const void *, FINT, float *);
|
|
Chris@202
|
553 void F77_scasum_sub( FINT, const void *, FINT, float *);
|
|
Chris@202
|
554
|
|
Chris@202
|
555 /* Double Complex Precision */
|
|
Chris@202
|
556
|
|
Chris@202
|
557 void F77_zswap( FINT, void *, FINT, void *, FINT);
|
|
Chris@202
|
558 void F77_zcopy( FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
559 void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT);
|
|
Chris@202
|
560 void F77_zswap( FINT, void *, FINT, void *, FINT);
|
|
Chris@202
|
561 void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
Chris@202
|
562 void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
Chris@202
|
563 void F77_zdscal( FINT, const double *, void *, FINT);
|
|
Chris@202
|
564 void F77_zscal( FINT, const void *, void *, FINT);
|
|
Chris@202
|
565 void F77_dznrm2_sub( FINT, const void *, FINT, double *);
|
|
Chris@202
|
566 void F77_dzasum_sub( FINT, const void *, FINT, double *);
|
|
Chris@202
|
567 void F77_izamax_sub( FINT, const void *, FINT, FINT2);
|
|
Chris@202
|
568
|
|
Chris@202
|
569 /*
|
|
Chris@202
|
570 * Level 2 Fortran Prototypes
|
|
Chris@202
|
571 */
|
|
Chris@202
|
572
|
|
Chris@202
|
573 /* Single Precision */
|
|
Chris@202
|
574
|
|
Chris@202
|
575 void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
576 void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
577 void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
578 void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
579 void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
580 void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
|
|
Chris@202
|
581 void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
|
|
Chris@202
|
582 void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
|
|
Chris@202
|
583 void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
|
|
Chris@202
|
584 void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
|
|
Chris@202
|
585 void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
|
|
Chris@202
|
586 void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
|
|
Chris@202
|
587 void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
|
|
Chris@202
|
588 void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
|
|
Chris@202
|
589 void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *);
|
|
Chris@202
|
590 void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
|
|
Chris@202
|
591
|
|
Chris@202
|
592 /* Double Precision */
|
|
Chris@202
|
593
|
|
Chris@202
|
594 void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
595 void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
596 void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
597 void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
598 void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
599 void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
|
|
Chris@202
|
600 void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
|
|
Chris@202
|
601 void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
|
|
Chris@202
|
602 void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
|
|
Chris@202
|
603 void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
|
|
Chris@202
|
604 void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
|
|
Chris@202
|
605 void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
|
|
Chris@202
|
606 void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
|
|
Chris@202
|
607 void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
|
|
Chris@202
|
608 void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *);
|
|
Chris@202
|
609 void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
|
|
Chris@202
|
610
|
|
Chris@202
|
611 /* Single Complex Precision */
|
|
Chris@202
|
612
|
|
Chris@202
|
613 void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
614 void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
615 void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
616 void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
617 void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
618 void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
619 void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
620 void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
|
|
Chris@202
|
621 void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
622 void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
623 void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
|
|
Chris@202
|
624 void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
625 void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
626 void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT);
|
|
Chris@202
|
627 void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
628 void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *);
|
|
Chris@202
|
629 void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *);
|
|
Chris@202
|
630
|
|
Chris@202
|
631 /* Double Complex Precision */
|
|
Chris@202
|
632
|
|
Chris@202
|
633 void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
634 void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
635 void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
636 void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
637 void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
|
|
Chris@202
|
638 void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
639 void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
640 void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
|
|
Chris@202
|
641 void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
642 void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
643 void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
|
|
Chris@202
|
644 void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
645 void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
646 void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT);
|
|
Chris@202
|
647 void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
Chris@202
|
648 void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *);
|
|
Chris@202
|
649 void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *);
|
|
Chris@202
|
650
|
|
Chris@202
|
651 /*
|
|
Chris@202
|
652 * Level 3 Fortran Prototypes
|
|
Chris@202
|
653 */
|
|
Chris@202
|
654
|
|
Chris@202
|
655 /* Single Precision */
|
|
Chris@202
|
656
|
|
Chris@202
|
657 void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
658 void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
659 void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
660 void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
661 void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
Chris@202
|
662 void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
Chris@202
|
663
|
|
Chris@202
|
664 /* Double Precision */
|
|
Chris@202
|
665
|
|
Chris@202
|
666 void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
667 void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
668 void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
669 void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
670 void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
Chris@202
|
671 void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
Chris@202
|
672
|
|
Chris@202
|
673 /* Single Complex Precision */
|
|
Chris@202
|
674
|
|
Chris@202
|
675 void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
676 void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
677 void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
678 void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
679 void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
680 void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
681 void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
Chris@202
|
682 void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
Chris@202
|
683 void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
Chris@202
|
684
|
|
Chris@202
|
685 /* Double Complex Precision */
|
|
Chris@202
|
686
|
|
Chris@202
|
687 void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
688 void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
689 void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
690 void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
691 void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
692 void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
693 void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
Chris@202
|
694 void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
Chris@202
|
695 void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
Chris@202
|
696
|
|
Chris@202
|
697 #ifdef __cplusplus
|
|
Chris@202
|
698 }
|
|
Chris@202
|
699 #endif
|
|
Chris@202
|
700
|
|
Chris@202
|
701 #endif /* CBLAS_F77_H */
|
