61 pure subroutine zswap(n, x, incx, y, incy)
63 integer(
IK) ,
intent(in) :: n, incx, incy
64 complex(TKG),
intent(inout) :: x(
*), y(
*)
66 pure subroutine cswap(n, x, incx, y, incy)
68 integer(
IK) ,
intent(in) :: n, incx, incy
69 complex(TKG),
intent(inout) :: x(
*), y(
*)
71 pure subroutine dswap(n, x, incx, y, incy)
73 integer(
IK) ,
intent(in) :: n, incx, incy
74 real(TKG) ,
intent(inout) :: x(
*), y(
*)
76 pure subroutine sswap(n, x, incx, y, incy)
78 integer(
IK) ,
intent(in) :: n, incx, incy
79 real(TKG) ,
intent(inout) :: x(
*), y(
*)
103 pure subroutine zgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
106 complex(TKG),
intent(inout) :: y
107 complex(TKG),
intent(in) :: alpha, beta, a, x
108 integer(
IK) ,
intent(in) :: m, n, lda, incx, incy
109 character ,
intent(in) :: trans
111 pure subroutine cgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
114 complex(TKG),
intent(inout) :: y
115 complex(TKG),
intent(in) :: alpha, beta, a, x
116 integer(
IK) ,
intent(in) :: m, n, lda, incx, incy
117 character ,
intent(in) :: trans
119 pure subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
122 real(TKG) ,
intent(inout) :: y
123 real(TKG) ,
intent(in) :: alpha, beta, a, x
124 integer(
IK) ,
intent(in) :: m, n, lda, incx, incy
125 character ,
intent(in) :: trans
127 pure subroutine sgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
130 real(TKG) ,
intent(inout) :: y
131 real(TKG) ,
intent(in) :: alpha, beta, a, x
132 integer(
IK) ,
intent(in) :: m, n, lda, incx, incy
133 character ,
intent(in) :: trans
157 pure subroutine zhpmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
160 complex(TKG),
intent(inout) :: y
161 complex(TKG),
intent(in) :: alpha, beta, ap, x
162 integer(
IK) ,
intent(in) :: n, incx, incy
163 character ,
intent(in) :: uplo
165 pure subroutine chpmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
168 complex(TKG),
intent(inout) :: y
169 complex(TKG),
intent(in) :: alpha, beta, ap, x
170 integer(
IK) ,
intent(in) :: n, incx, incy
171 character ,
intent(in) :: uplo
195 pure subroutine dspmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
198 real(TKG) ,
intent(inout) :: y
199 real(TKG) ,
intent(in) :: alpha, beta, ap, x
200 integer(
IK) ,
intent(in) :: n, incx, incy
201 character ,
intent(in) :: uplo
203 pure subroutine sspmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
206 real(TKG) ,
intent(inout) :: y
207 real(TKG) ,
intent(in) :: alpha, beta, ap, x
208 integer(
IK) ,
intent(in) :: n, incx, incy
209 character ,
intent(in) :: uplo
233 pure subroutine zhemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
236 complex(TKG),
intent(inout) :: y
237 complex(TKG),
intent(in) :: alpha, beta, a, x
238 integer(
IK) ,
intent(in) :: n, lda, incx, incy
239 character ,
intent(in) :: uplo
241 pure subroutine chemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
244 complex(TKG),
intent(inout) :: y
245 complex(TKG),
intent(in) :: alpha, beta, a, x
246 integer(
IK) ,
intent(in) :: n, lda, incx, incy
247 character ,
intent(in) :: uplo
271 pure subroutine dsymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
274 real(TKG) ,
intent(inout) :: y
275 real(TKG) ,
intent(in) :: alpha, beta, a, x
276 integer(
IK) ,
intent(in) :: n, lda, incx, incy
277 character ,
intent(in) :: uplo
279 pure subroutine ssymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
282 real(TKG) ,
intent(inout) :: y
283 real(TKG) ,
intent(in) :: alpha, beta, a, x
284 integer(
IK) ,
intent(in) :: n, lda, incx, incy
285 character ,
intent(in) :: uplo
308 pure subroutine zsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
311 complex(TKG),
intent(inout) :: c
312 complex(TKG),
intent(in) :: alpha, beta, a, b
313 integer(
IK) ,
intent(in) :: m, n, lda, ldb, ldc
314 character ,
intent(in) :: side, uplo
316 pure subroutine csymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
319 complex(TKG),
intent(inout) :: c
320 complex(TKG),
intent(in) :: alpha, beta, a, b
321 integer(
IK) ,
intent(in) :: m, n, lda, ldb, ldc
322 character ,
intent(in) :: side, uplo
324 pure subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
327 real(TKG) ,
intent(inout) :: c
328 real(TKG) ,
intent(in) :: alpha, beta, a, b
329 integer(
IK) ,
intent(in) :: m, n, lda, ldb, ldc
330 character ,
intent(in) :: side, uplo
332 pure subroutine ssymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
335 real(TKG) ,
intent(inout) :: c
336 real(TKG) ,
intent(in) :: alpha, beta, a, b
337 integer(
IK) ,
intent(in) :: m, n, lda, ldb, ldc
338 character ,
intent(in) :: side, uplo
361 pure subroutine zhemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
364 complex(TKG),
intent(inout) :: c
365 complex(TKG),
intent(in) :: alpha, beta, a, b
366 integer(
IK) ,
intent(in) :: m, n, lda, ldb, ldc
367 character ,
intent(in) :: side, uplo
369 pure subroutine chemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
372 complex(TKG),
intent(inout) :: c
373 complex(TKG),
intent(in) :: alpha, beta, a, b
374 integer(
IK) ,
intent(in) :: m, n, lda, ldb, ldc
375 character ,
intent(in) :: side, uplo
397 pure subroutine zgemm(transa, transb, l, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
400 complex(TKG),
intent(inout) :: c
401 complex(TKG),
intent(in) :: alpha, beta, a, b
402 integer(
IK) ,
intent(in) :: l, m, n, lda, ldb, ldc
403 character ,
intent(in) :: transa, transb
405 pure subroutine cgemm(transa, transb, l, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
408 complex(TKG),
intent(inout) :: c
409 complex(TKG),
intent(in) :: alpha, beta, a, b
410 integer(
IK) ,
intent(in) :: l, m, n, lda, ldb, ldc
411 character ,
intent(in) :: transa, transb
413 pure subroutine dgemm(transa, transb, l, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
416 real(TKG) ,
intent(inout) :: c
417 real(TKG) ,
intent(in) :: alpha, beta, a, b
418 integer(
IK) ,
intent(in) :: l, m, n, lda, ldb, ldc
419 character ,
intent(in) :: transa, transb
421 pure subroutine sgemm(transa, transb, l, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
424 real(TKG) ,
intent(inout) :: c
425 real(TKG) ,
intent(in) :: alpha, beta, a, b
426 integer(
IK) ,
intent(in) :: l, m, n, lda, ldb, ldc
427 character ,
intent(in) :: transa, transb
454 pure subroutine ztrmv(uplo, trans, diag, n, a, lda, x, incx)
457 character ,
intent(in) :: uplo, trans, diag
458 integer(
IK) ,
intent(in) :: n, lda, incx
459 complex(TKG),
intent(inout) :: x
460 complex(TKG),
intent(in) :: a
462 pure subroutine ctrmv(uplo, trans, diag, n, a, lda, x, incx)
465 character ,
intent(in) :: uplo, trans, diag
466 integer(
IK) ,
intent(in) :: n, lda, incx
467 complex(TKG),
intent(inout) :: x
468 complex(TKG),
intent(in) :: a
470 pure subroutine dtrmv(uplo, trans, diag, n, a, lda, x, incx)
473 character ,
intent(in) :: uplo, trans, diag
474 integer(
IK) ,
intent(in) :: n, lda, incx
475 real(TKG) ,
intent(inout) :: x
476 real(TKG) ,
intent(in) :: a
478 pure subroutine strmv(uplo, trans, diag, n, a, lda, x, incx)
481 character ,
intent(in) :: uplo, trans, diag
482 integer(
IK) ,
intent(in) :: n, lda, incx
483 real(TKG) ,
intent(inout) :: x
484 real(TKG) ,
intent(in) :: a
511 pure subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx)
514 character ,
intent(in) :: uplo, trans, diag
515 integer(
IK) ,
intent(in) :: n, lda, incx
516 complex(TKG),
intent(inout) :: x
517 complex(TKG),
intent(in) :: a
519 pure subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx)
522 character ,
intent(in) :: uplo, trans, diag
523 integer(
IK) ,
intent(in) :: n, lda, incx
524 complex(TKG),
intent(inout) :: x
525 complex(TKG),
intent(in) :: a
527 pure subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx)
530 character ,
intent(in) :: uplo, trans, diag
531 integer(
IK) ,
intent(in) :: n, lda, incx
532 real(TKG) ,
intent(inout) :: x
533 real(TKG) ,
intent(in) :: a
535 pure subroutine strsv(uplo, trans, diag, n, a, lda, x, incx)
538 character ,
intent(in) :: uplo, trans, diag
539 integer(
IK) ,
intent(in) :: n, lda, incx
540 real(TKG) ,
intent(inout) :: x
541 real(TKG) ,
intent(in) :: a
564 pure subroutine ztrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
567 integer(
IK) ,
intent(in) :: m, n, lda, ldb
568 complex(TKG),
intent(inout) :: b
569 complex(TKG),
intent(in) :: alpha, a
570 character ,
intent(in) :: side, uplo, transa, diag
572 pure subroutine ctrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
575 integer(
IK) ,
intent(in) :: m, n, lda, ldb
576 complex(TKG),
intent(inout) :: b
577 complex(TKG),
intent(in) :: alpha, a
578 character ,
intent(in) :: side, uplo, transa, diag
580 pure subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
583 integer(
IK) ,
intent(in) :: m, n, lda, ldb
584 real(TKG) ,
intent(inout) :: b
585 real(TKG) ,
intent(in) :: alpha, a
586 character ,
intent(in) :: side, uplo, transa, diag
588 pure subroutine strmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
591 integer(
IK) ,
intent(in) :: m, n, lda, ldb
592 real(TKG) ,
intent(inout) :: b
593 real(TKG) ,
intent(in) :: alpha, a
594 character ,
intent(in) :: side, uplo, transa, diag
617 pure subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
620 integer(
IK) ,
intent(in) :: m, n, lda, ldb
621 complex(TKG),
intent(inout) :: b
622 complex(TKG),
intent(in) :: alpha, a
623 character ,
intent(in) :: side, uplo, transa, diag
625 pure subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
628 integer(
IK) ,
intent(in) :: m, n, lda, ldb
629 complex(TKG),
intent(inout) :: b
630 complex(TKG),
intent(in) :: alpha, a
631 character ,
intent(in) :: side, uplo, transa, diag
633 pure subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
636 integer(
IK) ,
intent(in) :: m, n, lda, ldb
637 real(TKG) ,
intent(inout) :: b
638 real(TKG) ,
intent(in) :: alpha, a
639 character ,
intent(in) :: side, uplo, transa, diag
641 pure subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
644 integer(
IK) ,
intent(in) :: m, n, lda, ldb
645 real(TKG) ,
intent(inout) :: b
646 real(TKG) ,
intent(in) :: alpha, a
647 character ,
intent(in) :: side, uplo, transa, diag
673 pure subroutine zsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
676 character ,
intent(in) :: uplo, trans
677 integer(
IK) ,
intent(in) :: n, k, lda, ldc
678 complex(TKG),
intent(in) :: a, alpha, beta
679 complex(TKG),
intent(inout) :: c
681 pure subroutine csyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
684 character ,
intent(in) :: uplo, trans
685 integer(
IK) ,
intent(in) :: n, k, lda, ldc
686 complex(TKG),
intent(in) :: a, alpha, beta
687 complex(TKG),
intent(inout) :: c
689 pure subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
692 character ,
intent(in) :: uplo, trans
693 integer(
IK) ,
intent(in) :: n, k, lda, ldc
694 real(TKG) ,
intent(in) :: a, alpha, beta
695 real(TKG) ,
intent(inout) :: c
697 pure subroutine ssyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
700 character ,
intent(in) :: uplo, trans
701 integer(
IK) ,
intent(in) :: n, k, lda, ldc
702 real(TKG) ,
intent(in) :: a, alpha, beta
703 real(TKG) ,
intent(inout) :: c
729 pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
732 character ,
intent(in) :: uplo, trans
733 integer(
IK) ,
intent(in) :: n, k, lda, ldc
734 real(TKG) ,
intent(in) :: alpha, beta
735 complex(TKG),
intent(in) :: a
736 complex(TKG),
intent(inout) :: c
738 pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
741 character ,
intent(in) :: uplo, trans
742 integer(
IK) ,
intent(in) :: n, k, lda, ldc
743 real(TKG) ,
intent(in) :: alpha, beta
744 complex(TKG),
intent(in) :: a
745 complex(TKG),
intent(inout) :: c
751end module pm_blas ! LCOV_EXCL_LINE
Return the result of the multiplication of two input General matrices matA and matB added to a third ...
Return the result of the multiplication of a General matrix matA in Rectangular Default packing forma...
Return the result of the multiplication of two input Hermitian-General/General-Hermitian matrices mat...
Return the result of the multiplication of a Hermitian matrix matA in Rectangular Default packing for...
Return the Rank-K Update of a Complex Hermitian matrix.
Return the result of the multiplication of a Hermitian matrix matA in Linear Full Packed format with ...
Return the result of the multiplication of a Symmetric matrix matA in Linear Full Packed format with ...
Interchange the elements of vectors x and y.
Return the result of the multiplication of two input Symmetric-General/General-Symmetric matrices mat...
Return the result of the multiplication of a Symmetric matrix matA in Rectangular Default packing for...
Return the Rank-K Update of a Real or Complex Symmetric or a Complex Hermitian matrix.
Return the result of the triangular/general matrix multiplication, using scalar alpha,...
Return the following matrix-vector products, using the vector x and triangular matrix A or its transp...
Return the solution to a triangular system of equations with multiple right-hand sides,...
Return the following matrix-vector products, using the vector x and triangular matrix A or its transp...
This module contains a set of generic interfaces to the BLAS routines.
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.