LAPACK  3.8.0
LAPACK: Linear Algebra PACKage
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 #ifndef CBLAS_F77_H
10 #define CBLAS_F77_H
11 
12 #ifdef CRAY
13  #include <fortran.h>
14  #define F77_CHAR _fcd
15  #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
16  #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
17  #define F77_STRLEN(a) (_fcdlen)
18 #endif
19 
20 #ifdef WeirdNEC
21  #define F77_INT long
22 #endif
23 
24 #ifdef F77_CHAR
25  #define FCHAR F77_CHAR
26 #else
27  #define FCHAR char *
28 #endif
29 
30 #ifdef F77_INT
31  #define FINT const F77_INT *
32  #define FINT2 F77_INT *
33 #else
34  #define FINT const int *
35  #define FINT2 int *
36 #endif
37 
38 /*
39  * Level 1 BLAS
40  */
41 
42 #define F77_xerbla F77_GLOBAL(xerbla,XERBLA)
43 #define F77_srotg F77_GLOBAL(srotg,SROTG)
44 #define F77_srotmg F77_GLOBAL(srotmg,SROTMG)
45 #define F77_srot F77_GLOBAL(srot,SROT)
46 #define F77_srotm F77_GLOBAL(srotm,SROTM)
47 #define F77_drotg F77_GLOBAL(drotg,DROTG)
48 #define F77_drotmg F77_GLOBAL(drotmg,DROTMG)
49 #define F77_drot F77_GLOBAL(drot,DROT)
50 #define F77_drotm F77_GLOBAL(drotm,DROTM)
51 #define F77_sswap F77_GLOBAL(sswap,SSWAP)
52 #define F77_scopy F77_GLOBAL(scopy,SCOPY)
53 #define F77_saxpy F77_GLOBAL(saxpy,SAXPY)
54 #define F77_isamax_sub F77_GLOBAL(isamaxsub,ISAMAXSUB)
55 #define F77_dswap F77_GLOBAL(dswap,DSWAP)
56 #define F77_dcopy F77_GLOBAL(dcopy,DCOPY)
57 #define F77_daxpy F77_GLOBAL(daxpy,DAXPY)
58 #define F77_idamax_sub F77_GLOBAL(idamaxsub,IDAMAXSUB)
59 #define F77_cswap F77_GLOBAL(cswap,CSWAP)
60 #define F77_ccopy F77_GLOBAL(ccopy,CCOPY)
61 #define F77_caxpy F77_GLOBAL(caxpy,CAXPY)
62 #define F77_icamax_sub F77_GLOBAL(icamaxsub,ICAMAXSUB)
63 #define F77_zswap F77_GLOBAL(zswap,ZSWAP)
64 #define F77_zcopy F77_GLOBAL(zcopy,ZCOPY)
65 #define F77_zaxpy F77_GLOBAL(zaxpy,ZAXPY)
66 #define F77_izamax_sub F77_GLOBAL(izamaxsub,IZAMAXSUB)
67 #define F77_sdot_sub F77_GLOBAL(sdotsub,SDOTSUB)
68 #define F77_ddot_sub F77_GLOBAL(ddotsub,DDOTSUB)
69 #define F77_dsdot_sub F77_GLOBAL(dsdotsub,DSDOTSUB)
70 #define F77_sscal F77_GLOBAL(sscal,SSCAL)
71 #define F77_dscal F77_GLOBAL(dscal,DSCAL)
72 #define F77_cscal F77_GLOBAL(cscal,CSCAL)
73 #define F77_zscal F77_GLOBAL(zscal,ZSCAL)
74 #define F77_csscal F77_GLOBAL(csscal,CSSCAL)
75 #define F77_zdscal F77_GLOBAL(zdscal,ZDSCAL)
76 #define F77_cdotu_sub F77_GLOBAL(cdotusub,CDOTUSUB)
77 #define F77_cdotc_sub F77_GLOBAL(cdotcsub,CDOTCSUB)
78 #define F77_zdotu_sub F77_GLOBAL(zdotusub,ZDOTUSUB)
79 #define F77_zdotc_sub F77_GLOBAL(zdotcsub,ZDOTCSUB)
80 #define F77_snrm2_sub F77_GLOBAL(snrm2sub,SNRM2SUB)
81 #define F77_sasum_sub F77_GLOBAL(sasumsub,SASUMSUB)
82 #define F77_dnrm2_sub F77_GLOBAL(dnrm2sub,DNRM2SUB)
83 #define F77_dasum_sub F77_GLOBAL(dasumsub,DASUMSUB)
84 #define F77_scnrm2_sub F77_GLOBAL(scnrm2sub,SCNRM2SUB)
85 #define F77_scasum_sub F77_GLOBAL(scasumsub,SCASUMSUB)
86 #define F77_dznrm2_sub F77_GLOBAL(dznrm2sub,DZNRM2SUB)
87 #define F77_dzasum_sub F77_GLOBAL(dzasumsub,DZASUMSUB)
88 #define F77_sdsdot_sub F77_GLOBAL(sdsdotsub,SDSDOTSUB)
89 /*
90  * Level 2 BLAS
91  */
92 #define F77_ssymv F77_GLOBAL(ssymv,SSYMV)
93 #define F77_ssbmv F77_GLOBAL(ssbmv,SSBMV)
94 #define F77_sspmv F77_GLOBAL(sspmv,SSPMV)
95 #define F77_sger F77_GLOBAL(sger,SGER)
96 #define F77_ssyr F77_GLOBAL(ssyr,SSYR)
97 #define F77_sspr F77_GLOBAL(sspr,SSPR)
98 #define F77_ssyr2 F77_GLOBAL(ssyr2,SSYR2)
99 #define F77_sspr2 F77_GLOBAL(sspr2,SSPR2)
100 #define F77_dsymv F77_GLOBAL(dsymv,DSYMV)
101 #define F77_dsbmv F77_GLOBAL(dsbmv,DSBMV)
102 #define F77_dspmv F77_GLOBAL(dspmv,DSPMV)
103 #define F77_dger F77_GLOBAL(dger,DGER)
104 #define F77_dsyr F77_GLOBAL(dsyr,DSYR)
105 #define F77_dspr F77_GLOBAL(dspr,DSPR)
106 #define F77_dsyr2 F77_GLOBAL(dsyr2,DSYR2)
107 #define F77_dspr2 F77_GLOBAL(dspr2,DSPR2)
108 #define F77_chemv F77_GLOBAL(chemv,CHEMV)
109 #define F77_chbmv F77_GLOBAL(chbmv,CHBMV)
110 #define F77_chpmv F77_GLOBAL(chpmv,CHPMV)
111 #define F77_cgeru F77_GLOBAL(cgeru,CGERU)
112 #define F77_cgerc F77_GLOBAL(cgerc,CGERC)
113 #define F77_cher F77_GLOBAL(cher,CHER)
114 #define F77_chpr F77_GLOBAL(chpr,CHPR)
115 #define F77_cher2 F77_GLOBAL(cher2,CHER2)
116 #define F77_chpr2 F77_GLOBAL(chpr2,CHPR2)
117 #define F77_zhemv F77_GLOBAL(zhemv,ZHEMV)
118 #define F77_zhbmv F77_GLOBAL(zhbmv,ZHBMV)
119 #define F77_zhpmv F77_GLOBAL(zhpmv,ZHPMV)
120 #define F77_zgeru F77_GLOBAL(zgeru,ZGERU)
121 #define F77_zgerc F77_GLOBAL(zgerc,ZGERC)
122 #define F77_zher F77_GLOBAL(zher,ZHER)
123 #define F77_zhpr F77_GLOBAL(zhpr,ZHPR)
124 #define F77_zher2 F77_GLOBAL(zher2,ZHER2)
125 #define F77_zhpr2 F77_GLOBAL(zhpr2,ZHPR2)
126 #define F77_sgemv F77_GLOBAL(sgemv,SGEMV)
127 #define F77_sgbmv F77_GLOBAL(sgbmv,SGBMV)
128 #define F77_strmv F77_GLOBAL(strmv,STRMV)
129 #define F77_stbmv F77_GLOBAL(stbmv,STBMV)
130 #define F77_stpmv F77_GLOBAL(stpmv,STPMV)
131 #define F77_strsv F77_GLOBAL(strsv,STRSV)
132 #define F77_stbsv F77_GLOBAL(stbsv,STBSV)
133 #define F77_stpsv F77_GLOBAL(stpsv,STPSV)
134 #define F77_dgemv F77_GLOBAL(dgemv,DGEMV)
135 #define F77_dgbmv F77_GLOBAL(dgbmv,DGBMV)
136 #define F77_dtrmv F77_GLOBAL(dtrmv,DTRMV)
137 #define F77_dtbmv F77_GLOBAL(dtbmv,DTBMV)
138 #define F77_dtpmv F77_GLOBAL(dtpmv,DTPMV)
139 #define F77_dtrsv F77_GLOBAL(dtrsv,DTRSV)
140 #define F77_dtbsv F77_GLOBAL(dtbsv,DTBSV)
141 #define F77_dtpsv F77_GLOBAL(dtpsv,DTPSV)
142 #define F77_cgemv F77_GLOBAL(cgemv,CGEMV)
143 #define F77_cgbmv F77_GLOBAL(cgbmv,CGBMV)
144 #define F77_ctrmv F77_GLOBAL(ctrmv,CTRMV)
145 #define F77_ctbmv F77_GLOBAL(ctbmv,CTBMV)
146 #define F77_ctpmv F77_GLOBAL(ctpmv,CTPMV)
147 #define F77_ctrsv F77_GLOBAL(ctrsv,CTRSV)
148 #define F77_ctbsv F77_GLOBAL(ctbsv,CTBSV)
149 #define F77_ctpsv F77_GLOBAL(ctpsv,CTPSV)
150 #define F77_zgemv F77_GLOBAL(zgemv,ZGEMV)
151 #define F77_zgbmv F77_GLOBAL(zgbmv,ZGBMV)
152 #define F77_ztrmv F77_GLOBAL(ztrmv,ZTRMV)
153 #define F77_ztbmv F77_GLOBAL(ztbmv,ZTBMV)
154 #define F77_ztpmv F77_GLOBAL(ztpmv,ZTPMV)
155 #define F77_ztrsv F77_GLOBAL(ztrsv,ZTRSV)
156 #define F77_ztbsv F77_GLOBAL(ztbsv,ZTBSV)
157 #define F77_ztpsv F77_GLOBAL(ztpsv,ZTPSV)
158 /*
159  * Level 3 BLAS
160  */
161 #define F77_chemm F77_GLOBAL(chemm,CHEMM)
162 #define F77_cherk F77_GLOBAL(cherk,CHERK)
163 #define F77_cher2k F77_GLOBAL(cher2k,CHER2K)
164 #define F77_zhemm F77_GLOBAL(zhemm,ZHEMM)
165 #define F77_zherk F77_GLOBAL(zherk,ZHERK)
166 #define F77_zher2k F77_GLOBAL(zher2k,ZHER2K)
167 #define F77_sgemm F77_GLOBAL(sgemm,SGEMM)
168 #define F77_ssymm F77_GLOBAL(ssymm,SSYMM)
169 #define F77_ssyrk F77_GLOBAL(ssyrk,SSYRK)
170 #define F77_ssyr2k F77_GLOBAL(ssyr2k,SSYR2K)
171 #define F77_strmm F77_GLOBAL(strmm,STRMM)
172 #define F77_strsm F77_GLOBAL(strsm,STRSM)
173 #define F77_dgemm F77_GLOBAL(dgemm,DGEMM)
174 #define F77_dsymm F77_GLOBAL(dsymm,DSYMM)
175 #define F77_dsyrk F77_GLOBAL(dsyrk,DSYRK)
176 #define F77_dsyr2k F77_GLOBAL(dsyr2k,DSYR2K)
177 #define F77_dtrmm F77_GLOBAL(dtrmm,DTRMM)
178 #define F77_dtrsm F77_GLOBAL(dtrsm,DTRSM)
179 #define F77_cgemm F77_GLOBAL(cgemm,CGEMM)
180 #define F77_csymm F77_GLOBAL(csymm,CSYMM)
181 #define F77_csyrk F77_GLOBAL(csyrk,CSYRK)
182 #define F77_csyr2k F77_GLOBAL(csyr2k,CSYR2K)
183 #define F77_ctrmm F77_GLOBAL(ctrmm,CTRMM)
184 #define F77_ctrsm F77_GLOBAL(ctrsm,CTRSM)
185 #define F77_zgemm F77_GLOBAL(zgemm,ZGEMM)
186 #define F77_zsymm F77_GLOBAL(zsymm,ZSYMM)
187 #define F77_zsyrk F77_GLOBAL(zsyrk,ZSYRK)
188 #define F77_zsyr2k F77_GLOBAL(zsyr2k,ZSYR2K)
189 #define F77_ztrmm F77_GLOBAL(ztrmm,ZTRMM)
190 #define F77_ztrsm F77_GLOBAL(ztrsm,ZTRSM)
191 
192 #ifdef __cplusplus
193 extern "C" {
194 #endif
195 
196 void F77_xerbla(FCHAR, void *);
197 /*
198  * Level 1 Fortran Prototypes
199  */
200 
201 /* Single Precision */
202 
203  void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
204  void F77_srotg(float *,float *,float *,float *);
205  void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
206  void F77_srotmg(float *,float *,float *,const float *, float *);
207  void F77_sswap( FINT, float *, FINT, float *, FINT);
208  void F77_scopy( FINT, const float *, FINT, float *, FINT);
209  void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT);
210  void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *);
211  void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *);
212  void F77_sscal( FINT, const float *, float *, FINT);
213  void F77_snrm2_sub( FINT, const float *, FINT, float *);
214  void F77_sasum_sub( FINT, const float *, FINT, float *);
215  void F77_isamax_sub( FINT, const float * , FINT, FINT2);
216 
217 /* Double Precision */
218 
219  void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
220  void F77_drotg(double *,double *,double *,double *);
221  void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
222  void F77_drotmg(double *,double *,double *,const double *, double *);
223  void F77_dswap( FINT, double *, FINT, double *, FINT);
224  void F77_dcopy( FINT, const double *, FINT, double *, FINT);
225  void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT);
226  void F77_dswap( FINT, double *, FINT, double *, FINT);
227  void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *);
228  void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *);
229  void F77_dscal( FINT, const double *, double *, FINT);
230  void F77_dnrm2_sub( FINT, const double *, FINT, double *);
231  void F77_dasum_sub( FINT, const double *, FINT, double *);
232  void F77_idamax_sub( FINT, const double * , FINT, FINT2);
233 
234 /* Single Complex Precision */
235 
236  void F77_cswap( FINT, void *, FINT, void *, FINT);
237  void F77_ccopy( FINT, const void *, FINT, void *, FINT);
238  void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT);
239  void F77_cswap( FINT, void *, FINT, void *, FINT);
240  void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
241  void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
242  void F77_cscal( FINT, const void *, void *, FINT);
243  void F77_icamax_sub( FINT, const void *, FINT, FINT2);
244  void F77_csscal( FINT, const float *, void *, FINT);
245  void F77_scnrm2_sub( FINT, const void *, FINT, float *);
246  void F77_scasum_sub( FINT, const void *, FINT, float *);
247 
248 /* Double Complex Precision */
249 
250  void F77_zswap( FINT, void *, FINT, void *, FINT);
251  void F77_zcopy( FINT, const void *, FINT, void *, FINT);
252  void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT);
253  void F77_zswap( FINT, void *, FINT, void *, FINT);
254  void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
255  void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
256  void F77_zdscal( FINT, const double *, void *, FINT);
257  void F77_zscal( FINT, const void *, void *, FINT);
258  void F77_dznrm2_sub( FINT, const void *, FINT, double *);
259  void F77_dzasum_sub( FINT, const void *, FINT, double *);
260  void F77_izamax_sub( FINT, const void *, FINT, FINT2);
261 
262 /*
263  * Level 2 Fortran Prototypes
264  */
265 
266 /* Single Precision */
267 
268  void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
269  void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
270  void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
271  void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
272  void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT);
273  void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
274  void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
275  void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
276  void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
277  void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
278  void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
279  void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
280  void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
281  void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
282  void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *);
283  void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
284 
285 /* Double Precision */
286 
287  void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
288  void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
289  void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
290  void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
291  void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT);
292  void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
293  void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
294  void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
295  void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
296  void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
297  void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
298  void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
299  void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
300  void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
301  void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *);
302  void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
303 
304 /* Single Complex Precision */
305 
306  void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
307  void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
308  void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
309  void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
310  void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
311  void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
312  void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
313  void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
314  void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
315  void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
316  void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
317  void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
318  void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
319  void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT);
320  void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
321  void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *);
322  void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *);
323 
324 /* Double Complex Precision */
325 
326  void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
327  void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
328  void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
329  void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
330  void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
331  void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
332  void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
333  void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
334  void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
335  void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
336  void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
337  void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
338  void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
339  void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT);
340  void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
341  void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *);
342  void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *);
343 
344 /*
345  * Level 3 Fortran Prototypes
346  */
347 
348 /* Single Precision */
349 
350  void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
351  void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
352  void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
353  void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
354  void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
355  void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
356 
357 /* Double Precision */
358 
359  void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
360  void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
361  void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
362  void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
363  void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
364  void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
365 
366 /* Single Complex Precision */
367 
368  void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
369  void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
370  void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
371  void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
372  void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
373  void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
374  void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
375  void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
376  void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
377 
378 /* Double Complex Precision */
379 
380  void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
381  void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
382  void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
383  void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
384  void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
385  void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
386  void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
387  void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
388  void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
389 
390 #ifdef __cplusplus
391 }
392 #endif
393 
394 #endif /* CBLAS_F77_H */
#define F77_zhemm
Definition: cblas_f77.h:164
#define F77_strsm
Definition: cblas_f77.h:172
#define F77_chpmv
Definition: cblas_f77.h:110
#define F77_stpmv
Definition: cblas_f77.h:130
#define F77_srotm
Definition: cblas_f77.h:46
#define F77_cgeru
Definition: cblas_f77.h:111
#define F77_ztrsv
Definition: cblas_f77.h:155
#define F77_ssyrk
Definition: cblas_f77.h:169
#define F77_zsyr2k
Definition: cblas_f77.h:188
#define F77_dsyrk
Definition: cblas_f77.h:175
#define F77_drotg
Definition: cblas_f77.h:47
#define F77_caxpy
Definition: cblas_f77.h:61
#define F77_ctrmv
Definition: cblas_f77.h:144
#define F77_dzasum_sub
Definition: cblas_f77.h:87
#define F77_dgemm
Definition: cblas_f77.h:173
#define F77_zgemv
Definition: cblas_f77.h:150
#define F77_ctbmv
Definition: cblas_f77.h:145
#define F77_sspmv
Definition: cblas_f77.h:94
#define F77_dtrsv
Definition: cblas_f77.h:139
#define F77_dswap
Definition: cblas_f77.h:55
#define F77_cdotc_sub
Definition: cblas_f77.h:77
#define F77_ztrsm
Definition: cblas_f77.h:190
#define F77_dnrm2_sub
Definition: cblas_f77.h:82
#define F77_ssbmv
Definition: cblas_f77.h:93
#define F77_chpr2
Definition: cblas_f77.h:116
#define F77_cgemm
Definition: cblas_f77.h:179
#define F77_dtpsv
Definition: cblas_f77.h:141
#define FCHAR
Definition: cblas_f77.h:27
#define F77_zhpr
Definition: cblas_f77.h:123
#define F77_dspr2
Definition: cblas_f77.h:107
#define FINT
Definition: cblas_f77.h:34
#define F77_dgemv
Definition: cblas_f77.h:134
#define F77_drot
Definition: cblas_f77.h:49
#define F77_sscal
Definition: cblas_f77.h:70
#define F77_dtrmm
Definition: cblas_f77.h:177
#define F77_ssyr2k
Definition: cblas_f77.h:170
#define F77_chemv
Definition: cblas_f77.h:108
#define F77_daxpy
Definition: cblas_f77.h:57
#define F77_ddot_sub
Definition: cblas_f77.h:68
#define F77_sswap
Definition: cblas_f77.h:51
#define F77_chemm
Definition: cblas_f77.h:161
#define FINT2
Definition: cblas_f77.h:35
#define F77_ctrsv
Definition: cblas_f77.h:147
#define F77_sger
Definition: cblas_f77.h:95
#define F77_strmv
Definition: cblas_f77.h:128
#define F77_sspr
Definition: cblas_f77.h:97
#define F77_strmm
Definition: cblas_f77.h:171
#define F77_dznrm2_sub
Definition: cblas_f77.h:86
#define F77_zsymm
Definition: cblas_f77.h:186
#define F77_zcopy
Definition: cblas_f77.h:64
#define F77_zsyrk
Definition: cblas_f77.h:187
#define F77_sspr2
Definition: cblas_f77.h:99
#define F77_ctbsv
Definition: cblas_f77.h:148
#define F77_stbsv
Definition: cblas_f77.h:132
#define F77_zdscal
Definition: cblas_f77.h:75
#define F77_zher2
Definition: cblas_f77.h:124
#define F77_ztrmm
Definition: cblas_f77.h:189
#define F77_ssyr
Definition: cblas_f77.h:96
#define F77_dtrsm
Definition: cblas_f77.h:178
#define F77_stpsv
Definition: cblas_f77.h:133
#define F77_dsyr2k
Definition: cblas_f77.h:176
#define F77_dtbmv
Definition: cblas_f77.h:137
#define F77_ssymv
Definition: cblas_f77.h:92
#define F77_sgbmv
Definition: cblas_f77.h:127
#define F77_cgerc
Definition: cblas_f77.h:112
#define F77_dsyr
Definition: cblas_f77.h:104
#define F77_csymm
Definition: cblas_f77.h:180
#define F77_sdsdot_sub
Definition: cblas_f77.h:88
#define F77_cswap
Definition: cblas_f77.h:59
#define F77_sasum_sub
Definition: cblas_f77.h:81
#define F77_ssyr2
Definition: cblas_f77.h:98
#define F77_zscal
Definition: cblas_f77.h:73
#define F77_cher
Definition: cblas_f77.h:113
#define F77_sgemm
Definition: cblas_f77.h:167
#define F77_sdot_sub
Definition: cblas_f77.h:67
#define F77_dger
Definition: cblas_f77.h:103
#define F77_zgeru
Definition: cblas_f77.h:120
#define F77_scopy
Definition: cblas_f77.h:52
#define F77_xerbla
Definition: cblas_f77.h:42
#define F77_ztpmv
Definition: cblas_f77.h:154
#define F77_cdotu_sub
Definition: cblas_f77.h:76
#define F77_stbmv
Definition: cblas_f77.h:129
#define F77_csyr2k
Definition: cblas_f77.h:182
#define F77_dscal
Definition: cblas_f77.h:71
#define F77_ztbsv
Definition: cblas_f77.h:156
#define F77_ctrsm
Definition: cblas_f77.h:184
#define F77_dsymm
Definition: cblas_f77.h:174
#define F77_zhpmv
Definition: cblas_f77.h:119
#define F77_ssymm
Definition: cblas_f77.h:168
#define F77_saxpy
Definition: cblas_f77.h:53
#define F77_ctpsv
Definition: cblas_f77.h:149
#define F77_ztrmv
Definition: cblas_f77.h:152
#define F77_drotm
Definition: cblas_f77.h:50
#define F77_dasum_sub
Definition: cblas_f77.h:83
#define F77_scasum_sub
Definition: cblas_f77.h:85
#define F77_srotmg
Definition: cblas_f77.h:44
#define F77_srot
Definition: cblas_f77.h:45
#define F77_zgemm
Definition: cblas_f77.h:185
#define F77_cher2
Definition: cblas_f77.h:115
#define F77_srotg
Definition: cblas_f77.h:43
#define F77_cgemv
Definition: cblas_f77.h:142
#define F77_dgbmv
Definition: cblas_f77.h:135
#define F77_ctrmm
Definition: cblas_f77.h:183
#define F77_csyrk
Definition: cblas_f77.h:181
#define F77_dsbmv
Definition: cblas_f77.h:101
#define F77_dtbsv
Definition: cblas_f77.h:140
#define F77_ztpsv
Definition: cblas_f77.h:157
#define F77_zhbmv
Definition: cblas_f77.h:118
#define F77_zgbmv
Definition: cblas_f77.h:151
#define F77_strsv
Definition: cblas_f77.h:131
#define F77_dtrmv
Definition: cblas_f77.h:136
#define F77_sgemv
Definition: cblas_f77.h:126
#define F77_isamax_sub
Definition: cblas_f77.h:54
#define F77_icamax_sub
Definition: cblas_f77.h:62
#define F77_zaxpy
Definition: cblas_f77.h:65
#define F77_zdotc_sub
Definition: cblas_f77.h:79
#define F77_idamax_sub
Definition: cblas_f77.h:58
#define F77_zswap
Definition: cblas_f77.h:63
#define F77_drotmg
Definition: cblas_f77.h:48
#define F77_dtpmv
Definition: cblas_f77.h:138
#define F77_dsymv
Definition: cblas_f77.h:100
#define F77_dsdot_sub
Definition: cblas_f77.h:69
#define F77_snrm2_sub
Definition: cblas_f77.h:80
#define F77_chpr
Definition: cblas_f77.h:114
#define F77_dsyr2
Definition: cblas_f77.h:106
#define F77_dcopy
Definition: cblas_f77.h:56
#define F77_scnrm2_sub
Definition: cblas_f77.h:84
#define F77_dspmv
Definition: cblas_f77.h:102
#define F77_ccopy
Definition: cblas_f77.h:60
#define F77_zdotu_sub
Definition: cblas_f77.h:78
#define F77_cherk
Definition: cblas_f77.h:162
#define F77_zgerc
Definition: cblas_f77.h:121
#define F77_dspr
Definition: cblas_f77.h:105
#define F77_zher
Definition: cblas_f77.h:122
#define F77_zher2k
Definition: cblas_f77.h:166
#define F77_ctpmv
Definition: cblas_f77.h:146
#define F77_chbmv
Definition: cblas_f77.h:109
#define F77_cgbmv
Definition: cblas_f77.h:143
#define F77_zhpr2
Definition: cblas_f77.h:125
#define F77_izamax_sub
Definition: cblas_f77.h:66
#define F77_zherk
Definition: cblas_f77.h:165
#define F77_cher2k
Definition: cblas_f77.h:163
#define F77_cscal
Definition: cblas_f77.h:72
#define F77_ztbmv
Definition: cblas_f77.h:153
#define F77_csscal
Definition: cblas_f77.h:74
#define F77_zhemv
Definition: cblas_f77.h:117