SCSCMM/DCSCMM/CCSCMM/ZCSCMM

Compressed sparse column matrix-matrix multiply

 

SUBROUTINE

ZCSCMM

 

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 ZCSCMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

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

 

VECLIB8:

 

 

SUBROUTINE

SCSCMM

 

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 SCSCMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

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

 

SUBROUTINE

DCSCMM

 

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 DCSCMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

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

 

SUBROUTINE

CCSCMM

 

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 CCSCMM (transa, m, n, k, alpha, descra, val, indx, pntrb, pntre, b,

 

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

 

SUBROUTINE

ZCSCMM

 

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 ZCSCMM (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

482HP MLIB User’s Guide