SSKYMM/DSKYMM/CSKYMM/ZSKYMM

Skyline matrix-matrix multiply

 

SUBROUTINE

ZSKYMM

 

INTEGER*4

transa, m, n, k, ldb, ldc, lwork

 

INTEGER*4

descra(*), pntr(*)

 

COMPLEX*16

alpha, beta

 

COMPLEX*16

val(*), b(ldb,*), c(ldc,*), work(*)

 

CALL ZSKYMM (transa, m, n, k, alpha, descra, val, pntr, b, ldb, beta, c,

 

ldc, work, lwork)

 

 

VECLIB8:

 

 

SUBROUTINE

SSKYMM

 

INTEGER*8

transa, m, n, k, ldb, ldc, lwork

 

INTEGER*8

descra(*), pntr(*)

 

REAL*4

alpha, beta

 

REAL*4

val(*), b(ldb,*), c(ldc,*), work(*)

 

CALL SSKYMM (transa, m, n, k, alpha, descra, val, pntr, b, ldb, beta, c,

 

ldc, work, lwork)

 

 

SUBROUTINE

DSKYMM

 

INTEGER*8

transa, m, n, k, ldb, ldc, lwork

 

INTEGER*8

descra(*), pntr(*)

 

REAL*8

alpha, beta

 

REAL*8

val(*), b(ldb,*), c(ldc,*), work(*)

 

CALL DSKYMM (transa, m, n, k, alpha, descra, val, pntr, b, ldb, beta, c,

 

ldc, work, lwork)

 

 

SUBROUTINE

CSKYMM

 

INTEGER*8

transa, m, n, k, ldb, ldc, lwork

 

INTEGER*8

descra(*), pntr(*)

 

COMPLEX*8

alpha, beta

 

COMPLEX*8

val(*), b(ldb,*), c(ldc,*), work(*)

 

CALL CSKYMM (transa, m, n, k, alpha, descra, val, pntr, b, ldb, beta, c,

 

ldc, work, lwork)

 

 

SUBROUTINE

ZSKYMM

 

INTEGER*8

transa, m, n, k, ldb, ldc, lwork

 

INTEGER*8

descra(*), pntr(*)

 

COMPLEX*16

alpha, beta

 

COMPLEX*16

val(*), b(ldb,*), c(ldc,*), work(*)

 

CALL ZSKYMM (transa, m, n, k, alpha, descra, val, pntr, b, ldb, beta, c,

 

ldc, work, lwork)

 

Input

transa

Indicates how to operate with the sparse matrix.

 

 

0: Operate with matrix

522HP MLIB User’s Guide