Jagged diagonal | SJADMM/DJADMM/CJADMM/ZJADMM |
Name SJADMM/DJADMM/CJADMM/ZJADMM
Jagged diagonal
Purpose Jagged diagonal
matrix. Optionally, A may be replaced by AT or A*, where AT or A* is a
matrix, and B is a
C ← αAB + βC C ← αATB + βC C ← αA∗B + βC
Usage | VECLIB: |
|
| SUBROUTINE | SJADMM |
| INTEGER*4 | transa, m, n, k, maxnz, ldb, ldc, lwork |
| INTEGER*4 | descra(*), indx(*), pntr(*), iperm(*) |
| REAL*4 | alpha, beta |
| REAL*4 | val(*), b(ldb,*), c(ldc,*), work(*) |
CALL SJADMM (transa, m, n, k, alpha, descra, val, pntr, iperm, indx, maxnz, b, ldb, beta, c, ldc, work, lwork)
SUBROUTINE | DJADMM |
INTEGER*4 | transa, m, n, k, maxnz, ldb, ldc, lwork |
INTEGER*4 | descra(*), indx(*), pntr(*), iperm(*) |
REAL*8 | alpha, beta |
REAL*8 | val(*), b(ldb,*), c(ldc,*), work(*) |
CALL DJADMM (transa, m, n, k, alpha, descra, val, pntr, iperm, indx, maxnz, b, ldb, beta, c, ldc, work, lwork)
SUBROUTINE | CJADMM |
INTEGER*4 | transa, m, n, k, maxnz, ldb, ldc, lwork |
INTEGER*4 | descra(*), indx(*), pntr(*), iperm(*) |
COMPLEX*8 | alpha, beta |
COMPLEX*8 | val(*), b(ldb,*), c(ldc,*), work(*) |
CALL CJADMM (transa, m, n, k, alpha, descra, val, pntr, iperm indx, maxnz, b, ldb, beta, c, ldc, work, lwork)
Chapter 4 Sparse BLAS Operations 513