HP MLIB User's Guide Vol. 1 7th Ed.

482 HP MLIB User’s Guide
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