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.12
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 };
348
350 _p_ incy_);
355 , 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_
356 incy_);
358 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_,
359 int_4 _p_ ldc_);
361 lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
363 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
365 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
367 lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
369 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_);
371 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
373 complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
375 _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_);
377 _p_ a_, int_4 _p_ lda_);
379 a_, int_4 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
381 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
383 complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ ap_);
385 _p_ ap_);
389 _p_ c_, real_4 _p_ s_);
393 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_);
395 _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_);
397 _p_ a_, int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
399 int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
401 int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
403 x_, int_4 _p_ incx_);
405 x_, int_4 _p_ incx_);
407 complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
409 , complex_8 _p_ x_, int_4 _p_ incx_);
411 complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
413 , complex_8 _p_ x_, int_4 _p_ incx_);
416 ;
421 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_);
423 , 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_);
425 real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
427 int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
430 real_8 _p_ s_);
433 dparam_);
436 real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
440 , real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
442 int_4 _p_ incy_, real_8 _p_ ap_);
444 ;
447 int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
449 int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
451 int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
453 int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
455 int_4 _p_ lda_);
457 int_4 _p_ lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
459 int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
461 int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
463 int_4 _p_ incx_);
465 int_4 _p_ incx_);
467 real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
469 real_8 _p_ x_, int_4 _p_ incx_);
471 real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
473 real_8 _p_ x_, int_4 _p_ incx_);
482 ;
489 incy_);
491 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_);
493 , 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_);
495 real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
497 int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
500 real_4 _p_ s_);
503 sparam_);
506 real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
509 , real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
511 int_4 _p_ incy_, real_4 _p_ ap_);
513 ;
516 int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
518 int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
520 int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
522 int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
524 int_4 _p_ lda_);
526 int_4 _p_ lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
528 int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
530 int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
532 int_4 _p_ incx_);
534 int_4 _p_ incx_);
536 real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
538 real_4 _p_ x_, int_4 _p_ incx_);
540 real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
542 real_4 _p_ x_, int_4 _p_ incx_);
544 int_4 _p_ incy_);
549 _p_ c_, real_8 _p_ s_);
552 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_,
553 int_4 _p_ incy_);
555 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_,
556 int_4 _p_ ldc_);
558 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
560 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
562 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
564 lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
566 _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_);
568 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
570 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
572 _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_);
574 _p_ a_, int_4 _p_ lda_);
576 a_, int_4 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
578 int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
580 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ ap_);
582 _p_ ap_);
587 _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_);
589 _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_);
591 _p_ a_, int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
593 int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
595 int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
597 _p_ x_, int_4 _p_ incx_);
599 _p_ x_, int_4 _p_ incx_);
601 complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
603 lda_, complex_16 _p_ x_, int_4 _p_ incx_);
605 complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
607 lda_, complex_16 _p_ x_, int_4 _p_ incx_);
608 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_)
609 { // ** body not listed **
641 }
642
643 int_4 _ccopy (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
644 { // ** body not listed **
673 }
674
675 complex_8 _cdotc (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
676 { // ** body not listed **
711 }
712
713 complex_8 _cdotu (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
714 { // ** body not listed **
749 }
750
751 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_,
752 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_
753 incy_)
754 { // ** body not listed **
926 }
927
928 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_,
929 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_
930 ldc_)
931 { // ** body not listed **
1181 }
1182
1183 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_,
1184 complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1185 { // ** body not listed **
1340 }
1341
1342 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_,
1343 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1344 { // ** body not listed **
1410 }
1411
1412 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_,
1413 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1414 { // ** body not listed **
1480 }
1481
1482 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_,
1483 complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1484 { // ** body not listed **
1638 }
1639
1640 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
1641 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
1642 { // ** body not listed **
1788 }
1789
1790 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_,
1791 int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1792 { // ** body not listed **
1933 }
1934
1935 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_,
1936 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1937 { // ** body not listed **
2066 }
2067
2068 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_,
2069 int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
2070 { // ** body not listed **
2278 }
2279
2280 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_,
2281 int_4 _p_ lda_)
2282 { // ** body not listed **
2388 }
2389
2390 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
2391 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
2392 { // ** body not listed **
2590 }
2591
2592 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_,
2593 complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
2594 { // ** body not listed **
2741 }
2742
2743 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_,
2744 int_4 _p_ incy_, complex_8 _p_ ap_)
2745 { // ** body not listed **
2876 }
2877
2878 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_)
2879 { // ** body not listed **
2987 }
2988
2989 int_4 _crotg (complex_8 _p_ ca_, complex_8 _p_ cb_, real_4 _p_ c_, complex_8 _p_ s_)
2990 { // ** body not listed **
3011 }
3012
3013 int_4 _cscal (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_)
3014 { // ** body not listed **
3034 }
3035
3036 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_,
3037 real_4 _p_ s_)
3038 { // ** body not listed **
3072 }
3073
3074 int_4 _csscal (int_4 _p_ n_, real_4 _p_ sa_, complex_8 _p_ cx_, int_4 _p_ incx_)
3075 { // ** body not listed **
3095 }
3096
3097 int_4 _cswap (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
3098 { // ** body not listed **
3132 }
3133
3134 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
3135 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3136 { // ** body not listed **
3280 }
3281
3282 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_,
3283 int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3284 { // ** body not listed **
3456 }
3457
3458 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_,
3459 int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3460 { // ** body not listed **
3619 }
3620
3621 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_
3622 lda_, complex_8 _p_ x_, int_4 _p_ incx_)
3623 { // ** body not listed **
3859 }
3860
3861 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_
3862 lda_, complex_8 _p_ x_, int_4 _p_ incx_)
3863 { // ** body not listed **
4099 }
4100
4101 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
4102 _p_ incx_)
4103 { // ** body not listed **
4336 }
4337
4338 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
4339 _p_ incx_)
4340 { // ** body not listed **
4573 }
4574
4575 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
4576 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
4577 { // ** body not listed **
4834 }
4835
4836 int_4 _ctrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_,
4837 complex_8 _p_ x_, int_4 _p_ incx_)
4838 { // ** body not listed **
5052 }
5053
5054 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
5055 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
5056 { // ** body not listed **
5329 }
5330
5331 int_4 _ctrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_,
5332 complex_8 _p_ x_, int_4 _p_ incx_)
5333 { // ** body not listed **
5547 }
5548
5549 real_8 _dasum (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
5550 { // ** body not listed **
5592 }
5593
5594 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_)
5595 { // ** body not listed **
5642 }
5643 real_8 _dcabs1 (complex_16 _p_ z_)
5644 { // ** body not listed **
5649 }
5650
5651 int_4 _dcopy (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
5652 { // ** body not listed **
5699 }
5700 real_8 _ddot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
5701 { // ** body not listed **
5750 }
5751
5752 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_
5753 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_)
5754 { // ** body not listed **
5909 }
5910
5911 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
5912 _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_)
5913 { // ** body not listed **
6069 }
6070
6071 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_
6072 x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6073 { // ** body not listed **
6211 }
6212
6213 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_
6214 incy_, real_8 _p_ a_, int_4 _p_ lda_)
6215 { // ** body not listed **
6281 }
6282
6283 real_8 _dnrm2 (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_)
6284 { // ** body not listed **
6316 }
6317
6318 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_
6319 s_)
6320 { // ** body not listed **
6354 }
6355
6356 int_4 _drotg (real_8 _p_ da_, real_8 _p_ db_, real_8 _p_ c_, real_8 _p_ s_)
6357 { // ** body not listed **
6396 }
6397
6398 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_)
6399 { // ** body not listed **
6525 }
6526
6527 int_4 _drotmg (real_8 _p_ dd1_, real_8 _p_ dd2_, real_8 _p_ dx1_, real_8 _p_ dy1_, real_8 _p_ dparam_)
6528 { // ** body not listed **
6739 }
6740
6741 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_
6742 x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6743 { // ** body not listed **
6896 }
6897
6898 int_4 _dscal (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_)
6899 { // ** body not listed **
6935 }
6936
6937 real_8 _dsdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
6938 { // ** body not listed **
6970 }
6971
6972 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
6973 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6974 { // ** body not listed **
7121 }
7122 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_
7123 incy_, real_8 _p_ ap_)
7124 { // ** body not listed **
7237 }
7238
7239 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_)
7240 { // ** body not listed **
7332 }
7333
7334 int_4 _dswap (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
7335 { // ** body not listed **
7389 }
7390
7391 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_
7392 lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
7393 { // ** body not listed **
7537 }
7538
7539 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_
7540 incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
7541 { // ** body not listed **
7682 }
7683
7684 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_
7685 incy_, real_8 _p_ a_, int_4 _p_ lda_)
7686 { // ** body not listed **
7795 }
7796
7797 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_
7798 lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
7799 { // ** body not listed **
7969 }
7970
7971 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_
7972 lda_)
7973 { // ** body not listed **
8059 }
8060
8061 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_
8062 lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
8063 { // ** body not listed **
8222 }
8223
8224 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_
8225 lda_, real_8 _p_ x_, int_4 _p_ incx_)
8226 { // ** body not listed **
8419 }
8420
8421 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_
8422 lda_, real_8 _p_ x_, int_4 _p_ incx_)
8423 { // ** body not listed **
8616 }
8617
8618 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_
8619 incx_)
8620 { // ** body not listed **
8808 }
8809
8810 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_
8811 incx_)
8812 { // ** body not listed **
9000 }
9001
9002 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_
9003 alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
9004 { // ** body not listed **
9220 }
9221
9222 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_
9223 x_, int_4 _p_ incx_)
9224 { // ** body not listed **
9395 }
9396
9397 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_
9398 alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
9399 { // ** body not listed **
9631 }
9632
9633 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_
9634 x_, int_4 _p_ incx_)
9635 { // ** body not listed **
9806 }
9807
9808 real_8 _dzasum (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
9809 { // ** body not listed **
9836 }
9837
9838 real_8 _dznrm2 (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_)
9839 { // ** body not listed **
9878 }
9879
9880 int_4 _icamax (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
9881 { // ** body not listed **
9922 }
9923
9924 int_4 _idamax (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
9925 { // ** body not listed **
9968 }
9969
9970 int_4 _isamax (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
9971 { // ** body not listed **
10012 }
10013
10014 int_4 _izamax (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
10015 { // ** body not listed **
10056 }
10057
10058 real_4 _sasum (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
10059 { // ** body not listed **
10099 }
10100
10101 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_)
10102 { // ** body not listed **
10149 }
10150 real_4 _scabs1 (complex_8 _p_ z_)
10151 { // ** body not listed **
10156 }
10157
10158 real_4 _scasum (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
10159 { // ** body not listed **
10185 }
10186
10187 real_4 _scnrm2 (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_)
10188 { // ** body not listed **
10227 }
10228
10229 int_4 _scopy (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10230 { // ** body not listed **
10277 }
10278 real_4 _sdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10279 { // ** body not listed **
10328 }
10329
10330 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_)
10331 { // ** body not listed **
10367 }
10368
10369 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_
10370 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_)
10371 { // ** body not listed **
10526 }
10527
10528 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
10529 _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_)
10530 { // ** body not listed **
10686 }
10687
10688 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_
10689 x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
10690 { // ** body not listed **
10828 }
10829
10830 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_
10831 incy_, real_4 _p_ a_, int_4 _p_ lda_)
10832 { // ** body not listed **
10898 }
10899
10900 real_4 _snrm2 (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_)
10901 { // ** body not listed **
10933 }
10934
10935 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_
10936 s_)
10937 { // ** body not listed **
10971 }
10972
10973 int_4 _srotg (real_4 _p_ sa_, real_4 _p_ sb_, real_4 _p_ c_, real_4 _p_ s_)
10974 { // ** body not listed **
11007 }
11008
11009 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_)
11010 { // ** body not listed **
11136 }
11137
11138 int_4 _srotmg (real_4 _p_ sd1_, real_4 _p_ sd2_, real_4 _p_ sx1_, real_4 _p_ sy1_, real_4 _p_ sparam_)
11139 { // ** body not listed **
11348 }
11349
11350 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_
11351 x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
11352 { // ** body not listed **
11505 }
11506
11507 int_4 _sscal (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_)
11508 { // ** body not listed **
11544 }
11545
11546 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
11547 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
11548 { // ** body not listed **
11695 }
11696 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_
11697 incy_, real_4 _p_ ap_)
11698 { // ** body not listed **
11811 }
11812
11813 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_)
11814 { // ** body not listed **
11906 }
11907
11908 int_4 _sswap (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
11909 { // ** body not listed **
11963 }
11964
11965 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_
11966 lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
11967 { // ** body not listed **
12111 }
12112
12113 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_
12114 incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
12115 { // ** body not listed **
12256 }
12257
12258 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_
12259 incy_, real_4 _p_ a_, int_4 _p_ lda_)
12260 { // ** body not listed **
12369 }
12370
12371 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_
12372 lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
12373 { // ** body not listed **
12543 }
12544
12545 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_
12546 lda_)
12547 { // ** body not listed **
12633 }
12634
12635 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_
12636 lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
12637 { // ** body not listed **
12796 }
12797
12798 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_
12799 lda_, real_4 _p_ x_, int_4 _p_ incx_)
12800 { // ** body not listed **
12993 }
12994
12995 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_
12996 lda_, real_4 _p_ x_, int_4 _p_ incx_)
12997 { // ** body not listed **
13190 }
13191
13192 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_
13193 incx_)
13194 { // ** body not listed **
13382 }
13383
13384 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_
13385 incx_)
13386 { // ** body not listed **
13574 }
13575
13576 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_
13577 alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
13578 { // ** body not listed **
13794 }
13795
13796 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_
13797 x_, int_4 _p_ incx_)
13798 { // ** body not listed **
13969 }
13970
13971 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_
13972 alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
13973 { // ** body not listed **
14205 }
14206
14207 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_
14208 x_, int_4 _p_ incx_)
14209 { // ** body not listed **
14380 }
14381
14382 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_
14383 incy_)
14384 { // ** body not listed **
14416 }
14417
14418 int_4 _zcopy (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14419 { // ** body not listed **
14448 }
14449
14450 complex_16 _zdotc (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14451 { // ** body not listed **
14488 }
14489
14490 complex_16 _zdotu (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14491 { // ** body not listed **
14526 }
14527
14528 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_,
14529 real_8 _p_ s_)
14530 { // ** body not listed **
14564 }
14565
14566 int_4 _zdscal (int_4 _p_ n_, real_8 _p_ da_, complex_16 _p_ zx_, int_4 _p_ incx_)
14567 { // ** body not listed **
14588 }
14589
14590 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_,
14591 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
14592 _p_ incy_)
14593 { // ** body not listed **
14767 }
14768
14769 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_,
14770 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
14771 _p_ ldc_)
14772 { // ** body not listed **
15024 }
15025
15026 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_,
15027 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15028 { // ** body not listed **
15185 }
15186
15187 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_,
15188 int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15189 { // ** body not listed **
15257 }
15258
15259 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_,
15260 int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15261 { // ** body not listed **
15327 }
15328
15329 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_,
15330 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15331 { // ** body not listed **
15486 }
15487
15488 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_,
15489 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
15490 { // ** body not listed **
15638 }
15639
15640 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_
15641 , int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15642 { // ** body not listed **
15785 }
15786
15787 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_
15788 y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15789 { // ** body not listed **
15921 }
15922
15923 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_,
15924 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
15925 { // ** body not listed **
16136 }
16137
16138 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_,
16139 int_4 _p_ lda_)
16140 { // ** body not listed **
16248 }
16249
16250 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
16251 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
16252 { // ** body not listed **
16452 }
16453
16454 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_
16455 incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
16456 { // ** body not listed **
16605 }
16606
16607 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_
16608 y_, int_4 _p_ incy_, complex_16 _p_ ap_)
16609 { // ** body not listed **
16743 }
16744
16745 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_)
16746 { // ** body not listed **
16856 }
16857
16858 int_4 _zrotg (complex_16 _p_ ca_, complex_16 _p_ cb_, real_8 _p_ c_, complex_16 _p_ s_)
16859 { // ** body not listed **
16888 }
16889
16890 int_4 _zscal (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_)
16891 { // ** body not listed **
16912 }
16913
16914 int_4 _zswap (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
16915 { // ** body not listed **
16949 }
16950
16951 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_,
16952 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
16953 { // ** body not listed **
17097 }
17098
17099 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_,
17100 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
17101 { // ** body not listed **
17273 }
17274
17275 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_,
17276 int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
17277 { // ** body not listed **
17436 }
17437
17438 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_
17439 lda_, complex_16 _p_ x_, int_4 _p_ incx_)
17440 { // ** body not listed **
17678 }
17679
17680 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_
17681 lda_, complex_16 _p_ x_, int_4 _p_ incx_)
17682 { // ** body not listed **
17920 }
17921
17922 int_4 _ztpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_,
17923 int_4 _p_ incx_)
17924 { // ** body not listed **
18159 }
18160
18161 int_4 _ztpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_,
18162 int_4 _p_ incx_)
18163 { // ** body not listed **
18398 }
18399
18400 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
18401 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
18402 { // ** body not listed **
18661 }
18662
18663 int_4 _ztrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_,
18664 complex_16 _p_ x_, int_4 _p_ incx_)
18665 { // ** body not listed **
18881 }
18882
18883 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
18884 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
18885 { // ** body not listed **
19160 }
19161
19162 int_4 _ztrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_,
19163 complex_16 _p_ x_, int_4 _p_ incx_)
19164 { // ** body not listed **
19380 }
19381
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|