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.17
88 */
89 #if defined (__GNUC__)
90 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
91 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
92 #if (__GNUC__ >= 14)
93 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
94 #pragma GCC diagnostic ignored "-Wimplicit-int"
95 #pragma GCC diagnostic ignored "-Wint-conversion"
96 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
97 #endif
98 #else
99 #error VIF requires GCC
100 #endif
209 static CALLS __calls[__ncalls] = {
210 {"caxpy", 0}, // subroutine
211 {"ccopy", 0}, // subroutine
212 {"cdotc", 0}, // complex*8 function
213 {"cdotu", 0}, // complex*8 function
214 {"cgbmv", 0}, // subroutine
215 {"cgemm", 0}, // subroutine
216 {"cgemv", 0}, // subroutine
217 {"cgerc", 0}, // subroutine
218 {"cgeru", 0}, // subroutine
219 {"chbmv", 0}, // subroutine
220 {"chemm", 0}, // subroutine
221 {"chemv", 0}, // subroutine
222 {"cher2", 0}, // subroutine
223 {"cher2k", 0}, // subroutine
224 {"cher", 0}, // subroutine
225 {"cherk", 0}, // subroutine
226 {"chpmv", 0}, // subroutine
227 {"chpr2", 0}, // subroutine
228 {"chpr", 0}, // subroutine
229 {"crotg", 0}, // subroutine
230 {"cscal", 0}, // subroutine
231 {"csrot", 0}, // subroutine
232 {"csscal", 0}, // subroutine
233 {"cswap", 0}, // subroutine
234 {"csymm", 0}, // subroutine
235 {"csyr2k", 0}, // subroutine
236 {"csyrk", 0}, // subroutine
237 {"ctbmv", 0}, // subroutine
238 {"ctbsv", 0}, // subroutine
239 {"ctpmv", 0}, // subroutine
240 {"ctpsv", 0}, // subroutine
241 {"ctrmm", 0}, // subroutine
242 {"ctrmv", 0}, // subroutine
243 {"ctrsm", 0}, // subroutine
244 {"ctrsv", 0}, // subroutine
245 {"dasum", 0}, // real*8 function
246 {"daxpy", 0}, // subroutine
247 {"dcabs1", 0}, // real*8 function
248 {"dcopy", 0}, // subroutine
249 {"ddot", 0}, // real*8 function
250 {"dgbmv", 0}, // subroutine
251 {"dgemm", 0}, // subroutine
252 {"dgemv", 0}, // subroutine
253 {"dger", 0}, // subroutine
254 {"dnrm2", 0}, // real*8 function
255 {"drot", 0}, // subroutine
256 {"drotg", 0}, // subroutine
257 {"drotm", 0}, // subroutine
258 {"drotmg", 0}, // subroutine
259 {"dsbmv", 0}, // subroutine
260 {"dscal", 0}, // subroutine
261 {"dsdot", 0}, // real*8 function
262 {"dspmv", 0}, // subroutine
263 {"dspr2", 0}, // subroutine
264 {"dspr", 0}, // subroutine
265 {"dswap", 0}, // subroutine
266 {"dsymm", 0}, // subroutine
267 {"dsymv", 0}, // subroutine
268 {"dsyr2", 0}, // subroutine
269 {"dsyr2k", 0}, // subroutine
270 {"dsyr", 0}, // subroutine
271 {"dsyrk", 0}, // subroutine
272 {"dtbmv", 0}, // subroutine
273 {"dtbsv", 0}, // subroutine
274 {"dtpmv", 0}, // subroutine
275 {"dtpsv", 0}, // subroutine
276 {"dtrmm", 0}, // subroutine
277 {"dtrmv", 0}, // subroutine
278 {"dtrsm", 0}, // subroutine
279 {"dtrsv", 0}, // subroutine
280 {"dzasum", 0}, // real*8 function
281 {"dznrm2", 0}, // real*8 function
282 {"icamax", 0}, // integer*4 function
283 {"idamax", 0}, // integer*4 function
284 {"isamax", 0}, // integer*4 function
285 {"izamax", 0}, // integer*4 function
286 {"sasum", 0}, // real*4 function
287 {"saxpy", 0}, // subroutine
288 {"scabs1", 0}, // real*4 function
289 {"scasum", 0}, // real*4 function
290 {"scnrm2", 0}, // real*4 function
291 {"scopy", 0}, // subroutine
292 {"sdot", 0}, // real*4 function
293 {"sdsdot", 0}, // real*4 function
294 {"sgbmv", 0}, // subroutine
295 {"sgemm", 0}, // subroutine
296 {"sgemv", 0}, // subroutine
297 {"sger", 0}, // subroutine
298 {"snrm2", 0}, // real*4 function
299 {"srot", 0}, // subroutine
300 {"srotg", 0}, // subroutine
301 {"srotm", 0}, // subroutine
302 {"srotmg", 0}, // subroutine
303 {"ssbmv", 0}, // subroutine
304 {"sscal", 0}, // subroutine
305 {"sspmv", 0}, // subroutine
306 {"sspr2", 0}, // subroutine
307 {"sspr", 0}, // subroutine
308 {"sswap", 0}, // subroutine
309 {"ssymm", 0}, // subroutine
310 {"ssymv", 0}, // subroutine
311 {"ssyr2", 0}, // subroutine
312 {"ssyr2k", 0}, // subroutine
313 {"ssyr", 0}, // subroutine
314 {"ssyrk", 0}, // subroutine
315 {"stbmv", 0}, // subroutine
316 {"stbsv", 0}, // subroutine
317 {"stpmv", 0}, // subroutine
318 {"stpsv", 0}, // subroutine
319 {"strmm", 0}, // subroutine
320 {"strmv", 0}, // subroutine
321 {"strsm", 0}, // subroutine
322 {"strsv", 0}, // subroutine
323 {"zaxpy", 0}, // subroutine
324 {"zcopy", 0}, // subroutine
325 {"zdotc", 0}, // complex*16 function
326 {"zdotu", 0}, // complex*16 function
327 {"zdrot", 0}, // subroutine
328 {"zdscal", 0}, // subroutine
329 {"zgbmv", 0}, // subroutine
330 {"zgemm", 0}, // subroutine
331 {"zgemv", 0}, // subroutine
332 {"zgerc", 0}, // subroutine
333 {"zgeru", 0}, // subroutine
334 {"zhbmv", 0}, // subroutine
335 {"zhemm", 0}, // subroutine
336 {"zhemv", 0}, // subroutine
337 {"zher2", 0}, // subroutine
338 {"zher2k", 0}, // subroutine
339 {"zher", 0}, // subroutine
340 {"zherk", 0}, // subroutine
341 {"zhpmv", 0}, // subroutine
342 {"zhpr2", 0}, // subroutine
343 {"zhpr", 0}, // subroutine
344 {"zrotg", 0}, // subroutine
345 {"zscal", 0}, // subroutine
346 {"zswap", 0}, // subroutine
347 {"zsymm", 0}, // subroutine
348 {"zsyr2k", 0}, // subroutine
349 {"zsyrk", 0}, // subroutine
350 {"ztbmv", 0}, // subroutine
351 {"ztbsv", 0}, // subroutine
352 {"ztpmv", 0}, // subroutine
353 {"ztpsv", 0}, // subroutine
354 {"ztrmm", 0}, // subroutine
355 {"ztrmv", 0}, // subroutine
356 {"ztrsm", 0}, // subroutine
357 {"ztrsv", 0}, // subroutine
358 {NULL, 0}
359 };
360
362 _p_ incy_);
367 , 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_
368 incy_);
370 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_,
371 int_4 _p_ ldc_);
373 lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
375 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
377 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
379 lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
381 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_);
383 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
385 complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
387 _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_);
389 _p_ a_, int_4 _p_ lda_);
391 a_, int_4 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
393 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
395 complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ ap_);
397 _p_ ap_);
401 _p_ c_, real_4 _p_ s_);
405 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_);
407 _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_);
409 _p_ a_, int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
411 int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
413 int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
415 x_, int_4 _p_ incx_);
417 x_, int_4 _p_ incx_);
419 complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
421 , complex_8 _p_ x_, int_4 _p_ incx_);
423 complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
425 , complex_8 _p_ x_, int_4 _p_ incx_);
428 ;
433 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_);
435 , 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_);
437 real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
439 int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
442 real_8 _p_ s_);
445 dparam_);
448 real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
452 , real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
454 int_4 _p_ incy_, real_8 _p_ ap_);
456 ;
459 int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
461 int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
463 int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
465 int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
467 int_4 _p_ lda_);
469 int_4 _p_ lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
471 int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
473 int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
475 int_4 _p_ incx_);
477 int_4 _p_ incx_);
479 real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
481 real_8 _p_ x_, int_4 _p_ incx_);
483 real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
485 real_8 _p_ x_, int_4 _p_ incx_);
494 ;
501 incy_);
503 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_);
505 , 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_);
507 real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
509 int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
512 real_4 _p_ s_);
515 sparam_);
518 real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
521 , real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
523 int_4 _p_ incy_, real_4 _p_ ap_);
525 ;
528 int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
530 int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
532 int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
534 int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
536 int_4 _p_ lda_);
538 int_4 _p_ lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
540 int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
542 int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
544 int_4 _p_ incx_);
546 int_4 _p_ incx_);
548 real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
550 real_4 _p_ x_, int_4 _p_ incx_);
552 real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
554 real_4 _p_ x_, int_4 _p_ incx_);
556 int_4 _p_ incy_);
561 _p_ c_, real_8 _p_ s_);
564 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_,
565 int_4 _p_ incy_);
567 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_,
568 int_4 _p_ ldc_);
570 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
572 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
574 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
576 lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
578 _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_);
580 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
582 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
584 _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_);
586 _p_ a_, int_4 _p_ lda_);
588 a_, int_4 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
590 int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
592 complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ ap_);
594 _p_ ap_);
599 _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_);
601 _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_);
603 _p_ a_, int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
605 int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
607 int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
609 _p_ x_, int_4 _p_ incx_);
611 _p_ x_, int_4 _p_ incx_);
613 complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
615 lda_, complex_16 _p_ x_, int_4 _p_ incx_);
617 complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
619 lda_, complex_16 _p_ x_, int_4 _p_ incx_);
620 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_)
621 { // ** body not listed **
653 }
654
655 int_4 _ccopy (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
656 { // ** body not listed **
685 }
686
687 complex_8 _cdotc (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
688 { // ** body not listed **
723 }
724
725 complex_8 _cdotu (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
726 { // ** body not listed **
761 }
762
763 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_,
764 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_
765 incy_)
766 { // ** body not listed **
938 }
939
940 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_,
941 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_
942 ldc_)
943 { // ** body not listed **
1193 }
1194
1195 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_,
1196 complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1197 { // ** body not listed **
1352 }
1353
1354 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_,
1355 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1356 { // ** body not listed **
1422 }
1423
1424 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_,
1425 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1426 { // ** body not listed **
1492 }
1493
1494 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_,
1495 complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1496 { // ** body not listed **
1650 }
1651
1652 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
1653 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
1654 { // ** body not listed **
1800 }
1801
1802 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_,
1803 int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
1804 { // ** body not listed **
1945 }
1946
1947 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_,
1948 int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
1949 { // ** body not listed **
2078 }
2079
2080 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_,
2081 int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
2082 { // ** body not listed **
2290 }
2291
2292 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_,
2293 int_4 _p_ lda_)
2294 { // ** body not listed **
2400 }
2401
2402 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
2403 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
2404 { // ** body not listed **
2602 }
2603
2604 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_,
2605 complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
2606 { // ** body not listed **
2753 }
2754
2755 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_,
2756 int_4 _p_ incy_, complex_8 _p_ ap_)
2757 { // ** body not listed **
2888 }
2889
2890 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_)
2891 { // ** body not listed **
2999 }
3000
3001 int_4 _crotg (complex_8 _p_ ca_, complex_8 _p_ cb_, real_4 _p_ c_, complex_8 _p_ s_)
3002 { // ** body not listed **
3023 }
3024
3025 int_4 _cscal (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_)
3026 { // ** body not listed **
3046 }
3047
3048 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_,
3049 real_4 _p_ s_)
3050 { // ** body not listed **
3084 }
3085
3086 int_4 _csscal (int_4 _p_ n_, real_4 _p_ sa_, complex_8 _p_ cx_, int_4 _p_ incx_)
3087 { // ** body not listed **
3107 }
3108
3109 int_4 _cswap (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
3110 { // ** body not listed **
3144 }
3145
3146 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
3147 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3148 { // ** body not listed **
3292 }
3293
3294 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_,
3295 int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3296 { // ** body not listed **
3468 }
3469
3470 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_,
3471 int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
3472 { // ** body not listed **
3631 }
3632
3633 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_
3634 lda_, complex_8 _p_ x_, int_4 _p_ incx_)
3635 { // ** body not listed **
3871 }
3872
3873 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_
3874 lda_, complex_8 _p_ x_, int_4 _p_ incx_)
3875 { // ** body not listed **
4111 }
4112
4113 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
4114 _p_ incx_)
4115 { // ** body not listed **
4348 }
4349
4350 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
4351 _p_ incx_)
4352 { // ** body not listed **
4585 }
4586
4587 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
4588 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
4589 { // ** body not listed **
4846 }
4847
4848 int_4 _ctrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_,
4849 complex_8 _p_ x_, int_4 _p_ incx_)
4850 { // ** body not listed **
5064 }
5065
5066 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
5067 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
5068 { // ** body not listed **
5341 }
5342
5343 int_4 _ctrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_,
5344 complex_8 _p_ x_, int_4 _p_ incx_)
5345 { // ** body not listed **
5559 }
5560
5561 real_8 _dasum (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
5562 { // ** body not listed **
5604 }
5605
5606 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_)
5607 { // ** body not listed **
5654 }
5655 real_8 _dcabs1 (complex_16 _p_ z_)
5656 { // ** body not listed **
5661 }
5662
5663 int_4 _dcopy (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
5664 { // ** body not listed **
5711 }
5712 real_8 _ddot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
5713 { // ** body not listed **
5762 }
5763
5764 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_
5765 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_)
5766 { // ** body not listed **
5921 }
5922
5923 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
5924 _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_)
5925 { // ** body not listed **
6081 }
6082
6083 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_
6084 x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6085 { // ** body not listed **
6223 }
6224
6225 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_
6226 incy_, real_8 _p_ a_, int_4 _p_ lda_)
6227 { // ** body not listed **
6293 }
6294
6295 real_8 _dnrm2 (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_)
6296 { // ** body not listed **
6328 }
6329
6330 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_
6331 s_)
6332 { // ** body not listed **
6366 }
6367
6368 int_4 _drotg (real_8 _p_ da_, real_8 _p_ db_, real_8 _p_ c_, real_8 _p_ s_)
6369 { // ** body not listed **
6408 }
6409
6410 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_)
6411 { // ** body not listed **
6537 }
6538
6539 int_4 _drotmg (real_8 _p_ dd1_, real_8 _p_ dd2_, real_8 _p_ dx1_, real_8 _p_ dy1_, real_8 _p_ dparam_)
6540 { // ** body not listed **
6751 }
6752
6753 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_
6754 x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6755 { // ** body not listed **
6908 }
6909
6910 int_4 _dscal (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_)
6911 { // ** body not listed **
6947 }
6948
6949 real_8 _dsdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
6950 { // ** body not listed **
6982 }
6983
6984 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
6985 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
6986 { // ** body not listed **
7133 }
7134 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_
7135 incy_, real_8 _p_ ap_)
7136 { // ** body not listed **
7249 }
7250
7251 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_)
7252 { // ** body not listed **
7344 }
7345
7346 int_4 _dswap (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
7347 { // ** body not listed **
7401 }
7402
7403 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_
7404 lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
7405 { // ** body not listed **
7549 }
7550
7551 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_
7552 incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
7553 { // ** body not listed **
7694 }
7695
7696 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_
7697 incy_, real_8 _p_ a_, int_4 _p_ lda_)
7698 { // ** body not listed **
7807 }
7808
7809 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_
7810 lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
7811 { // ** body not listed **
7981 }
7982
7983 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_
7984 lda_)
7985 { // ** body not listed **
8071 }
8072
8073 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_
8074 lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
8075 { // ** body not listed **
8234 }
8235
8236 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_
8237 lda_, real_8 _p_ x_, int_4 _p_ incx_)
8238 { // ** body not listed **
8431 }
8432
8433 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_
8434 lda_, real_8 _p_ x_, int_4 _p_ incx_)
8435 { // ** body not listed **
8628 }
8629
8630 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_
8631 incx_)
8632 { // ** body not listed **
8820 }
8821
8822 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_
8823 incx_)
8824 { // ** body not listed **
9012 }
9013
9014 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_
9015 alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
9016 { // ** body not listed **
9232 }
9233
9234 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_
9235 x_, int_4 _p_ incx_)
9236 { // ** body not listed **
9407 }
9408
9409 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_
9410 alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
9411 { // ** body not listed **
9643 }
9644
9645 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_
9646 x_, int_4 _p_ incx_)
9647 { // ** body not listed **
9818 }
9819
9820 real_8 _dzasum (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
9821 { // ** body not listed **
9848 }
9849
9850 real_8 _dznrm2 (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_)
9851 { // ** body not listed **
9890 }
9891
9892 int_4 _icamax (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
9893 { // ** body not listed **
9934 }
9935
9936 int_4 _idamax (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
9937 { // ** body not listed **
9980 }
9981
9982 int_4 _isamax (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
9983 { // ** body not listed **
10024 }
10025
10026 int_4 _izamax (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
10027 { // ** body not listed **
10068 }
10069
10070 real_4 _sasum (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
10071 { // ** body not listed **
10111 }
10112
10113 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_)
10114 { // ** body not listed **
10161 }
10162 real_4 _scabs1 (complex_8 _p_ z_)
10163 { // ** body not listed **
10168 }
10169
10170 real_4 _scasum (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
10171 { // ** body not listed **
10197 }
10198
10199 real_4 _scnrm2 (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_)
10200 { // ** body not listed **
10239 }
10240
10241 int_4 _scopy (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10242 { // ** body not listed **
10289 }
10290 real_4 _sdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
10291 { // ** body not listed **
10340 }
10341
10342 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_)
10343 { // ** body not listed **
10379 }
10380
10381 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_
10382 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_)
10383 { // ** body not listed **
10538 }
10539
10540 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
10541 _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_)
10542 { // ** body not listed **
10698 }
10699
10700 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_
10701 x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
10702 { // ** body not listed **
10840 }
10841
10842 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_
10843 incy_, real_4 _p_ a_, int_4 _p_ lda_)
10844 { // ** body not listed **
10910 }
10911
10912 real_4 _snrm2 (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_)
10913 { // ** body not listed **
10945 }
10946
10947 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_
10948 s_)
10949 { // ** body not listed **
10983 }
10984
10985 int_4 _srotg (real_4 _p_ sa_, real_4 _p_ sb_, real_4 _p_ c_, real_4 _p_ s_)
10986 { // ** body not listed **
11019 }
11020
11021 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_)
11022 { // ** body not listed **
11148 }
11149
11150 int_4 _srotmg (real_4 _p_ sd1_, real_4 _p_ sd2_, real_4 _p_ sx1_, real_4 _p_ sy1_, real_4 _p_ sparam_)
11151 { // ** body not listed **
11360 }
11361
11362 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_
11363 x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
11364 { // ** body not listed **
11517 }
11518
11519 int_4 _sscal (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_)
11520 { // ** body not listed **
11556 }
11557
11558 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
11559 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
11560 { // ** body not listed **
11707 }
11708 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_
11709 incy_, real_4 _p_ ap_)
11710 { // ** body not listed **
11823 }
11824
11825 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_)
11826 { // ** body not listed **
11918 }
11919
11920 int_4 _sswap (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
11921 { // ** body not listed **
11975 }
11976
11977 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_
11978 lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
11979 { // ** body not listed **
12123 }
12124
12125 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_
12126 incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
12127 { // ** body not listed **
12268 }
12269
12270 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_
12271 incy_, real_4 _p_ a_, int_4 _p_ lda_)
12272 { // ** body not listed **
12381 }
12382
12383 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_
12384 lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
12385 { // ** body not listed **
12555 }
12556
12557 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_
12558 lda_)
12559 { // ** body not listed **
12645 }
12646
12647 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_
12648 lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
12649 { // ** body not listed **
12808 }
12809
12810 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_
12811 lda_, real_4 _p_ x_, int_4 _p_ incx_)
12812 { // ** body not listed **
13005 }
13006
13007 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_
13008 lda_, real_4 _p_ x_, int_4 _p_ incx_)
13009 { // ** body not listed **
13202 }
13203
13204 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_
13205 incx_)
13206 { // ** body not listed **
13394 }
13395
13396 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_
13397 incx_)
13398 { // ** body not listed **
13586 }
13587
13588 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_
13589 alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
13590 { // ** body not listed **
13806 }
13807
13808 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_
13809 x_, int_4 _p_ incx_)
13810 { // ** body not listed **
13981 }
13982
13983 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_
13984 alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
13985 { // ** body not listed **
14217 }
14218
14219 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_
14220 x_, int_4 _p_ incx_)
14221 { // ** body not listed **
14392 }
14393
14394 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_
14395 incy_)
14396 { // ** body not listed **
14428 }
14429
14430 int_4 _zcopy (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14431 { // ** body not listed **
14460 }
14461
14462 complex_16 _zdotc (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14463 { // ** body not listed **
14500 }
14501
14502 complex_16 _zdotu (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
14503 { // ** body not listed **
14538 }
14539
14540 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_,
14541 real_8 _p_ s_)
14542 { // ** body not listed **
14576 }
14577
14578 int_4 _zdscal (int_4 _p_ n_, real_8 _p_ da_, complex_16 _p_ zx_, int_4 _p_ incx_)
14579 { // ** body not listed **
14600 }
14601
14602 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_,
14603 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
14604 _p_ incy_)
14605 { // ** body not listed **
14779 }
14780
14781 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_,
14782 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
14783 _p_ ldc_)
14784 { // ** body not listed **
15036 }
15037
15038 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_,
15039 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15040 { // ** body not listed **
15197 }
15198
15199 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_,
15200 int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15201 { // ** body not listed **
15269 }
15270
15271 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_,
15272 int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15273 { // ** body not listed **
15339 }
15340
15341 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_,
15342 complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15343 { // ** body not listed **
15498 }
15499
15500 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_,
15501 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
15502 { // ** body not listed **
15650 }
15651
15652 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_
15653 , int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
15654 { // ** body not listed **
15797 }
15798
15799 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_
15800 y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
15801 { // ** body not listed **
15933 }
15934
15935 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_,
15936 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
15937 { // ** body not listed **
16148 }
16149
16150 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_,
16151 int_4 _p_ lda_)
16152 { // ** body not listed **
16260 }
16261
16262 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
16263 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
16264 { // ** body not listed **
16464 }
16465
16466 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_
16467 incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
16468 { // ** body not listed **
16617 }
16618
16619 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_
16620 y_, int_4 _p_ incy_, complex_16 _p_ ap_)
16621 { // ** body not listed **
16755 }
16756
16757 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_)
16758 { // ** body not listed **
16868 }
16869
16870 int_4 _zrotg (complex_16 _p_ ca_, complex_16 _p_ cb_, real_8 _p_ c_, complex_16 _p_ s_)
16871 { // ** body not listed **
16900 }
16901
16902 int_4 _zscal (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_)
16903 { // ** body not listed **
16924 }
16925
16926 int_4 _zswap (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
16927 { // ** body not listed **
16961 }
16962
16963 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_,
16964 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
16965 { // ** body not listed **
17109 }
17110
17111 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_,
17112 int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
17113 { // ** body not listed **
17285 }
17286
17287 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_,
17288 int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
17289 { // ** body not listed **
17448 }
17449
17450 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_
17451 lda_, complex_16 _p_ x_, int_4 _p_ incx_)
17452 { // ** body not listed **
17690 }
17691
17692 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_
17693 lda_, complex_16 _p_ x_, int_4 _p_ incx_)
17694 { // ** body not listed **
17932 }
17933
17934 int_4 _ztpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_,
17935 int_4 _p_ incx_)
17936 { // ** body not listed **
18171 }
18172
18173 int_4 _ztpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_,
18174 int_4 _p_ incx_)
18175 { // ** body not listed **
18410 }
18411
18412 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
18413 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
18414 { // ** body not listed **
18673 }
18674
18675 int_4 _ztrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_,
18676 complex_16 _p_ x_, int_4 _p_ incx_)
18677 { // ** body not listed **
18893 }
18894
18895 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
18896 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
18897 { // ** body not listed **
19172 }
19173
19174 int_4 _ztrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_,
19175 complex_16 _p_ x_, int_4 _p_ incx_)
19176 { // ** body not listed **
19392 }
19393
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|