mathlib-blas.c
1 //! @file mathlib-blas.c
2 //
3 //! @section copyright
4 //
5 // This file is part of VIF - vintage fortran compiler.
6 // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
7 //
8 //! @section license
9 //
10 // This program is free software; you can redistribute it and/or modify it
11 // under the terms of the gnu general public license as published by the
12 // free software foundation; either version 3 of the license, or
13 // (at your option) any later version.
14 //
15 // This program is distributed in the hope that it will be useful, but
16 // without any warranty; without even the implied warranty of merchantability
17 // or fitness for a particular purpose. See the GNU general public license for
18 // more details. you should have received a copy of the GNU general public
19 // license along with this program. If not, see <http://www.gnu.org/licenses/>.
20 //
21 //! @Synopsis
22 //
23 //! 148 subprograms from BLAS
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // CAXPY CHERK CTPSV DROT DSYR2K IZAMAX SROTG STBMV ZGEMM ZROTG
29 // CCOPY CHPMV CTRMM DROTG DSYRK SASUM SROTM STBSV ZGEMV ZSCAL
30 // CDOTC CHPR CTRMV DROTM DTBMV SAXPY SROTMG STPMV ZGERC ZSWAP
31 // CDOTU CHPR2 CTRSM DROTMG DTBSV SCABS1 SSBMV STPSV ZGERU ZSYMM
32 // CGBMV CROTG CTRSV DSBMV DTPMV SCASUM SSCAL STRMM ZHBMV ZSYR2K
33 // CGEMM CSCAL DASUM DSCAL DTPSV SCNRM2 SSPMV STRMV ZHEMM ZSYRK
34 // CGEMV CSROT DAXPY DSDOT DTRMM SCOPY SSPR STRSM ZHEMV ZTBMV
35 // CGERC CSSCAL DCABS1 DSPMV DTRMV SDOT SSPR2 STRSV ZHER ZTBSV
36 // CGERU CSWAP DCOPY DSPR DTRSM SDSDOT SSWAP ZAXPY ZHER2 ZTPMV
37 // CHBMV CSYMM DDOT DSPR2 DTRSV SGBMV SSYMM ZCOPY ZHER2K ZTPSV
38 // CHEMM CSYR2K DGBMV DSWAP DZASUM SGEMM SSYMV ZDOTC ZHERK ZTRMM
39 // CHEMV CSYRK DGEMM DSYMM DZNRM2 SGEMV SSYR ZDOTU ZHPMV ZTRMV
40 // CHER CTBMV DGEMV DSYMV ICAMAX SGER SSYR2 ZDROT ZHPR ZTRSM
41 // CHER2 CTBSV DGER DSYR IDAMAX SNRM2 SSYR2K ZDSCAL ZHPR2 ZTRSV
42 // CHER2K CTPMV DNRM2 DSYR2 ISAMAX SROT SSYRK ZGBMV
43
44 // Miscellaneous routines from SLATEC, not in other packages as BLAS,
45 // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
46 //
47 // Source: netlib.org/slatec/
48 //
49 // For VIF, all source file have been formatted and labels have been renumbered.
50
51 // The license for BLAS Fortran source code is:
52 //
53 // The SLATEC Common Mathematical Library was developed at
54 // US government research laboratories and is in the public domain.
55 //
56 // Repository: http://www.netlib.org/slatec/
57 //
58 // The SLATEC common mathematical library is issued by the following
59 //
60 // Air Force Weapons Laboratory, Albuquerque
61 // Lawrence Livermore National Laboratory, Livermore
62 // Los Alamos National Laboratory, Los Alamos
63 // National Institute of Standards and Technology, Washington
64 // National Energy Research Supercomputer Center, Livermore
65 // Oak Ridge National Laboratory, Oak Ridge
66 // Sandia National Laboratories, Albuquerque
67 // Sandia National Laboratories, Livermore
68 //
69 // All questions concerning the distribution of the library should be
70 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
71 // Argonne, Illinois 60439, and not to the authors of the subprograms.
72 //
73 // * * * * * Notice * * * * *
74 //
75 // This material was prepared as an account of work sponsored by the
76 // United States Government. Neither the United States, nor the
77 // Department of Energy, nor the Department of Defense, nor any of
78 // their employees, nor any of their contractors, subcontractors, or
79 // their employees, makes any warranty, expressed or implied, or
80 // assumes any legal liability or responsibility for the accuracy,
81 // completeness, or usefulness of any information, apparatus, product,
82 // or process disclosed, or represents that its use would not infringe
83 // upon privately owned rights.
84
85 /*
86 Generated by VIF - experimental VIntage Fortran compiler.
87 VIF release 1.2.10
88 */
197 static CALLS __calls[__ncalls] = {
198 {"caxpy", 0}, // subroutine
199 {"ccopy", 0}, // subroutine
200 {"cdotc", 0}, // complex*8 function
201 {"cdotu", 0}, // complex*8 function
202 {"cgbmv", 0}, // subroutine
203 {"cgemm", 0}, // subroutine
204 {"cgemv", 0}, // subroutine
205 {"cgerc", 0}, // subroutine
206 {"cgeru", 0}, // subroutine
207 {"chbmv", 0}, // subroutine
208 {"chemm", 0}, // subroutine
209 {"chemv", 0}, // subroutine
210 {"cher2", 0}, // subroutine
211 {"cher2k", 0}, // subroutine
212 {"cher", 0}, // subroutine
213 {"cherk", 0}, // subroutine
214 {"chpmv", 0}, // subroutine
215 {"chpr2", 0}, // subroutine
216 {"chpr", 0}, // subroutine
217 {"crotg", 0}, // subroutine
218 {"cscal", 0}, // subroutine
219 {"csrot", 0}, // subroutine
220 {"csscal", 0}, // subroutine
221 {"cswap", 0}, // subroutine
222 {"csymm", 0}, // subroutine
223 {"csyr2k", 0}, // subroutine
224 {"csyrk", 0}, // subroutine
225 {"ctbmv", 0}, // subroutine
226 {"ctbsv", 0}, // subroutine
227 {"ctpmv", 0}, // subroutine
228 {"ctpsv", 0}, // subroutine
229 {"ctrmm", 0}, // subroutine
230 {"ctrmv", 0}, // subroutine
231 {"ctrsm", 0}, // subroutine
232 {"ctrsv", 0}, // subroutine
233 {"dasum", 0}, // real*8 function
234 {"daxpy", 0}, // subroutine
235 {"dcabs1", 0}, // real*8 function
236 {"dcopy", 0}, // subroutine
237 {"ddot", 0}, // real*8 function
238 {"dgbmv", 0}, // subroutine
239 {"dgemm", 0}, // subroutine
240 {"dgemv", 0}, // subroutine
241 {"dger", 0}, // subroutine
242 {"dnrm2", 0}, // real*8 function
243 {"drot", 0}, // subroutine
244 {"drotg", 0}, // subroutine
245 {"drotm", 0}, // subroutine
246 {"drotmg", 0}, // subroutine
247 {"dsbmv", 0}, // subroutine
248 {"dscal", 0}, // subroutine
249 {"dsdot", 0}, // real*8 function
250 {"dspmv", 0}, // subroutine
251 {"dspr2", 0}, // subroutine
252 {"dspr", 0}, // subroutine
253 {"dswap", 0}, // subroutine
254 {"dsymm", 0}, // subroutine
255 {"dsymv", 0}, // subroutine
256 {"dsyr2", 0}, // subroutine
257 {"dsyr2k", 0}, // subroutine
258 {"dsyr", 0}, // subroutine
259 {"dsyrk", 0}, // subroutine
260 {"dtbmv", 0}, // subroutine
261 {"dtbsv", 0}, // subroutine
262 {"dtpmv", 0}, // subroutine
263 {"dtpsv", 0}, // subroutine
264 {"dtrmm", 0}, // subroutine
265 {"dtrmv", 0}, // subroutine
266 {"dtrsm", 0}, // subroutine
267 {"dtrsv", 0}, // subroutine
268 {"dzasum", 0}, // real*8 function
269 {"dznrm2", 0}, // real*8 function
270 {"icamax", 0}, // integer*4 function
271 {"idamax", 0}, // integer*4 function
272 {"isamax", 0}, // integer*4 function
273 {"izamax", 0}, // integer*4 function
274 {"sasum", 0}, // real*4 function
275 {"saxpy", 0}, // subroutine
276 {"scabs1", 0}, // real*4 function
277 {"scasum", 0}, // real*4 function
278 {"scnrm2", 0}, // real*4 function
279 {"scopy", 0}, // subroutine
280 {"sdot", 0}, // real*4 function
281 {"sdsdot", 0}, // real*4 function
282 {"sgbmv", 0}, // subroutine
283 {"sgemm", 0}, // subroutine
284 {"sgemv", 0}, // subroutine
285 {"sger", 0}, // subroutine
286 {"snrm2", 0}, // real*4 function
287 {"srot", 0}, // subroutine
288 {"srotg", 0}, // subroutine
289 {"srotm", 0}, // subroutine
290 {"srotmg", 0}, // subroutine
291 {"ssbmv", 0}, // subroutine
292 {"sscal", 0}, // subroutine
293 {"sspmv", 0}, // subroutine
294 {"sspr2", 0}, // subroutine
295 {"sspr", 0}, // subroutine
296 {"sswap", 0}, // subroutine
297 {"ssymm", 0}, // subroutine
298 {"ssymv", 0}, // subroutine
299 {"ssyr2", 0}, // subroutine
300 {"ssyr2k", 0}, // subroutine
301 {"ssyr", 0}, // subroutine
302 {"ssyrk", 0}, // subroutine
303 {"stbmv", 0}, // subroutine
304 {"stbsv", 0}, // subroutine
305 {"stpmv", 0}, // subroutine
306 {"stpsv", 0}, // subroutine
307 {"strmm", 0}, // subroutine
308 {"strmv", 0}, // subroutine
309 {"strsm", 0}, // subroutine
310 {"strsv", 0}, // subroutine
311 {"zaxpy", 0}, // subroutine
312 {"zcopy", 0}, // subroutine
313 {"zdotc", 0}, // complex*16 function
314 {"zdotu", 0}, // complex*16 function
315 {"zdrot", 0}, // subroutine
316 {"zdscal", 0}, // subroutine
317 {"zgbmv", 0}, // subroutine
318 {"zgemm", 0}, // subroutine
319 {"zgemv", 0}, // subroutine
320 {"zgerc", 0}, // subroutine
321 {"zgeru", 0}, // subroutine
322 {"zhbmv", 0}, // subroutine
323 {"zhemm", 0}, // subroutine
324 {"zhemv", 0}, // subroutine
325 {"zher2", 0}, // subroutine
326 {"zher2k", 0}, // subroutine
327 {"zher", 0}, // subroutine
328 {"zherk", 0}, // subroutine
329 {"zhpmv", 0}, // subroutine
330 {"zhpr2", 0}, // subroutine
331 {"zhpr", 0}, // subroutine
332 {"zrotg", 0}, // subroutine
333 {"zscal", 0}, // subroutine
334 {"zswap", 0}, // subroutine
335 {"zsymm", 0}, // subroutine
336 {"zsyr2k", 0}, // subroutine
337 {"zsyrk", 0}, // subroutine
338 {"ztbmv", 0}, // subroutine
339 {"ztbsv", 0}, // subroutine
340 {"ztpmv", 0}, // subroutine
341 {"ztpsv", 0}, // subroutine
342 {"ztrmm", 0}, // subroutine
343 {"ztrmv", 0}, // subroutine
344 {"ztrsm", 0}, // subroutine
345 {"ztrsv", 0}, // subroutine
346 {NULL, 0}
347 };
349 _p_ incy_);
354 , complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_
355 incy_);
357 alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_,
358 int_4 _p_ ldc_);
360 lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
362 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
364 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
366 lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
368 a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
370 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
372 complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
374 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
376 _p_ a_, int_4 _p_ lda_);
378 a_, int_4 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
380 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
382 complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ ap_);
384 _p_ ap_);
388 _p_ c_, real_4 _p_ s_);
392 a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
394 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
396 _p_ a_, int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
398 int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
400 int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
402 x_, int_4 _p_ incx_);
404 x_, int_4 _p_ incx_);
406 complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
408 , complex_8 _p_ x_, int_4 _p_ incx_);
410 complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
412 , complex_8 _p_ x_, int_4 _p_ incx_);
415 ;
420 real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
422 , real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
424 real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
426 int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
429 real_8 _p_ s_);
432 dparam_);
435 real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
439 , real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
441 int_4 _p_ incy_, real_8 _p_ ap_);
443 ;
446 int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
448 int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
450 int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
452 int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
454 int_4 _p_ lda_);
456 int_4 _p_ lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
458 int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
460 int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
462 int_4 _p_ incx_);
464 int_4 _p_ incx_);
466 real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
468 real_8 _p_ x_, int_4 _p_ incx_);
470 real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
472 real_8 _p_ x_, int_4 _p_ incx_);
481 ;
488 incy_);
490 real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
492 , real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
494 real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
496 int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
499 real_4 _p_ s_);
502 sparam_);
505 real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
508 , real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
510 int_4 _p_ incy_, real_4 _p_ ap_);
512 ;
515 int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
517 int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
519 int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
521 int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
523 int_4 _p_ lda_);
525 int_4 _p_ lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
527 int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
529 int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
531 int_4 _p_ incx_);
533 int_4 _p_ incx_);
535 real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
537 real_4 _p_ x_, int_4 _p_ incx_);
539 real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
541 real_4 _p_ x_, int_4 _p_ incx_);
543 int_4 _p_ incy_);
548 _p_ c_, real_8 _p_ s_);
551 alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_,
552 int_4 _p_ incy_);
554 alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_,
555 int_4 _p_ ldc_);
557 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
559 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
561 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
563 lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
565 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
567 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
569 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
571 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
573 _p_ a_, int_4 _p_ lda_);
575 a_, int_4 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
577 int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
579 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ ap_);
581 _p_ ap_);
586 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
588 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
590 _p_ a_, int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
592 int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
594 int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
596 _p_ x_, int_4 _p_ incx_);
598 _p_ x_, int_4 _p_ incx_);
600 complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
602 lda_, complex_16 _p_ x_, int_4 _p_ incx_);
604 complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
606 lda_, complex_16 _p_ x_, int_4 _p_ incx_);
607 int_4 _caxpy (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
608 { // ** body not listed **
640 }
641 int_4 _ccopy (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
642 { // ** body not listed **
671 }
672 complex_8 _cdotc (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
673 { // ** body not listed **
708 }
709 complex_8 _cdotu (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
710 { // ** body not listed **
745 }
746 int_4 _cgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_8 _p_ alpha_,
747 complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_
748 incy_)
749 { // ** body not listed **
921 }
922 int_4 _cgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_,
923 complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_
924 ldc_)
925 { // ** body not listed **
1175 }
1176 int_4 _cgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_,
1177 complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1178 { // ** body not listed **
1333 }
1334 int_4 _cgerc (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_,
1335 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1336 { // ** body not listed **
1402 }
1403 int_4 _cgeru (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_,
1404 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1405 { // ** body not listed **
1471 }
1472 int_4 _chbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_,
1473 complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1474 { // ** body not listed **
1628 }
1629 int_4 _chemm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4
1630 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
1631 { // ** body not listed **
1777 }
1778 int_4 _chemv (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ x_,
1779 int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1780 { // ** body not listed **
1921 }
1922 int_4 _cher2 (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_,
1923 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1924 { // ** body not listed **
2053 }
2054 int_4 _cher2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_,
2055 int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
2056 { // ** body not listed **
2264 }
2265 int_4 _cher (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ a_,
2266 int_4 _p_ lda_)
2267 { // ** body not listed **
2373 }
2374 int_4 _cherk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, complex_8 _p_ a_, int_4
2375 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
2376 { // ** body not listed **
2574 }
2575 int_4 _chpmv (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ ap_, complex_8 _p_ x_, int_4 _p_ incx_,
2576 complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
2577 { // ** body not listed **
2724 }
2725 int_4 _chpr2 (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_,
2726 int_4 _p_ incy_, complex_8 _p_ ap_)
2727 { // ** body not listed **
2858 }
2859 int_4 _chpr (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ ap_)
2860 { // ** body not listed **
2968 }
2969 int_4 _crotg (complex_8 _p_ ca_, complex_8 _p_ cb_, real_4 _p_ c_, complex_8 _p_ s_)
2970 { // ** body not listed **
2991 }
2992 int_4 _cscal (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_)
2993 { // ** body not listed **
3013 }
3014 int_4 _csrot (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_, real_4 _p_ c_,
3015 real_4 _p_ s_)
3016 { // ** body not listed **
3050 }
3051 int_4 _csscal (int_4 _p_ n_, real_4 _p_ sa_, complex_8 _p_ cx_, int_4 _p_ incx_)
3052 { // ** body not listed **
3072 }
3073 int_4 _cswap (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
3074 { // ** body not listed **
3108 }
3109 int_4 _csymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4
3110 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3111 { // ** body not listed **
3255 }
3256 int_4 _csyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_,
3257 int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3258 { // ** body not listed **
3430 }
3431 int_4 _csyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_,
3432 int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3433 { // ** body not listed **
3592 }
3593 int_4 _ctbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ a_, int_4 _p_
3594 lda_, complex_8 _p_ x_, int_4 _p_ incx_)
3595 { // ** body not listed **
3831 }
3832 int_4 _ctbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ a_, int_4 _p_
3833 lda_, complex_8 _p_ x_, int_4 _p_ incx_)
3834 { // ** body not listed **
4070 }
4071 int_4 _ctpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ ap_, complex_8 _p_ x_, int_4
4072 _p_ incx_)
4073 { // ** body not listed **
4306 }
4307 int_4 _ctpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ ap_, complex_8 _p_ x_, int_4
4308 _p_ incx_)
4309 { // ** body not listed **
4542 }
4543 int_4 _ctrmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_8
4544 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
4545 { // ** body not listed **
4802 }
4803 int_4 _ctrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_,
4804 complex_8 _p_ x_, int_4 _p_ incx_)
4805 { // ** body not listed **
5019 }
5020 int_4 _ctrsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_8
5021 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
5022 { // ** body not listed **
5295 }
5296 int_4 _ctrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_,
5297 complex_8 _p_ x_, int_4 _p_ incx_)
5298 { // ** body not listed **
5512 }
5513 real_8 _dasum (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
5514 { // ** body not listed **
5556 }
5557 int_4 _daxpy (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
5558 { // ** body not listed **
5605 }
5606 real_8 _dcabs1 (complex_16 _p_ z_)
5607 { // ** body not listed **
5612 }
5613 int_4 _dcopy (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
5614 { // ** body not listed **
5661 }
5662 real_8 _ddot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
5663 { // ** body not listed **
5712 }
5713 int_4 _dgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ alpha_, real_8 _p_
5714 a_, int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
5715 { // ** body not listed **
5870 }
5871 int_4 _dgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8
5872 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
5873 { // ** body not listed **
6029 }
6030 int_4 _dgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_
6031 x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6032 { // ** body not listed **
6170 }
6171 int_4 _dger (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ y_, int_4 _p_
6172 incy_, real_8 _p_ a_, int_4 _p_ lda_)
6173 { // ** body not listed **
6239 }
6240 real_8 _dnrm2 (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_)
6241 { // ** body not listed **
6273 }
6274 int_4 _drot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_, real_8 _p_ c_, real_8 _p_
6275 s_)
6276 { // ** body not listed **
6310 }
6311 int_4 _drotg (real_8 _p_ da_, real_8 _p_ db_, real_8 _p_ c_, real_8 _p_ s_)
6312 { // ** body not listed **
6351 }
6352 int_4 _drotm (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_, real_8 _p_ dparam_)
6353 { // ** body not listed **
6479 }
6480 int_4 _drotmg (real_8 _p_ dd1_, real_8 _p_ dd2_, real_8 _p_ dx1_, real_8 _p_ dy1_, real_8 _p_ dparam_)
6481 { // ** body not listed **
6692 }
6693 int_4 _dsbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_
6694 x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6695 { // ** body not listed **
6848 }
6849 int_4 _dscal (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_)
6850 { // ** body not listed **
6886 }
6887 real_8 _dsdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
6888 { // ** body not listed **
6920 }
6921 int_4 _dspmv (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ ap_, real_8 _p_ x_, int_4 _p_ incx_, real_8
6922 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6923 { // ** body not listed **
7070 }
7071 int_4 _dspr2 (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ y_, int_4 _p_
7072 incy_, real_8 _p_ ap_)
7073 { // ** body not listed **
7186 }
7187 int_4 _dspr (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ ap_)
7188 { // ** body not listed **
7280 }
7281 int_4 _dswap (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
7282 { // ** body not listed **
7336 }
7337 int_4 _dsymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_
7338 lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
7339 { // ** body not listed **
7483 }
7484 int_4 _dsymv (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_
7485 incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
7486 { // ** body not listed **
7627 }
7628 int_4 _dsyr2 (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ y_, int_4 _p_
7629 incy_, real_8 _p_ a_, int_4 _p_ lda_)
7630 { // ** body not listed **
7739 }
7740 int_4 _dsyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_
7741 lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
7742 { // ** body not listed **
7912 }
7913 int_4 _dsyr (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ a_, int_4 _p_
7914 lda_)
7915 { // ** body not listed **
8001 }
8002 int_4 _dsyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_
8003 lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
8004 { // ** body not listed **
8163 }
8164 int_4 _dtbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_
8165 lda_, real_8 _p_ x_, int_4 _p_ incx_)
8166 { // ** body not listed **
8359 }
8360 int_4 _dtbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_
8361 lda_, real_8 _p_ x_, int_4 _p_ incx_)
8362 { // ** body not listed **
8555 }
8556 int_4 _dtpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ ap_, real_8 _p_ x_, int_4 _p_
8557 incx_)
8558 { // ** body not listed **
8746 }
8747 int_4 _dtpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ ap_, real_8 _p_ x_, int_4 _p_
8748 incx_)
8749 { // ** body not listed **
8937 }
8938 int_4 _dtrmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_
8939 alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
8940 { // ** body not listed **
9156 }
9157 int_4 _dtrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_
9158 x_, int_4 _p_ incx_)
9159 { // ** body not listed **
9330 }
9331 int_4 _dtrsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_
9332 alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
9333 { // ** body not listed **
9565 }
9566 int_4 _dtrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_
9567 x_, int_4 _p_ incx_)
9568 { // ** body not listed **
9739 }
9740 real_8 _dzasum (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
9741 { // ** body not listed **
9768 }
9769 real_8 _dznrm2 (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_)
9770 { // ** body not listed **
9809 }
9810 int_4 _icamax (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
9811 { // ** body not listed **
9852 }
9853 int_4 _idamax (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
9854 { // ** body not listed **
9897 }
9898 int_4 _isamax (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
9899 { // ** body not listed **
9940 }
9941 int_4 _izamax (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
9942 { // ** body not listed **
9983 }
9984 real_4 _sasum (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
9985 { // ** body not listed **
10025 }
10026 int_4 _saxpy (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10027 { // ** body not listed **
10074 }
10075 real_4 _scabs1 (complex_8 _p_ z_)
10076 { // ** body not listed **
10081 }
10082 real_4 _scasum (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
10083 { // ** body not listed **
10109 }
10110 real_4 _scnrm2 (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_)
10111 { // ** body not listed **
10150 }
10151 int_4 _scopy (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10152 { // ** body not listed **
10199 }
10200 real_4 _sdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10201 { // ** body not listed **
10250 }
10251 real_4 _sdsdot (int_4 _p_ n_, real_4 _p_ sb_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10252 { // ** body not listed **
10288 }
10289 int_4 _sgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ alpha_, real_4 _p_
10290 a_, int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
10291 { // ** body not listed **
10446 }
10447 int_4 _sgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4
10448 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
10449 { // ** body not listed **
10605 }
10606 int_4 _sgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_
10607 x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
10608 { // ** body not listed **
10746 }
10747 int_4 _sger (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ y_, int_4 _p_
10748 incy_, real_4 _p_ a_, int_4 _p_ lda_)
10749 { // ** body not listed **
10815 }
10816 real_4 _snrm2 (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_)
10817 { // ** body not listed **
10849 }
10850 int_4 _srot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_, real_4 _p_ c_, real_4 _p_
10851 s_)
10852 { // ** body not listed **
10886 }
10887 int_4 _srotg (real_4 _p_ sa_, real_4 _p_ sb_, real_4 _p_ c_, real_4 _p_ s_)
10888 { // ** body not listed **
10921 }
10922 int_4 _srotm (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_, real_4 _p_ sparam_)
10923 { // ** body not listed **
11049 }
11050 int_4 _srotmg (real_4 _p_ sd1_, real_4 _p_ sd2_, real_4 _p_ sx1_, real_4 _p_ sy1_, real_4 _p_ sparam_)
11051 { // ** body not listed **
11260 }
11261 int_4 _ssbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_
11262 x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
11263 { // ** body not listed **
11416 }
11417 int_4 _sscal (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_)
11418 { // ** body not listed **
11454 }
11455 int_4 _sspmv (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ ap_, real_4 _p_ x_, int_4 _p_ incx_, real_4
11456 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
11457 { // ** body not listed **
11604 }
11605 int_4 _sspr2 (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ y_, int_4 _p_
11606 incy_, real_4 _p_ ap_)
11607 { // ** body not listed **
11720 }
11721 int_4 _sspr (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ ap_)
11722 { // ** body not listed **
11814 }
11815 int_4 _sswap (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
11816 { // ** body not listed **
11870 }
11871 int_4 _ssymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_
11872 lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
11873 { // ** body not listed **
12017 }
12018 int_4 _ssymv (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_
12019 incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
12020 { // ** body not listed **
12161 }
12162 int_4 _ssyr2 (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ y_, int_4 _p_
12163 incy_, real_4 _p_ a_, int_4 _p_ lda_)
12164 { // ** body not listed **
12273 }
12274 int_4 _ssyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_
12275 lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
12276 { // ** body not listed **
12446 }
12447 int_4 _ssyr (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ a_, int_4 _p_
12448 lda_)
12449 { // ** body not listed **
12535 }
12536 int_4 _ssyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_
12537 lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
12538 { // ** body not listed **
12697 }
12698 int_4 _stbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ a_, int_4 _p_
12699 lda_, real_4 _p_ x_, int_4 _p_ incx_)
12700 { // ** body not listed **
12893 }
12894 int_4 _stbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ a_, int_4 _p_
12895 lda_, real_4 _p_ x_, int_4 _p_ incx_)
12896 { // ** body not listed **
13089 }
13090 int_4 _stpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ ap_, real_4 _p_ x_, int_4 _p_
13091 incx_)
13092 { // ** body not listed **
13280 }
13281 int_4 _stpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ ap_, real_4 _p_ x_, int_4 _p_
13282 incx_)
13283 { // ** body not listed **
13471 }
13472 int_4 _strmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_
13473 alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
13474 { // ** body not listed **
13690 }
13691 int_4 _strmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_
13692 x_, int_4 _p_ incx_)
13693 { // ** body not listed **
13864 }
13865 int_4 _strsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_
13866 alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
13867 { // ** body not listed **
14099 }
14100 int_4 _strsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_
14101 x_, int_4 _p_ incx_)
14102 { // ** body not listed **
14273 }
14274 int_4 _zaxpy (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_
14275 incy_)
14276 { // ** body not listed **
14308 }
14309 int_4 _zcopy (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14310 { // ** body not listed **
14339 }
14340 complex_16 _zdotc (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14341 { // ** body not listed **
14378 }
14379 complex_16 _zdotu (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14380 { // ** body not listed **
14415 }
14416 int_4 _zdrot (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_, complex_16 _p_ cy_, int_4 _p_ incy_, real_8 _p_ c_,
14417 real_8 _p_ s_)
14418 { // ** body not listed **
14452 }
14453 int_4 _zdscal (int_4 _p_ n_, real_8 _p_ da_, complex_16 _p_ zx_, int_4 _p_ incx_)
14454 { // ** body not listed **
14475 }
14476 int_4 _zgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_16 _p_ alpha_,
14477 complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4
14478 _p_ incy_)
14479 { // ** body not listed **
14653 }
14654 int_4 _zgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_,
14655 complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4
14656 _p_ ldc_)
14657 { // ** body not listed **
14909 }
14910 int_4 _zgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_,
14911 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
14912 { // ** body not listed **
15069 }
15070 int_4 _zgerc (int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ y_,
15071 int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15072 { // ** body not listed **
15140 }
15141 int_4 _zgeru (int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ y_,
15142 int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15143 { // ** body not listed **
15209 }
15210 int_4 _zhbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_,
15211 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15212 { // ** body not listed **
15367 }
15368 int_4 _zhemm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_,
15369 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
15370 { // ** body not listed **
15518 }
15519 int_4 _zhemv (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ x_
15520 , int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15521 { // ** body not listed **
15664 }
15665 int_4 _zher2 (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_
15666 y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15667 { // ** body not listed **
15799 }
15800 int_4 _zher2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_,
15801 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
15802 { // ** body not listed **
16013 }
16014 int_4 _zher (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ a_,
16015 int_4 _p_ lda_)
16016 { // ** body not listed **
16124 }
16125 int_4 _zherk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, complex_16 _p_ a_, int_4
16126 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
16127 { // ** body not listed **
16327 }
16328 int_4 _zhpmv (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ ap_, complex_16 _p_ x_, int_4 _p_
16329 incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
16330 { // ** body not listed **
16479 }
16480 int_4 _zhpr2 (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_
16481 y_, int_4 _p_ incy_, complex_16 _p_ ap_)
16482 { // ** body not listed **
16616 }
16617 int_4 _zhpr (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ ap_)
16618 { // ** body not listed **
16728 }
16729 int_4 _zrotg (complex_16 _p_ ca_, complex_16 _p_ cb_, real_8 _p_ c_, complex_16 _p_ s_)
16730 { // ** body not listed **
16759 }
16760 int_4 _zscal (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_)
16761 { // ** body not listed **
16782 }
16783 int_4 _zswap (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
16784 { // ** body not listed **
16818 }
16819 int_4 _zsymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_,
16820 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
16821 { // ** body not listed **
16965 }
16966 int_4 _zsyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_,
16967 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
16968 { // ** body not listed **
17140 }
17141 int_4 _zsyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_,
17142 int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
17143 { // ** body not listed **
17302 }
17303 int_4 _ztbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ a_, int_4 _p_
17304 lda_, complex_16 _p_ x_, int_4 _p_ incx_)
17305 { // ** body not listed **
17543 }
17544 int_4 _ztbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ a_, int_4 _p_
17545 lda_, complex_16 _p_ x_, int_4 _p_ incx_)
17546 { // ** body not listed **
17784 }
17785 int_4 _ztpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_,
17786 int_4 _p_ incx_)
17787 { // ** body not listed **
18022 }
18023 int_4 _ztpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_,
18024 int_4 _p_ incx_)
18025 { // ** body not listed **
18260 }
18261 int_4 _ztrmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_16
18262 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
18263 { // ** body not listed **
18522 }
18523 int_4 _ztrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_,
18524 complex_16 _p_ x_, int_4 _p_ incx_)
18525 { // ** body not listed **
18741 }
18742 int_4 _ztrsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_16
18743 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
18744 { // ** body not listed **
19019 }
19020 int_4 _ztrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_,
19021 complex_16 _p_ x_, int_4 _p_ incx_)
19022 { // ** body not listed **
19238 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
