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