SCSRMM/DCSRMM/CCSRMM/ZCSRMM

Compressed sparse row matrix-matrix multiply

 

SUBROUTINE

ZCSRMM

 

INTEGER*4

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

 

INTEGER*4

descra(*), indx(*), pntrb(*), pntre(*)

 

COMPLEX*16

alpha, beta

 

COMPLEX*16

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

 

CALL ZCSRMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

ldb, beta, c, ldc, work, lwork)

 

VECLIB8:

 

 

SUBROUTINE

SCSRMM

 

INTEGER*8

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

 

INTEGER*8

descra(*), indx(*), pntrb(*), pntre(*)

 

REAL*4

alpha, beta

 

REAL*4

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

 

CALL SCSRMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

ldb, beta, c, ldc, work, lwork)

 

SUBROUTINE

DCSRMM

 

INTEGER*8

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

 

INTEGER*8

descra(*), indx(*), pntrb(*), pntre(*)

 

REAL*8

alpha, beta

 

REAL*8

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

 

CALL DCSRMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

ldb, beta, c, ldc, work, lwork)

 

SUBROUTINE

CCSRMM

 

INTEGER*8

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

 

INTEGER*8

descra(*), indx(*), pntrb(*), pntre(*)

 

COMPLEX*8

alpha, beta

 

COMPLEX*8

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

 

CALL CCSRMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

ldb, beta, c, ldc, work, lwork)

 

SUBROUTINE

ZCSRMM

 

INTEGER*8

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

 

INTEGER*8

descra(*), indx(*), pntrb(*), pntre(*)

 

COMPLEX*16

alpha, beta

 

COMPLEX*16

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

 

CALL ZCSRMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

ldb, beta, c, ldc, work, lwork)

Input

transa

Indicates how to operate with the sparse matrix.

 

 

0: Operate with matrix

490HP MLIB User’s Guide