GRASS GIS 8 Programmer's Manual  8.4.0dev(2024)-9aacb948ba
blas.h
Go to the documentation of this file.
1 #ifndef BLAS_WRAP_H
2 #define BLAS_WRAP_H
3 
4 extern int caxpy_(integer *n, complex *ca, complex *cx, integer *incx,
5  complex *cy, integer *incy);
6 extern int ccopy_(integer *n, complex *cx, integer *incx, complex *cy,
7  integer *incy);
8 extern C_f cdotc_(complex *ret_val, integer *n, complex *cx, integer *incx,
9  complex *cy, integer *incy);
10 extern C_f cdotu_(complex *ret_val, integer *n, complex *cx, integer *incx,
11  complex *cy, integer *incy);
12 extern int cgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku,
13  complex *alpha, complex *a, integer *lda, complex *x,
14  integer *incx, complex *beta, complex *y, integer *incy,
15  ftnlen trans_len);
16 extern int cgemm_(char *transa, char *transb, integer *m, integer *n,
17  integer *k, complex *alpha, complex *a, integer *lda,
18  complex *b, integer *ldb, complex *beta, complex *c__,
19  integer *ldc, ftnlen transa_len, ftnlen transb_len);
20 extern int cgemv_(char *trans, integer *m, integer *n, complex *alpha,
21  complex *a, integer *lda, complex *x, integer *incx,
22  complex *beta, complex *y, integer *incy, ftnlen trans_len);
23 extern int cgerc_(integer *m, integer *n, complex *alpha, complex *x,
24  integer *incx, complex *y, integer *incy, complex *a,
25  integer *lda);
26 extern int cgeru_(integer *m, integer *n, complex *alpha, complex *x,
27  integer *incx, complex *y, integer *incy, complex *a,
28  integer *lda);
29 extern int chbmv_(char *uplo, integer *n, integer *k, complex *alpha,
30  complex *a, integer *lda, complex *x, integer *incx,
31  complex *beta, complex *y, integer *incy, ftnlen uplo_len);
32 extern int chemm_(char *side, char *uplo, integer *m, integer *n,
33  complex *alpha, complex *a, integer *lda, complex *b,
34  integer *ldb, complex *beta, complex *c__, integer *ldc,
35  ftnlen side_len, ftnlen uplo_len);
36 extern int chemv_(char *uplo, integer *n, complex *alpha, complex *a,
37  integer *lda, complex *x, integer *incx, complex *beta,
38  complex *y, integer *incy, ftnlen uplo_len);
39 extern int cher_(char *uplo, integer *n, real *alpha, complex *x, integer *incx,
40  complex *a, integer *lda, ftnlen uplo_len);
41 extern int cher2_(char *uplo, integer *n, complex *alpha, complex *x,
42  integer *incx, complex *y, integer *incy, complex *a,
43  integer *lda, ftnlen uplo_len);
44 extern int cher2k_(char *uplo, char *trans, integer *n, integer *k,
45  complex *alpha, complex *a, integer *lda, complex *b,
46  integer *ldb, real *beta, complex *c__, integer *ldc,
47  ftnlen uplo_len, ftnlen trans_len);
48 extern int cherk_(char *uplo, char *trans, integer *n, integer *k, real *alpha,
49  complex *a, integer *lda, real *beta, complex *c__,
50  integer *ldc, ftnlen uplo_len, ftnlen trans_len);
51 extern int chpmv_(char *uplo, integer *n, complex *alpha, complex *ap,
52  complex *x, integer *incx, complex *beta, complex *y,
53  integer *incy, ftnlen uplo_len);
54 extern int chpr_(char *uplo, integer *n, real *alpha, complex *x, integer *incx,
55  complex *ap, ftnlen uplo_len);
56 extern int chpr2_(char *uplo, integer *n, complex *alpha, complex *x,
57  integer *incx, complex *y, integer *incy, complex *ap,
58  ftnlen uplo_len);
59 extern int crotg_(complex *ca, complex *cb, real *c__, complex *s);
60 extern int cscal_(integer *n, complex *ca, complex *cx, integer *incx);
61 extern int csrot_(integer *n, complex *cx, integer *incx, complex *cy,
62  integer *incy, real *c__, real *s);
63 extern int csscal_(integer *n, real *sa, complex *cx, integer *incx);
64 extern int cswap_(integer *n, complex *cx, integer *incx, complex *cy,
65  integer *incy);
66 extern int csymm_(char *side, char *uplo, integer *m, integer *n,
67  complex *alpha, complex *a, integer *lda, complex *b,
68  integer *ldb, complex *beta, complex *c__, integer *ldc,
69  ftnlen side_len, ftnlen uplo_len);
70 extern int csyr2k_(char *uplo, char *trans, integer *n, integer *k,
71  complex *alpha, complex *a, integer *lda, complex *b,
72  integer *ldb, complex *beta, complex *c__, integer *ldc,
73  ftnlen uplo_len, ftnlen trans_len);
74 extern int csyrk_(char *uplo, char *trans, integer *n, integer *k,
75  complex *alpha, complex *a, integer *lda, complex *beta,
76  complex *c__, integer *ldc, ftnlen uplo_len,
77  ftnlen trans_len);
78 extern int ctbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
79  complex *a, integer *lda, complex *x, integer *incx,
80  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
81 extern int ctbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
82  complex *a, integer *lda, complex *x, integer *incx,
83  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
84 extern int ctpmv_(char *uplo, char *trans, char *diag, integer *n, complex *ap,
85  complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len,
86  ftnlen diag_len);
87 extern int ctpsv_(char *uplo, char *trans, char *diag, integer *n, complex *ap,
88  complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len,
89  ftnlen diag_len);
90 extern int ctrmm_(char *side, char *uplo, char *transa, char *diag, integer *m,
91  integer *n, complex *alpha, complex *a, integer *lda,
92  complex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len,
93  ftnlen transa_len, ftnlen diag_len);
94 extern int ctrmv_(char *uplo, char *trans, char *diag, integer *n, complex *a,
95  integer *lda, complex *x, integer *incx, ftnlen uplo_len,
96  ftnlen trans_len, ftnlen diag_len);
97 extern int ctrsm_(char *side, char *uplo, char *transa, char *diag, integer *m,
98  integer *n, complex *alpha, complex *a, integer *lda,
99  complex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len,
100  ftnlen transa_len, ftnlen diag_len);
101 extern int ctrsv_(char *uplo, char *trans, char *diag, integer *n, complex *a,
102  integer *lda, complex *x, integer *incx, ftnlen uplo_len,
103  ftnlen trans_len, ftnlen diag_len);
104 extern doublereal dasum_(integer *n, doublereal *dx, integer *incx);
105 extern int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx,
106  doublereal *dy, integer *incy);
108 extern int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy,
109  integer *incy);
110 extern doublereal ddot_(integer *n, doublereal *dx, integer *incx,
111  doublereal *dy, integer *incy);
112 extern int dgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku,
113  doublereal *alpha, doublereal *a, integer *lda, doublereal *x,
114  integer *incx, doublereal *beta, doublereal *y, integer *incy,
115  ftnlen trans_len);
116 extern int dgemm_(char *transa, char *transb, integer *m, integer *n,
117  integer *k, doublereal *alpha, doublereal *a, integer *lda,
118  doublereal *b, integer *ldb, doublereal *beta,
119  doublereal *c__, integer *ldc);
120 extern int dgemv_(char *trans, integer *m, integer *n, doublereal *alpha,
121  doublereal *a, integer *lda, doublereal *x, integer *incx,
122  doublereal *beta, doublereal *y, integer *incy,
123  ftnlen trans_len);
124 extern int dger_(integer *m, integer *n, doublereal *alpha, doublereal *x,
125  integer *incx, doublereal *y, integer *incy, doublereal *a,
126  integer *lda);
128 extern int drot_(integer *n, doublereal *dx, integer *incx, doublereal *dy,
129  integer *incy, doublereal *c__, doublereal *s);
130 extern int drotg_(doublereal *da, doublereal *db, doublereal *c__,
131  doublereal *s);
132 extern int drotm_(integer *n, doublereal *dx, integer *incx, doublereal *dy,
133  integer *incy, doublereal *dparam);
134 extern int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *dx1,
135  doublereal *dy1, doublereal *dparam);
136 extern int dsbmv_(char *uplo, integer *n, integer *k, doublereal *alpha,
137  doublereal *a, integer *lda, doublereal *x, integer *incx,
138  doublereal *beta, doublereal *y, integer *incy,
139  ftnlen uplo_len);
140 extern int dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx);
141 extern doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy,
142  integer *incy);
143 extern int dspmv_(char *uplo, integer *n, doublereal *alpha, doublereal *ap,
144  doublereal *x, integer *incx, doublereal *beta, doublereal *y,
145  integer *incy, ftnlen uplo_len);
146 extern int dspr_(char *uplo, integer *n, doublereal *alpha, doublereal *x,
147  integer *incx, doublereal *ap, ftnlen uplo_len);
148 extern int dspr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x,
149  integer *incx, doublereal *y, integer *incy, doublereal *ap,
150  ftnlen uplo_len);
151 extern int dswap_(integer *n, doublereal *dx, integer *incx, doublereal *dy,
152  integer *incy);
153 extern int dsymm_(char *side, char *uplo, integer *m, integer *n,
154  doublereal *alpha, doublereal *a, integer *lda, doublereal *b,
155  integer *ldb, doublereal *beta, doublereal *c__, integer *ldc,
156  ftnlen side_len, ftnlen uplo_len);
157 extern int dsymv_(char *uplo, integer *n, doublereal *alpha, doublereal *a,
158  integer *lda, doublereal *x, integer *incx, doublereal *beta,
159  doublereal *y, integer *incy, ftnlen uplo_len);
160 extern int dsyr_(char *uplo, integer *n, doublereal *alpha, doublereal *x,
161  integer *incx, doublereal *a, integer *lda, ftnlen uplo_len);
162 extern int dsyr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x,
163  integer *incx, doublereal *y, integer *incy, doublereal *a,
164  integer *lda, ftnlen uplo_len);
165 extern int dsyr2k_(char *uplo, char *trans, integer *n, integer *k,
166  doublereal *alpha, doublereal *a, integer *lda,
167  doublereal *b, integer *ldb, doublereal *beta,
168  doublereal *c__, integer *ldc, ftnlen uplo_len,
169  ftnlen trans_len);
170 extern int dsyrk_(char *uplo, char *trans, integer *n, integer *k,
171  doublereal *alpha, doublereal *a, integer *lda,
172  doublereal *beta, doublereal *c__, integer *ldc,
173  ftnlen uplo_len, ftnlen trans_len);
174 extern int dtbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
175  doublereal *a, integer *lda, doublereal *x, integer *incx,
176  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
177 extern int dtbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
178  doublereal *a, integer *lda, doublereal *x, integer *incx,
179  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
180 extern int dtpmv_(char *uplo, char *trans, char *diag, integer *n,
181  doublereal *ap, doublereal *x, integer *incx, ftnlen uplo_len,
182  ftnlen trans_len, ftnlen diag_len);
183 extern int dtpsv_(char *uplo, char *trans, char *diag, integer *n,
184  doublereal *ap, doublereal *x, integer *incx, ftnlen uplo_len,
185  ftnlen trans_len, ftnlen diag_len);
186 extern int dtrmm_(char *side, char *uplo, char *transa, char *diag, integer *m,
187  integer *n, doublereal *alpha, doublereal *a, integer *lda,
188  doublereal *b, integer *ldb, ftnlen side_len, ftnlen uplo_len,
189  ftnlen transa_len, ftnlen diag_len);
190 extern int dtrmv_(char *uplo, char *trans, char *diag, integer *n,
191  doublereal *a, integer *lda, doublereal *x, integer *incx,
192  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
193 extern int dtrsm_(char *side, char *uplo, char *transa, char *diag, integer *m,
194  integer *n, doublereal *alpha, doublereal *a, integer *lda,
195  doublereal *b, integer *ldb, ftnlen side_len, ftnlen uplo_len,
196  ftnlen transa_len, ftnlen diag_len);
197 extern int dtrsv_(char *uplo, char *trans, char *diag, integer *n,
198  doublereal *a, integer *lda, doublereal *x, integer *incx,
199  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
202 extern integer icamax_(integer *n, complex *cx, integer *incx);
203 extern integer idamax_(integer *n, doublereal *dx, integer *incx);
204 extern integer isamax_(integer *n, real *sx, integer *incx);
205 extern integer izamax_(integer *n, doublecomplex *zx, integer *incx);
206 extern logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len);
207 extern E_f sasum_(integer *n, real *sx, integer *incx);
208 extern int saxpy_(integer *n, real *sa, real *sx, integer *incx, real *sy,
209  integer *incy);
210 extern E_f scasum_(integer *n, complex *cx, integer *incx);
211 extern E_f scnrm2_(integer *n, complex *x, integer *incx);
212 extern int scopy_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
213 extern E_f sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
214 extern E_f sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy,
215  integer *incy);
216 extern int sgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku,
217  real *alpha, real *a, integer *lda, real *x, integer *incx,
218  real *beta, real *y, integer *incy, ftnlen trans_len);
219 extern int sgemm_(char *transa, char *transb, integer *m, integer *n,
220  integer *k, real *alpha, real *a, integer *lda, real *b,
221  integer *ldb, real *beta, real *c__, integer *ldc,
222  ftnlen transa_len, ftnlen transb_len);
223 extern int sgemv_(char *trans, integer *m, integer *n, real *alpha, real *a,
224  integer *lda, real *x, integer *incx, real *beta, real *y,
225  integer *incy, ftnlen trans_len);
226 extern int sger_(integer *m, integer *n, real *alpha, real *x, integer *incx,
227  real *y, integer *incy, real *a, integer *lda);
228 extern E_f snrm2_(integer *n, real *x, integer *incx);
229 extern int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy,
230  real *c__, real *s);
231 extern int srotg_(real *sa, real *sb, real *c__, real *s);
232 extern int srotm_(integer *n, real *sx, integer *incx, real *sy, integer *incy,
233  real *sparam);
234 extern int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real *sparam);
235 extern int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, real *a,
236  integer *lda, real *x, integer *incx, real *beta, real *y,
237  integer *incy, ftnlen uplo_len);
238 extern int sscal_(integer *n, real *sa, real *sx, integer *incx);
239 extern int sspmv_(char *uplo, integer *n, real *alpha, real *ap, real *x,
240  integer *incx, real *beta, real *y, integer *incy,
241  ftnlen uplo_len);
242 extern int sspr_(char *uplo, integer *n, real *alpha, real *x, integer *incx,
243  real *ap, ftnlen uplo_len);
244 extern int sspr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx,
245  real *y, integer *incy, real *ap, ftnlen uplo_len);
246 extern int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
247 extern int ssymm_(char *side, char *uplo, integer *m, integer *n, real *alpha,
248  real *a, integer *lda, real *b, integer *ldb, real *beta,
249  real *c__, integer *ldc, ftnlen side_len, ftnlen uplo_len);
250 extern int ssymv_(char *uplo, integer *n, real *alpha, real *a, integer *lda,
251  real *x, integer *incx, real *beta, real *y, integer *incy,
252  ftnlen uplo_len);
253 extern int ssyr_(char *uplo, integer *n, real *alpha, real *x, integer *incx,
254  real *a, integer *lda, ftnlen uplo_len);
255 extern int ssyr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx,
256  real *y, integer *incy, real *a, integer *lda,
257  ftnlen uplo_len);
258 extern int ssyr2k_(char *uplo, char *trans, integer *n, integer *k, real *alpha,
259  real *a, integer *lda, real *b, integer *ldb, real *beta,
260  real *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len);
261 extern int ssyrk_(char *uplo, char *trans, integer *n, integer *k, real *alpha,
262  real *a, integer *lda, real *beta, real *c__, integer *ldc,
263  ftnlen uplo_len, ftnlen trans_len);
264 extern int stbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
265  real *a, integer *lda, real *x, integer *incx,
266  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
267 extern int stbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
268  real *a, integer *lda, real *x, integer *incx,
269  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
270 extern int stpmv_(char *uplo, char *trans, char *diag, integer *n, real *ap,
271  real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len,
272  ftnlen diag_len);
273 extern int stpsv_(char *uplo, char *trans, char *diag, integer *n, real *ap,
274  real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len,
275  ftnlen diag_len);
276 extern int strmm_(char *side, char *uplo, char *transa, char *diag, integer *m,
277  integer *n, real *alpha, real *a, integer *lda, real *b,
278  integer *ldb, ftnlen side_len, ftnlen uplo_len,
279  ftnlen transa_len, ftnlen diag_len);
280 extern int strmv_(char *uplo, char *trans, char *diag, integer *n, real *a,
281  integer *lda, real *x, integer *incx, ftnlen uplo_len,
282  ftnlen trans_len, ftnlen diag_len);
283 extern int strsm_(char *side, char *uplo, char *transa, char *diag, integer *m,
284  integer *n, real *alpha, real *a, integer *lda, real *b,
285  integer *ldb, ftnlen side_len, ftnlen uplo_len,
286  ftnlen transa_len, ftnlen diag_len);
287 extern int strsv_(char *uplo, char *trans, char *diag, integer *n, real *a,
288  integer *lda, real *x, integer *incx, ftnlen uplo_len,
289  ftnlen trans_len, ftnlen diag_len);
290 extern int xerbla_(char *srname, integer *info, ftnlen srname_len);
291 extern int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx,
292  integer *incx, doublecomplex *zy, integer *incy);
293 extern int zcopy_(integer *n, doublecomplex *zx, integer *incx,
294  doublecomplex *zy, integer *incy);
295 extern Z_f zdotc_(doublecomplex *ret_val, integer *n, doublecomplex *zx,
296  integer *incx, doublecomplex *zy, integer *incy);
297 extern Z_f zdotu_(doublecomplex *ret_val, integer *n, doublecomplex *zx,
298  integer *incx, doublecomplex *zy, integer *incy);
299 extern int zdrot_(integer *n, doublecomplex *zx, integer *incx,
300  doublecomplex *zy, integer *incy, doublereal *c__,
301  doublereal *s);
302 extern int zdscal_(integer *n, doublereal *da, doublecomplex *zx,
303  integer *incx);
304 extern int zgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku,
305  doublecomplex *alpha, doublecomplex *a, integer *lda,
306  doublecomplex *x, integer *incx, doublecomplex *beta,
307  doublecomplex *y, integer *incy, ftnlen trans_len);
308 extern int zgemm_(char *transa, char *transb, integer *m, integer *n,
309  integer *k, doublecomplex *alpha, doublecomplex *a,
310  integer *lda, doublecomplex *b, integer *ldb,
311  doublecomplex *beta, doublecomplex *c__, integer *ldc,
312  ftnlen transa_len, ftnlen transb_len);
313 extern int zgemv_(char *trans, integer *m, integer *n, doublecomplex *alpha,
315  integer *incx, doublecomplex *beta, doublecomplex *y,
316  integer *incy, ftnlen trans_len);
317 extern int zgerc_(integer *m, integer *n, doublecomplex *alpha,
318  doublecomplex *x, integer *incx, doublecomplex *y,
319  integer *incy, doublecomplex *a, integer *lda);
320 extern int zgeru_(integer *m, integer *n, doublecomplex *alpha,
321  doublecomplex *x, integer *incx, doublecomplex *y,
322  integer *incy, doublecomplex *a, integer *lda);
323 extern int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex *alpha,
325  integer *incx, doublecomplex *beta, doublecomplex *y,
326  integer *incy, ftnlen uplo_len);
327 extern int zhemm_(char *side, char *uplo, integer *m, integer *n,
328  doublecomplex *alpha, doublecomplex *a, integer *lda,
329  doublecomplex *b, integer *ldb, doublecomplex *beta,
330  doublecomplex *c__, integer *ldc, ftnlen side_len,
331  ftnlen uplo_len);
332 extern int zhemv_(char *uplo, integer *n, doublecomplex *alpha,
334  integer *incx, doublecomplex *beta, doublecomplex *y,
335  integer *incy, ftnlen uplo_len);
336 extern int zher_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x,
337  integer *incx, doublecomplex *a, integer *lda,
338  ftnlen uplo_len);
339 extern int zher2_(char *uplo, integer *n, doublecomplex *alpha,
340  doublecomplex *x, integer *incx, doublecomplex *y,
341  integer *incy, doublecomplex *a, integer *lda,
342  ftnlen uplo_len);
343 extern int zher2k_(char *uplo, char *trans, integer *n, integer *k,
344  doublecomplex *alpha, doublecomplex *a, integer *lda,
345  doublecomplex *b, integer *ldb, doublereal *beta,
346  doublecomplex *c__, integer *ldc, ftnlen uplo_len,
347  ftnlen trans_len);
348 extern int zherk_(char *uplo, char *trans, integer *n, integer *k,
349  doublereal *alpha, doublecomplex *a, integer *lda,
350  doublereal *beta, doublecomplex *c__, integer *ldc,
351  ftnlen uplo_len, ftnlen trans_len);
352 extern int zhpmv_(char *uplo, integer *n, doublecomplex *alpha,
353  doublecomplex *ap, doublecomplex *x, integer *incx,
354  doublecomplex *beta, doublecomplex *y, integer *incy,
355  ftnlen uplo_len);
356 extern int zhpr_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x,
357  integer *incx, doublecomplex *ap, ftnlen uplo_len);
358 extern int zhpr2_(char *uplo, integer *n, doublecomplex *alpha,
359  doublecomplex *x, integer *incx, doublecomplex *y,
360  integer *incy, doublecomplex *ap, ftnlen uplo_len);
362  doublecomplex *s);
363 extern int zscal_(integer *n, doublecomplex *za, doublecomplex *zx,
364  integer *incx);
365 extern int zswap_(integer *n, doublecomplex *zx, integer *incx,
366  doublecomplex *zy, integer *incy);
367 extern int zsymm_(char *side, char *uplo, integer *m, integer *n,
368  doublecomplex *alpha, doublecomplex *a, integer *lda,
369  doublecomplex *b, integer *ldb, doublecomplex *beta,
370  doublecomplex *c__, integer *ldc, ftnlen side_len,
371  ftnlen uplo_len);
372 extern int zsyr2k_(char *uplo, char *trans, integer *n, integer *k,
373  doublecomplex *alpha, doublecomplex *a, integer *lda,
374  doublecomplex *b, integer *ldb, doublecomplex *beta,
375  doublecomplex *c__, integer *ldc, ftnlen uplo_len,
376  ftnlen trans_len);
377 extern int zsyrk_(char *uplo, char *trans, integer *n, integer *k,
378  doublecomplex *alpha, doublecomplex *a, integer *lda,
379  doublecomplex *beta, doublecomplex *c__, integer *ldc,
380  ftnlen uplo_len, ftnlen trans_len);
381 extern int ztbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
383  integer *incx, ftnlen uplo_len, ftnlen trans_len,
384  ftnlen diag_len);
385 extern int ztbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k,
387  integer *incx, ftnlen uplo_len, ftnlen trans_len,
388  ftnlen diag_len);
389 extern int ztpmv_(char *uplo, char *trans, char *diag, integer *n,
390  doublecomplex *ap, doublecomplex *x, integer *incx,
391  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
392 extern int ztpsv_(char *uplo, char *trans, char *diag, integer *n,
393  doublecomplex *ap, doublecomplex *x, integer *incx,
394  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
395 extern int ztrmm_(char *side, char *uplo, char *transa, char *diag, integer *m,
396  integer *n, doublecomplex *alpha, doublecomplex *a,
397  integer *lda, doublecomplex *b, integer *ldb, ftnlen side_len,
398  ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);
399 extern int ztrmv_(char *uplo, char *trans, char *diag, integer *n,
401  integer *incx, ftnlen uplo_len, ftnlen trans_len,
402  ftnlen diag_len);
403 extern int ztrsm_(char *side, char *uplo, char *transa, char *diag, integer *m,
404  integer *n, doublecomplex *alpha, doublecomplex *a,
405  integer *lda, doublecomplex *b, integer *ldb, ftnlen side_len,
406  ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len);
407 extern int ztrsv_(char *uplo, char *trans, char *diag, integer *n,
409  integer *incx, ftnlen uplo_len, ftnlen trans_len,
410  ftnlen diag_len);
411 
412 #endif
int ssymv_(char *uplo, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen uplo_len)
int zgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen trans_len)
int cswap_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy)
int csyr2k_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int ccopy_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy)
int xerbla_(char *srname, integer *info, ftnlen srname_len)
int zher_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x, integer *incx, doublecomplex *a, integer *lda, ftnlen uplo_len)
int srotm_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *sparam)
int dtpmv_(char *uplo, char *trans, char *diag, integer *n, doublereal *ap, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int zsymm_(char *side, char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *ldc, ftnlen side_len, ftnlen uplo_len)
int ztrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
int chemv_(char *uplo, integer *n, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len)
int zhemm_(char *side, char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *ldc, ftnlen side_len, ftnlen uplo_len)
int sspmv_(char *uplo, integer *n, real *alpha, real *ap, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen uplo_len)
Z_f zdotc_(doublecomplex *ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy)
int zgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *ldc, ftnlen transa_len, ftnlen transb_len)
int zgemv_(char *trans, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen trans_len)
int zswap_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy)
int srotg_(real *sa, real *sb, real *c__, real *s)
E_f scasum_(integer *n, complex *cx, integer *incx)
int cgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen trans_len)
int sgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c__, integer *ldc, ftnlen transa_len, ftnlen transb_len)
E_f scnrm2_(integer *n, complex *x, integer *incx)
int dtrmv_(char *uplo, char *trans, char *diag, integer *n, doublereal *a, integer *lda, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int cgeru_(integer *m, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda)
int chemm_(char *side, char *uplo, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc, ftnlen side_len, ftnlen uplo_len)
E_f sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, integer *incy)
int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx)
int dspr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *ap, ftnlen uplo_len)
int dger_(integer *m, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda)
int dtbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int zdscal_(integer *n, doublereal *da, doublecomplex *zx, integer *incx)
integer isamax_(integer *n, real *sx, integer *incx)
int sgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen trans_len)
int cscal_(integer *n, complex *ca, complex *cx, integer *incx)
int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *c__, real *s)
int zher2k_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *beta, doublecomplex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int zgeru_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda)
int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real *sparam)
int chpr2_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *ap, ftnlen uplo_len)
int saxpy_(integer *n, real *sa, real *sx, integer *incx, real *sy, integer *incy)
int dtrsv_(char *uplo, char *trans, char *diag, integer *n, doublereal *a, integer *lda, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int csyrk_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *beta, complex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen uplo_len)
C_f cdotu_(complex *ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy)
int dspr_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *ap, ftnlen uplo_len)
int dtbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int zsyrk_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *beta, doublecomplex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int sscal_(integer *n, real *sa, real *sx, integer *incx)
int chbmv_(char *uplo, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len)
int dtrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
int stpmv_(char *uplo, char *trans, char *diag, integer *n, real *ap, real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int zhpr2_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *ap, ftnlen uplo_len)
integer izamax_(integer *n, doublecomplex *zx, integer *incx)
int zsyr2k_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int ssyr_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *a, integer *lda, ftnlen uplo_len)
int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len)
int ssyr2k_(char *uplo, char *trans, integer *n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int ctbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int dsyr_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *a, integer *lda, ftnlen uplo_len)
int zgerc_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda)
int cgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc, ftnlen transa_len, ftnlen transb_len)
int ztrmv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int sspr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *ap, ftnlen uplo_len)
int chpr_(char *uplo, integer *n, real *alpha, complex *x, integer *incx, complex *ap, ftnlen uplo_len)
E_f snrm2_(integer *n, real *x, integer *incx)
int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *dx1, doublereal *dy1, doublereal *dparam)
doublereal dcabs1_(doublecomplex *z__)
int ztbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int chpmv_(char *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len)
int dsyrk_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, doublereal *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int dgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, integer *ldc)
int sgemv_(char *trans, integer *m, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen trans_len)
Z_f zdotu_(doublecomplex *ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy)
int zcopy_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy)
int strmv_(char *uplo, char *trans, char *diag, integer *n, real *a, integer *lda, real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int cherk_(char *uplo, char *trans, integer *n, integer *k, real *alpha, complex *a, integer *lda, real *beta, complex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int crotg_(complex *ca, complex *cb, real *c__, complex *s)
int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len)
int dtpsv_(char *uplo, char *trans, char *diag, integer *n, doublereal *ap, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int ssymm_(char *side, char *uplo, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c__, integer *ldc, ftnlen side_len, ftnlen uplo_len)
int zdrot_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy, doublereal *c__, doublereal *s)
int ctbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int dtrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
E_f sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy)
int ztrsv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int drotg_(doublereal *da, doublereal *db, doublereal *c__, doublereal *s)
int dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx)
int csrot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, real *s)
int dspmv_(char *uplo, integer *n, doublereal *alpha, doublereal *ap, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len)
int cher2k_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, real *beta, complex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int ctpmv_(char *uplo, char *trans, char *diag, integer *n, complex *ap, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int scopy_(integer *n, real *sx, integer *incx, real *sy, integer *incy)
int stpsv_(char *uplo, char *trans, char *diag, integer *n, real *ap, real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int sspr_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *ap, ftnlen uplo_len)
int strmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
int stbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, real *a, integer *lda, real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int ctrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
int dswap_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
C_f cdotc_(complex *ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy)
int cgemv_(char *trans, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen trans_len)
int ztrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
E_f sasum_(integer *n, real *sx, integer *incx)
int csscal_(integer *n, real *sa, complex *cx, integer *incx)
int ctrsv_(char *uplo, char *trans, char *diag, integer *n, complex *a, integer *lda, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int ssyr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda, ftnlen uplo_len)
integer idamax_(integer *n, doublereal *dx, integer *incx)
int caxpy_(integer *n, complex *ca, complex *cx, integer *incx, complex *cy, integer *incy)
int drot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *c__, doublereal *s)
int dsymm_(char *side, char *uplo, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, integer *ldc, ftnlen side_len, ftnlen uplo_len)
int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy)
int ctrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
int ctrmv_(char *uplo, char *trans, char *diag, integer *n, complex *a, integer *lda, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int zhemv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len)
int ztbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int ssyrk_(char *uplo, char *trans, integer *n, integer *k, real *alpha, real *a, integer *lda, real *beta, real *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy)
int ctpsv_(char *uplo, char *trans, char *diag, integer *n, complex *ap, complex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
integer icamax_(integer *n, complex *cx, integer *incx)
int zherk_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta, doublecomplex *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
int zhpr_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x, integer *incx, doublecomplex *ap, ftnlen uplo_len)
int cher2_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda, ftnlen uplo_len)
int cgerc_(integer *m, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda)
int sger_(integer *m, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda)
int drotm_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *dparam)
int dsymv_(char *uplo, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len)
int cher_(char *uplo, integer *n, real *alpha, complex *x, integer *incx, complex *a, integer *lda, ftnlen uplo_len)
int strsv_(char *uplo, char *trans, char *diag, integer *n, real *a, integer *lda, real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
doublereal dasum_(integer *n, doublereal *dx, integer *incx)
int dsyr2k_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, integer *ldc, ftnlen uplo_len, ftnlen trans_len)
int csymm_(char *side, char *uplo, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc, ftnlen side_len, ftnlen uplo_len)
int dsbmv_(char *uplo, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len)
doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx)
int ztpmv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *ap, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int strsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb, ftnlen side_len, ftnlen uplo_len, ftnlen transa_len, ftnlen diag_len)
int zher2_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda, ftnlen uplo_len)
int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal *c__, doublecomplex *s)
doublereal dnrm2_(integer *n, doublereal *x, integer *incx)
int dsyr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda, ftnlen uplo_len)
int dgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen trans_len)
int dgemv_(char *trans, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen trans_len)
doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx)
int stbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, real *a, integer *lda, real *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy)
int ztpsv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *ap, doublecomplex *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
struct cairo_state ca
float real
Definition: la.h:52
double doublereal
Definition: la.h:53
int integer
Definition: la.h:48
void Z_f
Definition: la.h:86
int logical
Definition: la.h:60
int ftnlen
Definition: la.h:68
void C_f
Definition: la.h:84
doublereal E_f
Definition: la.h:87
double b
Definition: r_raster.c:39
Definition: la.h:54
#define x