18 #define BLAS_FORTRAN_STRLEN_END
23 #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
24 #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
25 #define F77_STRLEN(a) (_fcdlen)
30 #define F77_INT int64_t
32 #define F77_INT int32_t
37 #define FCHAR F77_CHAR
42 #define FINT const F77_INT *
43 #define FINT2 F77_INT *
49 #define F77_xerbla_base F77_GLOBAL(xerbla,XERBLA)
50 #define F77_srotg_base F77_GLOBAL(srotg,SROTG)
51 #define F77_srotmg_base F77_GLOBAL(srotmg,SROTMG)
52 #define F77_srot_base F77_GLOBAL(srot,SROT)
53 #define F77_srotm_base F77_GLOBAL(srotm,SROTM)
54 #define F77_drotg_base F77_GLOBAL(drotg,DROTG)
55 #define F77_drotmg_base F77_GLOBAL(drotmg,DROTMG)
56 #define F77_drot_base F77_GLOBAL(drot,DROT)
57 #define F77_drotm_base F77_GLOBAL(drotm,DROTM)
58 #define F77_sswap_base F77_GLOBAL(sswap,SSWAP)
59 #define F77_scopy_base F77_GLOBAL(scopy,SCOPY)
60 #define F77_saxpy_base F77_GLOBAL(saxpy,SAXPY)
61 #define F77_isamax_sub_base F77_GLOBAL(isamaxsub,ISAMAXSUB)
62 #define F77_dswap_base F77_GLOBAL(dswap,DSWAP)
63 #define F77_dcopy_base F77_GLOBAL(dcopy,DCOPY)
64 #define F77_daxpy_base F77_GLOBAL(daxpy,DAXPY)
65 #define F77_idamax_sub_base F77_GLOBAL(idamaxsub,IDAMAXSUB)
66 #define F77_cswap_base F77_GLOBAL(cswap,CSWAP)
67 #define F77_ccopy_base F77_GLOBAL(ccopy,CCOPY)
68 #define F77_caxpy_base F77_GLOBAL(caxpy,CAXPY)
69 #define F77_icamax_sub_base F77_GLOBAL(icamaxsub,ICAMAXSUB)
70 #define F77_zswap_base F77_GLOBAL(zswap,ZSWAP)
71 #define F77_zcopy_base F77_GLOBAL(zcopy,ZCOPY)
72 #define F77_zaxpy_base F77_GLOBAL(zaxpy,ZAXPY)
73 #define F77_izamax_sub_base F77_GLOBAL(izamaxsub,IZAMAXSUB)
74 #define F77_sdot_sub_base F77_GLOBAL(sdotsub,SDOTSUB)
75 #define F77_ddot_sub_base F77_GLOBAL(ddotsub,DDOTSUB)
76 #define F77_dsdot_sub_base F77_GLOBAL(dsdotsub,DSDOTSUB)
77 #define F77_sscal_base F77_GLOBAL(sscal,SSCAL)
78 #define F77_dscal_base F77_GLOBAL(dscal,DSCAL)
79 #define F77_cscal_base F77_GLOBAL(cscal,CSCAL)
80 #define F77_zscal_base F77_GLOBAL(zscal,ZSCAL)
81 #define F77_csscal_base F77_GLOBAL(csscal,CSSCAL)
82 #define F77_zdscal_base F77_GLOBAL(zdscal,ZDSCAL)
83 #define F77_cdotu_sub_base F77_GLOBAL(cdotusub,CDOTUSUB)
84 #define F77_cdotc_sub_base F77_GLOBAL(cdotcsub,CDOTCSUB)
85 #define F77_zdotu_sub_base F77_GLOBAL(zdotusub,ZDOTUSUB)
86 #define F77_zdotc_sub_base F77_GLOBAL(zdotcsub,ZDOTCSUB)
87 #define F77_snrm2_sub_base F77_GLOBAL(snrm2sub,SNRM2SUB)
88 #define F77_sasum_sub_base F77_GLOBAL(sasumsub,SASUMSUB)
89 #define F77_dnrm2_sub_base F77_GLOBAL(dnrm2sub,DNRM2SUB)
90 #define F77_dasum_sub_base F77_GLOBAL(dasumsub,DASUMSUB)
91 #define F77_scnrm2_sub_base F77_GLOBAL(scnrm2sub,SCNRM2SUB)
92 #define F77_scasum_sub_base F77_GLOBAL(scasumsub,SCASUMSUB)
93 #define F77_dznrm2_sub_base F77_GLOBAL(dznrm2sub,DZNRM2SUB)
94 #define F77_dzasum_sub_base F77_GLOBAL(dzasumsub,DZASUMSUB)
95 #define F77_sdsdot_sub_base F77_GLOBAL(sdsdotsub,SDSDOTSUB)
99 #define F77_ssymv_base F77_GLOBAL(ssymv,SSYMV)
100 #define F77_ssbmv_base F77_GLOBAL(ssbmv,SSBMV)
101 #define F77_sspmv_base F77_GLOBAL(sspmv,SSPMV)
102 #define F77_sger_base F77_GLOBAL(sger,SGER)
103 #define F77_ssyr_base F77_GLOBAL(ssyr,SSYR)
104 #define F77_sspr_base F77_GLOBAL(sspr,SSPR)
105 #define F77_ssyr2_base F77_GLOBAL(ssyr2,SSYR2)
106 #define F77_sspr2_base F77_GLOBAL(sspr2,SSPR2)
107 #define F77_dsymv_base F77_GLOBAL(dsymv,DSYMV)
108 #define F77_dsbmv_base F77_GLOBAL(dsbmv,DSBMV)
109 #define F77_dspmv_base F77_GLOBAL(dspmv,DSPMV)
110 #define F77_dger_base F77_GLOBAL(dger,DGER)
111 #define F77_dsyr_base F77_GLOBAL(dsyr,DSYR)
112 #define F77_dspr_base F77_GLOBAL(dspr,DSPR)
113 #define F77_dsyr2_base F77_GLOBAL(dsyr2,DSYR2)
114 #define F77_dspr2_base F77_GLOBAL(dspr2,DSPR2)
115 #define F77_chemv_base F77_GLOBAL(chemv,CHEMV)
116 #define F77_chbmv_base F77_GLOBAL(chbmv,CHBMV)
117 #define F77_chpmv_base F77_GLOBAL(chpmv,CHPMV)
118 #define F77_cgeru_base F77_GLOBAL(cgeru,CGERU)
119 #define F77_cgerc_base F77_GLOBAL(cgerc,CGERC)
120 #define F77_cher_base F77_GLOBAL(cher,CHER)
121 #define F77_chpr_base F77_GLOBAL(chpr,CHPR)
122 #define F77_cher2_base F77_GLOBAL(cher2,CHER2)
123 #define F77_chpr2_base F77_GLOBAL(chpr2,CHPR2)
124 #define F77_zhemv_base F77_GLOBAL(zhemv,ZHEMV)
125 #define F77_zhbmv_base F77_GLOBAL(zhbmv,ZHBMV)
126 #define F77_zhpmv_base F77_GLOBAL(zhpmv,ZHPMV)
127 #define F77_zgeru_base F77_GLOBAL(zgeru,ZGERU)
128 #define F77_zgerc_base F77_GLOBAL(zgerc,ZGERC)
129 #define F77_zher_base F77_GLOBAL(zher,ZHER)
130 #define F77_zhpr_base F77_GLOBAL(zhpr,ZHPR)
131 #define F77_zher2_base F77_GLOBAL(zher2,ZHER2)
132 #define F77_zhpr2_base F77_GLOBAL(zhpr2,ZHPR2)
133 #define F77_sgemv_base F77_GLOBAL(sgemv,SGEMV)
134 #define F77_sgbmv_base F77_GLOBAL(sgbmv,SGBMV)
135 #define F77_strmv_base F77_GLOBAL(strmv,STRMV)
136 #define F77_stbmv_base F77_GLOBAL(stbmv,STBMV)
137 #define F77_stpmv_base F77_GLOBAL(stpmv,STPMV)
138 #define F77_strsv_base F77_GLOBAL(strsv,STRSV)
139 #define F77_stbsv_base F77_GLOBAL(stbsv,STBSV)
140 #define F77_stpsv_base F77_GLOBAL(stpsv,STPSV)
141 #define F77_dgemv_base F77_GLOBAL(dgemv,DGEMV)
142 #define F77_dgbmv_base F77_GLOBAL(dgbmv,DGBMV)
143 #define F77_dtrmv_base F77_GLOBAL(dtrmv,DTRMV)
144 #define F77_dtbmv_base F77_GLOBAL(dtbmv,DTBMV)
145 #define F77_dtpmv_base F77_GLOBAL(dtpmv,DTPMV)
146 #define F77_dtrsv_base F77_GLOBAL(dtrsv,DTRSV)
147 #define F77_dtbsv_base F77_GLOBAL(dtbsv,DTBSV)
148 #define F77_dtpsv_base F77_GLOBAL(dtpsv,DTPSV)
149 #define F77_cgemv_base F77_GLOBAL(cgemv,CGEMV)
150 #define F77_cgbmv_base F77_GLOBAL(cgbmv,CGBMV)
151 #define F77_ctrmv_base F77_GLOBAL(ctrmv,CTRMV)
152 #define F77_ctbmv_base F77_GLOBAL(ctbmv,CTBMV)
153 #define F77_ctpmv_base F77_GLOBAL(ctpmv,CTPMV)
154 #define F77_ctrsv_base F77_GLOBAL(ctrsv,CTRSV)
155 #define F77_ctbsv_base F77_GLOBAL(ctbsv,CTBSV)
156 #define F77_ctpsv_base F77_GLOBAL(ctpsv,CTPSV)
157 #define F77_zgemv_base F77_GLOBAL(zgemv,ZGEMV)
158 #define F77_zgbmv_base F77_GLOBAL(zgbmv,ZGBMV)
159 #define F77_ztrmv_base F77_GLOBAL(ztrmv,ZTRMV)
160 #define F77_ztbmv_base F77_GLOBAL(ztbmv,ZTBMV)
161 #define F77_ztpmv_base F77_GLOBAL(ztpmv,ZTPMV)
162 #define F77_ztrsv_base F77_GLOBAL(ztrsv,ZTRSV)
163 #define F77_ztbsv_base F77_GLOBAL(ztbsv,ZTBSV)
164 #define F77_ztpsv_base F77_GLOBAL(ztpsv,ZTPSV)
168 #define F77_chemm_base F77_GLOBAL(chemm,CHEMM)
169 #define F77_cherk_base F77_GLOBAL(cherk,CHERK)
170 #define F77_cher2k_base F77_GLOBAL(cher2k,CHER2K)
171 #define F77_zhemm_base F77_GLOBAL(zhemm,ZHEMM)
172 #define F77_zherk_base F77_GLOBAL(zherk,ZHERK)
173 #define F77_zher2k_base F77_GLOBAL(zher2k,ZHER2K)
174 #define F77_sgemm_base F77_GLOBAL(sgemm,SGEMM)
175 #define F77_ssymm_base F77_GLOBAL(ssymm,SSYMM)
176 #define F77_ssyrk_base F77_GLOBAL(ssyrk,SSYRK)
177 #define F77_ssyr2k_base F77_GLOBAL(ssyr2k,SSYR2K)
178 #define F77_strmm_base F77_GLOBAL(strmm,STRMM)
179 #define F77_strsm_base F77_GLOBAL(strsm,STRSM)
180 #define F77_dgemm_base F77_GLOBAL(dgemm,DGEMM)
181 #define F77_dsymm_base F77_GLOBAL(dsymm,DSYMM)
182 #define F77_dsyrk_base F77_GLOBAL(dsyrk,DSYRK)
183 #define F77_dsyr2k_base F77_GLOBAL(dsyr2k,DSYR2K)
184 #define F77_dtrmm_base F77_GLOBAL(dtrmm,DTRMM)
185 #define F77_dtrsm_base F77_GLOBAL(dtrsm,DTRSM)
186 #define F77_cgemm_base F77_GLOBAL(cgemm,CGEMM)
187 #define F77_csymm_base F77_GLOBAL(csymm,CSYMM)
188 #define F77_csyrk_base F77_GLOBAL(csyrk,CSYRK)
189 #define F77_csyr2k_base F77_GLOBAL(csyr2k,CSYR2K)
190 #define F77_ctrmm_base F77_GLOBAL(ctrmm,CTRMM)
191 #define F77_ctrsm_base F77_GLOBAL(ctrsm,CTRSM)
192 #define F77_zgemm_base F77_GLOBAL(zgemm,ZGEMM)
193 #define F77_zsymm_base F77_GLOBAL(zsymm,ZSYMM)
194 #define F77_zsyrk_base F77_GLOBAL(zsyrk,ZSYRK)
195 #define F77_zsyr2k_base F77_GLOBAL(zsyr2k,ZSYR2K)
196 #define F77_ztrmm_base F77_GLOBAL(ztrmm,ZTRMM)
197 #define F77_ztrsm_base F77_GLOBAL(ztrsm,ZTRSM)
205 #define F77_srot(...) F77_srot_base(__VA_ARGS__)
206 #define F77_srotg(...) F77_srotg_base(__VA_ARGS__)
207 #define F77_srotm(...) F77_srotm_base(__VA_ARGS__)
208 #define F77_srotmg(...) F77_srotmg_base(__VA_ARGS__)
209 #define F77_sswap(...) F77_sswap_base(__VA_ARGS__)
210 #define F77_scopy(...) F77_scopy_base(__VA_ARGS__)
211 #define F77_saxpy(...) F77_saxpy_base(__VA_ARGS__)
212 #define F77_sdot_sub(...) F77_sdot_sub_base(__VA_ARGS__)
213 #define F77_sdsdot_sub(...) F77_sdsdot_sub_base(__VA_ARGS__)
214 #define F77_sscal(...) F77_sscal_base(__VA_ARGS__)
215 #define F77_snrm2_sub(...) F77_snrm2_sub_base(__VA_ARGS__)
216 #define F77_sasum_sub(...) F77_sasum_sub_base(__VA_ARGS__)
217 #define F77_isamax_sub(...) F77_isamax_sub_base(__VA_ARGS__)
221 #define F77_drot(...) F77_drot_base(__VA_ARGS__)
222 #define F77_drotg(...) F77_drotg_base(__VA_ARGS__)
223 #define F77_drotm(...) F77_drotm_base(__VA_ARGS__)
224 #define F77_drotmg(...) F77_drotmg_base(__VA_ARGS__)
225 #define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
226 #define F77_dcopy(...) F77_dcopy_base(__VA_ARGS__)
227 #define F77_daxpy(...) F77_daxpy_base(__VA_ARGS__)
228 #define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
229 #define F77_dsdot_sub(...) F77_dsdot_sub_base(__VA_ARGS__)
230 #define F77_ddot_sub(...) F77_ddot_sub_base(__VA_ARGS__)
231 #define F77_dscal(...) F77_dscal_base(__VA_ARGS__)
232 #define F77_dnrm2_sub(...) F77_dnrm2_sub_base(__VA_ARGS__)
233 #define F77_dasum_sub(...) F77_dasum_sub_base(__VA_ARGS__)
234 #define F77_idamax_sub(...) F77_idamax_sub_base(__VA_ARGS__)
238 #define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
239 #define F77_ccopy(...) F77_ccopy_base(__VA_ARGS__)
240 #define F77_caxpy(...) F77_caxpy_base(__VA_ARGS__)
241 #define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
242 #define F77_cdotc_sub(...) F77_cdotc_sub_base(__VA_ARGS__)
243 #define F77_cdotu_sub(...) F77_cdotu_sub_base(__VA_ARGS__)
244 #define F77_cscal(...) F77_cscal_base(__VA_ARGS__)
245 #define F77_icamax_sub(...) F77_icamax_sub_base(__VA_ARGS__)
246 #define F77_csscal(...) F77_csscal_base(__VA_ARGS__)
247 #define F77_scnrm2_sub(...) F77_scnrm2_sub_base(__VA_ARGS__)
248 #define F77_scasum_sub(...) F77_scasum_sub_base(__VA_ARGS__)
252 #define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
253 #define F77_zcopy(...) F77_zcopy_base(__VA_ARGS__)
254 #define F77_zaxpy(...) F77_zaxpy_base(__VA_ARGS__)
255 #define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
256 #define F77_zdotc_sub(...) F77_zdotc_sub_base(__VA_ARGS__)
257 #define F77_zdotu_sub(...) F77_zdotu_sub_base(__VA_ARGS__)
258 #define F77_zdscal(...) F77_zdscal_base(__VA_ARGS__)
259 #define F77_zscal(...) F77_zscal_base(__VA_ARGS__)
260 #define F77_dznrm2_sub(...) F77_dznrm2_sub_base(__VA_ARGS__)
261 #define F77_dzasum_sub(...) F77_dzasum_sub_base(__VA_ARGS__)
262 #define F77_izamax_sub(...) F77_izamax_sub_base(__VA_ARGS__)
268 #define F77_sger(...) F77_sger_base(__VA_ARGS__)
269 #define F77_dger(...) F77_dger_base(__VA_ARGS__)
270 #define F77_cgerc(...) F77_cgerc_base(__VA_ARGS__)
271 #define F77_cgeru(...) F77_cgeru_base(__VA_ARGS__)
272 #define F77_zgerc(...) F77_zgerc_base(__VA_ARGS__)
273 #define F77_zgeru(...) F77_zgeru_base(__VA_ARGS__)
275 #ifdef BLAS_FORTRAN_STRLEN_END
283 #define F77_sgemv(...) F77_sgemv_base(__VA_ARGS__, 1)
284 #define F77_sgbmv(...) F77_sgbmv_base(__VA_ARGS__, 1)
285 #define F77_ssymv(...) F77_ssymv_base(__VA_ARGS__, 1)
286 #define F77_ssbmv(...) F77_ssbmv_base(__VA_ARGS__, 1)
287 #define F77_sspmv(...) F77_sspmv_base(__VA_ARGS__, 1)
288 #define F77_strmv(...) F77_strmv_base(__VA_ARGS__, 1, 1, 1)
289 #define F77_stbmv(...) F77_stbmv_base(__VA_ARGS__, 1, 1, 1)
290 #define F77_strsv(...) F77_strsv_base(__VA_ARGS__, 1, 1, 1)
291 #define F77_stbsv(...) F77_stbsv_base(__VA_ARGS__, 1, 1, 1)
292 #define F77_stpmv(...) F77_stpmv_base(__VA_ARGS__, 1, 1, 1)
293 #define F77_stpsv(...) F77_stpsv_base(__VA_ARGS__, 1, 1, 1)
294 #define F77_ssyr(...) F77_ssyr_base(__VA_ARGS__, 1)
295 #define F77_sspr(...) F77_sspr_base(__VA_ARGS__, 1)
296 #define F77_sspr2(...) F77_sspr2_base(__VA_ARGS__, 1)
297 #define F77_ssyr2(...) F77_ssyr2_base(__VA_ARGS__, 1)
301 #define F77_dgemv(...) F77_dgemv_base(__VA_ARGS__, 1)
302 #define F77_dgbmv(...) F77_dgbmv_base(__VA_ARGS__, 1)
303 #define F77_dsymv(...) F77_dsymv_base(__VA_ARGS__, 1)
304 #define F77_dsbmv(...) F77_dsbmv_base(__VA_ARGS__, 1)
305 #define F77_dspmv(...) F77_dspmv_base(__VA_ARGS__, 1)
306 #define F77_dtrmv(...) F77_dtrmv_base(__VA_ARGS__, 1, 1, 1)
307 #define F77_dtbmv(...) F77_dtbmv_base(__VA_ARGS__, 1, 1, 1)
308 #define F77_dtrsv(...) F77_dtrsv_base(__VA_ARGS__, 1, 1, 1)
309 #define F77_dtbsv(...) F77_dtbsv_base(__VA_ARGS__, 1, 1, 1)
310 #define F77_dtpmv(...) F77_dtpmv_base(__VA_ARGS__, 1, 1, 1)
311 #define F77_dtpsv(...) F77_dtpsv_base(__VA_ARGS__, 1, 1, 1)
312 #define F77_dsyr(...) F77_dsyr_base(__VA_ARGS__, 1)
313 #define F77_dspr(...) F77_dspr_base(__VA_ARGS__, 1)
314 #define F77_dspr2(...) F77_dspr2_base(__VA_ARGS__, 1)
315 #define F77_dsyr2(...) F77_dsyr2_base(__VA_ARGS__, 1)
319 #define F77_cgemv(...) F77_cgemv_base(__VA_ARGS__, 1)
320 #define F77_cgbmv(...) F77_cgbmv_base(__VA_ARGS__, 1)
321 #define F77_chemv(...) F77_chemv_base(__VA_ARGS__, 1)
322 #define F77_chbmv(...) F77_chbmv_base(__VA_ARGS__, 1)
323 #define F77_chpmv(...) F77_chpmv_base(__VA_ARGS__, 1)
324 #define F77_ctrmv(...) F77_ctrmv_base(__VA_ARGS__, 1, 1, 1)
325 #define F77_ctbmv(...) F77_ctbmv_base(__VA_ARGS__, 1, 1, 1)
326 #define F77_ctpmv(...) F77_ctpmv_base(__VA_ARGS__, 1, 1, 1)
327 #define F77_ctrsv(...) F77_ctrsv_base(__VA_ARGS__, 1, 1, 1)
328 #define F77_ctbsv(...) F77_ctbsv_base(__VA_ARGS__, 1, 1, 1)
329 #define F77_ctpsv(...) F77_ctpsv_base(__VA_ARGS__, 1, 1, 1)
330 #define F77_cher(...) F77_cher_base(__VA_ARGS__, 1)
331 #define F77_cher2(...) F77_cher2_base(__VA_ARGS__, 1)
332 #define F77_chpr(...) F77_chpr_base(__VA_ARGS__, 1)
333 #define F77_chpr2(...) F77_chpr2_base(__VA_ARGS__, 1)
337 #define F77_zgemv(...) F77_zgemv_base(__VA_ARGS__, 1)
338 #define F77_zgbmv(...) F77_zgbmv_base(__VA_ARGS__, 1)
339 #define F77_zhemv(...) F77_zhemv_base(__VA_ARGS__, 1)
340 #define F77_zhbmv(...) F77_zhbmv_base(__VA_ARGS__, 1)
341 #define F77_zhpmv(...) F77_zhpmv_base(__VA_ARGS__, 1)
342 #define F77_ztrmv(...) F77_ztrmv_base(__VA_ARGS__, 1, 1, 1)
343 #define F77_ztbmv(...) F77_ztbmv_base(__VA_ARGS__, 1, 1, 1)
344 #define F77_ztpmv(...) F77_ztpmv_base(__VA_ARGS__, 1, 1, 1)
345 #define F77_ztrsv(...) F77_ztrsv_base(__VA_ARGS__, 1, 1, 1)
346 #define F77_ztbsv(...) F77_ztbsv_base(__VA_ARGS__, 1, 1, 1)
347 #define F77_ztpsv(...) F77_ztpsv_base(__VA_ARGS__, 1, 1, 1)
348 #define F77_zher(...) F77_zher_base(__VA_ARGS__, 1)
349 #define F77_zher2(...) F77_zher2_base(__VA_ARGS__, 1)
350 #define F77_zhpr(...) F77_zhpr_base(__VA_ARGS__, 1)
351 #define F77_zhpr2(...) F77_zhpr2_base(__VA_ARGS__, 1)
359 #define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__, 1, 1)
360 #define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__, 1, 1)
361 #define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__, 1, 1)
362 #define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__, 1, 1)
363 #define F77_strmm(...) F77_strmm_base(__VA_ARGS__, 1, 1, 1, 1)
364 #define F77_strsm(...) F77_strsm_base(__VA_ARGS__, 1, 1, 1, 1)
368 #define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__, 1, 1)
369 #define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__, 1, 1)
370 #define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__, 1, 1)
371 #define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__, 1, 1)
372 #define F77_dtrmm(...) F77_dtrmm_base(__VA_ARGS__, 1, 1, 1, 1)
373 #define F77_dtrsm(...) F77_dtrsm_base(__VA_ARGS__, 1, 1, 1, 1)
377 #define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__, 1, 1)
378 #define F77_csymm(...) F77_csymm_base(__VA_ARGS__, 1, 1)
379 #define F77_chemm(...) F77_chemm_base(__VA_ARGS__, 1, 1)
380 #define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__, 1, 1)
381 #define F77_cherk(...) F77_cherk_base(__VA_ARGS__, 1, 1)
382 #define F77_csyr2k(...) F77_csyr2k_base(__VA_ARGS__, 1, 1)
383 #define F77_cher2k(...) F77_cher2k_base(__VA_ARGS__, 1, 1)
384 #define F77_ctrmm(...) F77_ctrmm_base(__VA_ARGS__, 1, 1, 1, 1)
385 #define F77_ctrsm(...) F77_ctrsm_base(__VA_ARGS__, 1, 1, 1, 1)
389 #define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__, 1, 1)
390 #define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__, 1, 1)
391 #define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__, 1, 1)
392 #define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__, 1, 1)
393 #define F77_zherk(...) F77_zherk_base(__VA_ARGS__, 1, 1)
394 #define F77_zsyr2k(...) F77_zsyr2k_base(__VA_ARGS__, 1, 1)
395 #define F77_zher2k(...) F77_zher2k_base(__VA_ARGS__, 1, 1)
396 #define F77_ztrmm(...) F77_ztrmm_base(__VA_ARGS__, 1, 1, 1, 1)
397 #define F77_ztrsm(...) F77_ztrsm_base(__VA_ARGS__, 1, 1, 1, 1)
407 #define F77_sgemv(...) F77_sgemv_base(__VA_ARGS__)
408 #define F77_sgbmv(...) F77_sgbmv_base(__VA_ARGS__)
409 #define F77_ssymv(...) F77_ssymv_base(__VA_ARGS__)
410 #define F77_ssbmv(...) F77_ssbmv_base(__VA_ARGS__)
411 #define F77_sspmv(...) F77_sspmv_base(__VA_ARGS__)
412 #define F77_strmv(...) F77_strmv_base(__VA_ARGS__)
413 #define F77_stbmv(...) F77_stbmv_base(__VA_ARGS__)
414 #define F77_strsv(...) F77_strsv_base(__VA_ARGS__)
415 #define F77_stbsv(...) F77_stbsv_base(__VA_ARGS__)
416 #define F77_stpmv(...) F77_stpmv_base(__VA_ARGS__)
417 #define F77_stpsv(...) F77_stpsv_base(__VA_ARGS__)
418 #define F77_ssyr(...) F77_ssyr_base(__VA_ARGS__)
419 #define F77_sspr(...) F77_sspr_base(__VA_ARGS__)
420 #define F77_sspr2(...) F77_sspr2_base(__VA_ARGS__)
421 #define F77_ssyr2(...) F77_ssyr2_base(__VA_ARGS__)
425 #define F77_dgemv(...) F77_dgemv_base(__VA_ARGS__)
426 #define F77_dgbmv(...) F77_dgbmv_base(__VA_ARGS__)
427 #define F77_dsymv(...) F77_dsymv_base(__VA_ARGS__)
428 #define F77_dsbmv(...) F77_dsbmv_base(__VA_ARGS__)
429 #define F77_dspmv(...) F77_dspmv_base(__VA_ARGS__)
430 #define F77_dtrmv(...) F77_dtrmv_base(__VA_ARGS__)
431 #define F77_dtbmv(...) F77_dtbmv_base(__VA_ARGS__)
432 #define F77_dtrsv(...) F77_dtrsv_base(__VA_ARGS__)
433 #define F77_dtbsv(...) F77_dtbsv_base(__VA_ARGS__)
434 #define F77_dtpmv(...) F77_dtpmv_base(__VA_ARGS__)
435 #define F77_dtpsv(...) F77_dtpsv_base(__VA_ARGS__)
436 #define F77_dsyr(...) F77_dsyr_base(__VA_ARGS__)
437 #define F77_dspr(...) F77_dspr_base(__VA_ARGS__)
438 #define F77_dspr2(...) F77_dspr2_base(__VA_ARGS__)
439 #define F77_dsyr2(...) F77_dsyr2_base(__VA_ARGS__)
443 #define F77_cgemv(...) F77_cgemv_base(__VA_ARGS__)
444 #define F77_cgbmv(...) F77_cgbmv_base(__VA_ARGS__)
445 #define F77_chemv(...) F77_chemv_base(__VA_ARGS__)
446 #define F77_chbmv(...) F77_chbmv_base(__VA_ARGS__)
447 #define F77_chpmv(...) F77_chpmv_base(__VA_ARGS__)
448 #define F77_ctrmv(...) F77_ctrmv_base(__VA_ARGS__)
449 #define F77_ctbmv(...) F77_ctbmv_base(__VA_ARGS__)
450 #define F77_ctpmv(...) F77_ctpmv_base(__VA_ARGS__)
451 #define F77_ctrsv(...) F77_ctrsv_base(__VA_ARGS__)
452 #define F77_ctbsv(...) F77_ctbsv_base(__VA_ARGS__)
453 #define F77_ctpsv(...) F77_ctpsv_base(__VA_ARGS__)
454 #define F77_cher(...) F77_cher_base(__VA_ARGS__)
455 #define F77_cher2(...) F77_cher2_base(__VA_ARGS__)
456 #define F77_chpr(...) F77_chpr_base(__VA_ARGS__)
457 #define F77_chpr2(...) F77_chpr2_base(__VA_ARGS__)
461 #define F77_zgemv(...) F77_zgemv_base(__VA_ARGS__)
462 #define F77_zgbmv(...) F77_zgbmv_base(__VA_ARGS__)
463 #define F77_zhemv(...) F77_zhemv_base(__VA_ARGS__)
464 #define F77_zhbmv(...) F77_zhbmv_base(__VA_ARGS__)
465 #define F77_zhpmv(...) F77_zhpmv_base(__VA_ARGS__)
466 #define F77_ztrmv(...) F77_ztrmv_base(__VA_ARGS__)
467 #define F77_ztbmv(...) F77_ztbmv_base(__VA_ARGS__)
468 #define F77_ztpmv(...) F77_ztpmv_base(__VA_ARGS__)
469 #define F77_ztrsv(...) F77_ztrsv_base(__VA_ARGS__)
470 #define F77_ztbsv(...) F77_ztbsv_base(__VA_ARGS__)
471 #define F77_ztpsv(...) F77_ztpsv_base(__VA_ARGS__)
472 #define F77_zher(...) F77_zher_base(__VA_ARGS__)
473 #define F77_zher2(...) F77_zher2_base(__VA_ARGS__)
474 #define F77_zhpr(...) F77_zhpr_base(__VA_ARGS__)
475 #define F77_zhpr2(...) F77_zhpr2_base(__VA_ARGS__)
483 #define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__)
484 #define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__)
485 #define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__)
486 #define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__)
487 #define F77_strmm(...) F77_strmm_base(__VA_ARGS__)
488 #define F77_strsm(...) F77_strsm_base(__VA_ARGS__)
492 #define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__)
493 #define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__)
494 #define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__)
495 #define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__)
496 #define F77_dtrmm(...) F77_dtrmm_base(__VA_ARGS__)
497 #define F77_dtrsm(...) F77_dtrsm_base(__VA_ARGS__)
501 #define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__)
502 #define F77_csymm(...) F77_csymm_base(__VA_ARGS__)
503 #define F77_chemm(...) F77_chemm_base(__VA_ARGS__)
504 #define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__)
505 #define F77_cherk(...) F77_cherk_base(__VA_ARGS__)
506 #define F77_csyr2k(...) F77_csyr2k_base(__VA_ARGS__)
507 #define F77_cher2k(...) F77_cher2k_base(__VA_ARGS__)
508 #define F77_ctrmm(...) F77_ctrmm_base(__VA_ARGS__)
509 #define F77_ctrsm(...) F77_ctrsm_base(__VA_ARGS__)
513 #define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__)
514 #define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__)
515 #define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__)
516 #define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__)
517 #define F77_zherk(...) F77_zherk_base(__VA_ARGS__)
518 #define F77_zsyr2k(...) F77_zsyr2k_base(__VA_ARGS__)
519 #define F77_zher2k(...) F77_zher2k_base(__VA_ARGS__)
520 #define F77_ztrmm(...) F77_ztrmm_base(__VA_ARGS__)
521 #define F77_ztrsm(...) F77_ztrsm_base(__VA_ARGS__)
533 #ifdef BLAS_FORTRAN_STRLEN_END
534 #define F77_xerbla(...) F77_xerbla_base(__VA_ARGS__, 1)
536 #define F77_xerbla(...) F77_xerbla_base(__VA_ARGS__)
538 void F77_xerbla_base(FCHAR,
void *
539 #ifdef BLAS_FORTRAN_STRLEN_END
549 void F77_srot_base(FINT,
float *, FINT,
float *, FINT,
const float *,
const float *);
550 void F77_srotg_base(
float *,
float *,
float *,
float *);
551 void F77_srotm_base( FINT,
float *, FINT,
float *, FINT,
const float *);
552 void F77_srotmg_base(
float *,
float *,
float *,
const float *,
float *);
553 void F77_sswap_base( FINT,
float *, FINT,
float *, FINT);
554 void F77_scopy_base( FINT,
const float *, FINT,
float *, FINT);
555 void F77_saxpy_base( FINT,
const float *,
const float *, FINT,
float *, FINT);
556 void F77_sdot_sub_base(FINT,
const float *, FINT,
const float *, FINT,
float *);
557 void F77_sdsdot_sub_base( FINT,
const float *,
const float *, FINT,
const float *, FINT,
float *);
558 void F77_sscal_base( FINT,
const float *,
float *, FINT);
559 void F77_snrm2_sub_base( FINT,
const float *, FINT,
float *);
560 void F77_sasum_sub_base( FINT,
const float *, FINT,
float *);
561 void F77_isamax_sub_base( FINT,
const float * , FINT, FINT2);
565 void F77_drot_base(FINT,
double *, FINT,
double *, FINT,
const double *,
const double *);
566 void F77_drotg_base(
double *,
double *,
double *,
double *);
567 void F77_drotm_base( FINT,
double *, FINT,
double *, FINT,
const double *);
568 void F77_drotmg_base(
double *,
double *,
double *,
const double *,
double *);
569 void F77_dswap_base( FINT,
double *, FINT,
double *, FINT);
570 void F77_dcopy_base( FINT,
const double *, FINT,
double *, FINT);
571 void F77_daxpy_base( FINT,
const double *,
const double *, FINT,
double *, FINT);
572 void F77_dswap_base( FINT,
double *, FINT,
double *, FINT);
573 void F77_dsdot_sub_base(FINT,
const float *, FINT,
const float *, FINT,
double *);
574 void F77_ddot_sub_base( FINT,
const double *, FINT,
const double *, FINT,
double *);
575 void F77_dscal_base( FINT,
const double *,
double *, FINT);
576 void F77_dnrm2_sub_base( FINT,
const double *, FINT,
double *);
577 void F77_dasum_sub_base( FINT,
const double *, FINT,
double *);
578 void F77_idamax_sub_base( FINT,
const double * , FINT, FINT2);
582 void F77_cswap_base( FINT,
void *, FINT,
void *, FINT);
583 void F77_ccopy_base( FINT,
const void *, FINT,
void *, FINT);
584 void F77_caxpy_base( FINT,
const void *,
const void *, FINT,
void *, FINT);
585 void F77_cswap_base( FINT,
void *, FINT,
void *, FINT);
586 void F77_cdotc_sub_base( FINT,
const void *, FINT,
const void *, FINT,
void *);
587 void F77_cdotu_sub_base( FINT,
const void *, FINT,
const void *, FINT,
void *);
588 void F77_cscal_base( FINT,
const void *,
void *, FINT);
589 void F77_icamax_sub_base( FINT,
const void *, FINT, FINT2);
590 void F77_csscal_base( FINT,
const float *,
void *, FINT);
591 void F77_scnrm2_sub_base( FINT,
const void *, FINT,
float *);
592 void F77_scasum_sub_base( FINT,
const void *, FINT,
float *);
596 void F77_zswap_base( FINT,
void *, FINT,
void *, FINT);
597 void F77_zcopy_base( FINT,
const void *, FINT,
void *, FINT);
598 void F77_zaxpy_base( FINT,
const void *,
const void *, FINT,
void *, FINT);
599 void F77_zswap_base( FINT,
void *, FINT,
void *, FINT);
600 void F77_zdotc_sub_base( FINT,
const void *, FINT,
const void *, FINT,
void *);
601 void F77_zdotu_sub_base( FINT,
const void *, FINT,
const void *, FINT,
void *);
602 void F77_zdscal_base( FINT,
const double *,
void *, FINT);
603 void F77_zscal_base( FINT,
const void *,
void *, FINT);
604 void F77_dznrm2_sub_base( FINT,
const void *, FINT,
double *);
605 void F77_dzasum_sub_base( FINT,
const void *, FINT,
double *);
606 void F77_izamax_sub_base( FINT,
const void *, FINT, FINT2);
614 void F77_sgemv_base(FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
615 #ifdef BLAS_FORTRAN_STRLEN_END
619 void F77_sgbmv_base(FCHAR, FINT, FINT, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
620 #ifdef BLAS_FORTRAN_STRLEN_END
624 void F77_ssymv_base(FCHAR, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
625 #ifdef BLAS_FORTRAN_STRLEN_END
629 void F77_ssbmv_base(FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
630 #ifdef BLAS_FORTRAN_STRLEN_END
634 void F77_sspmv_base(FCHAR, FINT,
const float *,
const float *,
const float *, FINT,
const float *,
float *, FINT
635 #ifdef BLAS_FORTRAN_STRLEN_END
639 void F77_strmv_base(FCHAR, FCHAR, FCHAR, FINT,
const float *, FINT,
float *, FINT
640 #ifdef BLAS_FORTRAN_STRLEN_END
641 ,
size_t,
size_t,
size_t
644 void F77_stbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const float *, FINT,
float *, FINT
645 #ifdef BLAS_FORTRAN_STRLEN_END
646 ,
size_t,
size_t,
size_t
649 void F77_strsv_base(FCHAR, FCHAR, FCHAR, FINT,
const float *, FINT,
float *, FINT
650 #ifdef BLAS_FORTRAN_STRLEN_END
651 ,
size_t,
size_t,
size_t
654 void F77_stbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const float *, FINT,
float *, FINT
655 #ifdef BLAS_FORTRAN_STRLEN_END
656 ,
size_t,
size_t,
size_t
659 void F77_stpmv_base(FCHAR, FCHAR, FCHAR, FINT,
const float *,
float *, FINT
660 #ifdef BLAS_FORTRAN_STRLEN_END
661 ,
size_t,
size_t,
size_t
664 void F77_stpsv_base(FCHAR, FCHAR, FCHAR, FINT,
const float *,
float *, FINT
665 #ifdef BLAS_FORTRAN_STRLEN_END
666 ,
size_t,
size_t,
size_t
669 void F77_sger_base( FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
float *, FINT);
670 void F77_ssyr_base(FCHAR, FINT,
const float *,
const float *, FINT,
float *, FINT
671 #ifdef BLAS_FORTRAN_STRLEN_END
675 void F77_sspr_base(FCHAR, FINT,
const float *,
const float *, FINT,
float *
676 #ifdef BLAS_FORTRAN_STRLEN_END
680 void F77_sspr2_base(FCHAR, FINT,
const float *,
const float *, FINT,
const float *, FINT,
float *
681 #ifdef BLAS_FORTRAN_STRLEN_END
685 void F77_ssyr2_base(FCHAR, FINT,
const float *,
const float *, FINT,
const float *, FINT,
float *, FINT
686 #ifdef BLAS_FORTRAN_STRLEN_END
693 void F77_dgemv_base(FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
694 #ifdef BLAS_FORTRAN_STRLEN_END
698 void F77_dgbmv_base(FCHAR, FINT, FINT, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
699 #ifdef BLAS_FORTRAN_STRLEN_END
703 void F77_dsymv_base(FCHAR, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
704 #ifdef BLAS_FORTRAN_STRLEN_END
708 void F77_dsbmv_base(FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
709 #ifdef BLAS_FORTRAN_STRLEN_END
713 void F77_dspmv_base(FCHAR, FINT,
const double *,
const double *,
const double *, FINT,
const double *,
double *, FINT
714 #ifdef BLAS_FORTRAN_STRLEN_END
718 void F77_dtrmv_base(FCHAR, FCHAR, FCHAR, FINT,
const double *, FINT,
double *, FINT
719 #ifdef BLAS_FORTRAN_STRLEN_END
720 ,
size_t,
size_t,
size_t
723 void F77_dtbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const double *, FINT,
double *, FINT
724 #ifdef BLAS_FORTRAN_STRLEN_END
725 ,
size_t,
size_t,
size_t
728 void F77_dtrsv_base(FCHAR, FCHAR, FCHAR, FINT,
const double *, FINT,
double *, FINT
729 #ifdef BLAS_FORTRAN_STRLEN_END
730 ,
size_t,
size_t,
size_t
733 void F77_dtbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const double *, FINT,
double *, FINT
734 #ifdef BLAS_FORTRAN_STRLEN_END
735 ,
size_t,
size_t,
size_t
738 void F77_dtpmv_base(FCHAR, FCHAR, FCHAR, FINT,
const double *,
double *, FINT
739 #ifdef BLAS_FORTRAN_STRLEN_END
740 ,
size_t,
size_t,
size_t
743 void F77_dtpsv_base(FCHAR, FCHAR, FCHAR, FINT,
const double *,
double *, FINT
744 #ifdef BLAS_FORTRAN_STRLEN_END
745 ,
size_t,
size_t,
size_t
748 void F77_dger_base( FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
double *, FINT);
749 void F77_dsyr_base(FCHAR, FINT,
const double *,
const double *, FINT,
double *, FINT
750 #ifdef BLAS_FORTRAN_STRLEN_END
754 void F77_dspr_base(FCHAR, FINT,
const double *,
const double *, FINT,
double *
755 #ifdef BLAS_FORTRAN_STRLEN_END
759 void F77_dspr2_base(FCHAR, FINT,
const double *,
const double *, FINT,
const double *, FINT,
double *
760 #ifdef BLAS_FORTRAN_STRLEN_END
764 void F77_dsyr2_base(FCHAR, FINT,
const double *,
const double *, FINT,
const double *, FINT,
double *, FINT
765 #ifdef BLAS_FORTRAN_STRLEN_END
772 void F77_cgemv_base(FCHAR, FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
773 #ifdef BLAS_FORTRAN_STRLEN_END
777 void F77_cgbmv_base(FCHAR, FINT, FINT, FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
778 #ifdef BLAS_FORTRAN_STRLEN_END
782 void F77_chemv_base(FCHAR, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
783 #ifdef BLAS_FORTRAN_STRLEN_END
787 void F77_chbmv_base(FCHAR, FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
788 #ifdef BLAS_FORTRAN_STRLEN_END
792 void F77_chpmv_base(FCHAR, FINT,
const void *,
const void *,
const void *, FINT,
const void *,
void *, FINT
793 #ifdef BLAS_FORTRAN_STRLEN_END
797 void F77_ctrmv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *, FINT,
void *, FINT
798 #ifdef BLAS_FORTRAN_STRLEN_END
799 ,
size_t,
size_t,
size_t
802 void F77_ctbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const void *, FINT,
void *, FINT
803 #ifdef BLAS_FORTRAN_STRLEN_END
804 ,
size_t,
size_t,
size_t
807 void F77_ctpmv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *,
void *, FINT
808 #ifdef BLAS_FORTRAN_STRLEN_END
809 ,
size_t,
size_t,
size_t
812 void F77_ctrsv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *, FINT,
void *, FINT
813 #ifdef BLAS_FORTRAN_STRLEN_END
814 ,
size_t,
size_t,
size_t
817 void F77_ctbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const void *, FINT,
void *, FINT
818 #ifdef BLAS_FORTRAN_STRLEN_END
819 ,
size_t,
size_t,
size_t
822 void F77_ctpsv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *,
void *,FINT
823 #ifdef BLAS_FORTRAN_STRLEN_END
824 ,
size_t,
size_t,
size_t
827 void F77_cgerc_base( FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
void *, FINT);
828 void F77_cgeru_base( FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
void *, FINT);
829 void F77_cher_base(FCHAR, FINT,
const float *,
const void *, FINT,
void *, FINT
830 #ifdef BLAS_FORTRAN_STRLEN_END
834 void F77_cher2_base(FCHAR, FINT,
const void *,
const void *, FINT,
const void *, FINT,
void *, FINT
835 #ifdef BLAS_FORTRAN_STRLEN_END
839 void F77_chpr_base(FCHAR, FINT,
const float *,
const void *, FINT,
void *
840 #ifdef BLAS_FORTRAN_STRLEN_END
844 void F77_chpr2_base(FCHAR, FINT,
const float *,
const void *, FINT,
const void *, FINT,
void *
845 #ifdef BLAS_FORTRAN_STRLEN_END
852 void F77_zgemv_base(FCHAR, FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
853 #ifdef BLAS_FORTRAN_STRLEN_END
857 void F77_zgbmv_base(FCHAR, FINT, FINT, FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
858 #ifdef BLAS_FORTRAN_STRLEN_END
862 void F77_zhemv_base(FCHAR, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
863 #ifdef BLAS_FORTRAN_STRLEN_END
867 void F77_zhbmv_base(FCHAR, FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
const void *,
void *, FINT
868 #ifdef BLAS_FORTRAN_STRLEN_END
872 void F77_zhpmv_base(FCHAR, FINT,
const void *,
const void *,
const void *, FINT,
const void *,
void *, FINT
873 #ifdef BLAS_FORTRAN_STRLEN_END
877 void F77_ztrmv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *, FINT,
void *, FINT
878 #ifdef BLAS_FORTRAN_STRLEN_END
879 ,
size_t,
size_t,
size_t
882 void F77_ztbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const void *, FINT,
void *, FINT
883 #ifdef BLAS_FORTRAN_STRLEN_END
884 ,
size_t,
size_t,
size_t
887 void F77_ztpmv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *,
void *, FINT
888 #ifdef BLAS_FORTRAN_STRLEN_END
889 ,
size_t,
size_t,
size_t
892 void F77_ztrsv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *, FINT,
void *, FINT
893 #ifdef BLAS_FORTRAN_STRLEN_END
894 ,
size_t,
size_t,
size_t
897 void F77_ztbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT,
const void *, FINT,
void *, FINT
898 #ifdef BLAS_FORTRAN_STRLEN_END
899 ,
size_t,
size_t,
size_t
902 void F77_ztpsv_base(FCHAR, FCHAR, FCHAR, FINT,
const void *,
void *,FINT
903 #ifdef BLAS_FORTRAN_STRLEN_END
904 ,
size_t,
size_t,
size_t
907 void F77_zgerc_base( FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
void *, FINT);
908 void F77_zgeru_base( FINT, FINT,
const void *,
const void *, FINT,
const void *, FINT,
void *, FINT);
909 void F77_zher_base(FCHAR, FINT,
const double *,
const void *, FINT,
void *, FINT
910 #ifdef BLAS_FORTRAN_STRLEN_END
914 void F77_zher2_base(FCHAR, FINT,
const void *,
const void *, FINT,
const void *, FINT,
void *, FINT
915 #ifdef BLAS_FORTRAN_STRLEN_END
919 void F77_zhpr_base(FCHAR, FINT,
const double *,
const void *, FINT,
void *
920 #ifdef BLAS_FORTRAN_STRLEN_END
924 void F77_zhpr2_base(FCHAR, FINT,
const double *,
const void *, FINT,
const void *, FINT,
void *
925 #ifdef BLAS_FORTRAN_STRLEN_END
936 void F77_sgemm_base(FCHAR, FCHAR, FINT, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
937 #ifdef BLAS_FORTRAN_STRLEN_END
941 void F77_ssymm_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
942 #ifdef BLAS_FORTRAN_STRLEN_END
946 void F77_ssyrk_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *,
float *, FINT
947 #ifdef BLAS_FORTRAN_STRLEN_END
951 void F77_ssyr2k_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
952 #ifdef BLAS_FORTRAN_STRLEN_END
956 void F77_strmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
float *, FINT
957 #ifdef BLAS_FORTRAN_STRLEN_END
958 ,
size_t,
size_t,
size_t,
size_t
961 void F77_strsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
float *, FINT
962 #ifdef BLAS_FORTRAN_STRLEN_END
963 ,
size_t,
size_t,
size_t,
size_t
969 void F77_dgemm_base(FCHAR, FCHAR, FINT, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
970 #ifdef BLAS_FORTRAN_STRLEN_END
974 void F77_dsymm_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
975 #ifdef BLAS_FORTRAN_STRLEN_END
979 void F77_dsyrk_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *,
double *, FINT
980 #ifdef BLAS_FORTRAN_STRLEN_END
984 void F77_dsyr2k_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
985 #ifdef BLAS_FORTRAN_STRLEN_END
989 void F77_dtrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
double *, FINT
990 #ifdef BLAS_FORTRAN_STRLEN_END
991 ,
size_t,
size_t,
size_t,
size_t
994 void F77_dtrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
double *, FINT
995 #ifdef BLAS_FORTRAN_STRLEN_END
996 ,
size_t,
size_t,
size_t,
size_t
1002 void F77_cgemm_base(FCHAR, FCHAR, FINT, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
1003 #ifdef BLAS_FORTRAN_STRLEN_END
1007 void F77_csymm_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
1008 #ifdef BLAS_FORTRAN_STRLEN_END
1012 void F77_chemm_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
1013 #ifdef BLAS_FORTRAN_STRLEN_END
1017 void F77_csyrk_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *,
float *, FINT
1018 #ifdef BLAS_FORTRAN_STRLEN_END
1022 void F77_cherk_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *,
float *, FINT
1023 #ifdef BLAS_FORTRAN_STRLEN_END
1027 void F77_csyr2k_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
1028 #ifdef BLAS_FORTRAN_STRLEN_END
1032 void F77_cher2k_base(FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
const float *, FINT,
const float *,
float *, FINT
1033 #ifdef BLAS_FORTRAN_STRLEN_END
1037 void F77_ctrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
float *, FINT
1038 #ifdef BLAS_FORTRAN_STRLEN_END
1039 ,
size_t,
size_t,
size_t,
size_t
1042 void F77_ctrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const float *,
const float *, FINT,
float *, FINT
1043 #ifdef BLAS_FORTRAN_STRLEN_END
1044 ,
size_t,
size_t,
size_t,
size_t
1050 void F77_zgemm_base(FCHAR, FCHAR, FINT, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
1051 #ifdef BLAS_FORTRAN_STRLEN_END
1055 void F77_zsymm_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
1056 #ifdef BLAS_FORTRAN_STRLEN_END
1060 void F77_zhemm_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
1061 #ifdef BLAS_FORTRAN_STRLEN_END
1065 void F77_zsyrk_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *,
double *, FINT
1066 #ifdef BLAS_FORTRAN_STRLEN_END
1070 void F77_zherk_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *,
double *, FINT
1071 #ifdef BLAS_FORTRAN_STRLEN_END
1075 void F77_zsyr2k_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
1076 #ifdef BLAS_FORTRAN_STRLEN_END
1080 void F77_zher2k_base(FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
const double *, FINT,
const double *,
double *, FINT
1081 #ifdef BLAS_FORTRAN_STRLEN_END
1085 void F77_ztrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
double *, FINT
1086 #ifdef BLAS_FORTRAN_STRLEN_END
1087 ,
size_t,
size_t,
size_t,
size_t
1090 void F77_ztrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT,
const double *,
const double *, FINT,
double *, FINT
1091 #ifdef BLAS_FORTRAN_STRLEN_END
1092 ,
size_t,
size_t,
size_t,
size_t