SVBRMM/DVBRMM/CVBRMM/ZVBRMM

Variable block row matrix-matrix multiply

SUBROUTINE

ZVBRMM

INTEGER*4

transa, mb, n, kb, ldb, ldc, lwork

INTEGER*4

descra(*), indx(*), bindx(*), rpntr(*), cpntr(*),

 

bpntrb(*), bpntre(*)

COMPLEX*16

alpha, beta

COMPLEX*16

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

CALL ZVBRMM (transa, mb, n, kb, alpha, descra, val, indx, bindx, rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)

VECLIB8:

SUBROUTINE

SVBRMM

INTEGER*8

transa, mb, n, kb, ldb, ldc, lwork

INTEGER*8

descra(*), indx(*), bindx(*), rpntr(*), cpntr(*),

 

bpntrb(*), bpntre(*)

REAL*4

alpha, beta

REAL*4

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

CALL SVBRMM (transa, mb, n, kb, alpha, descra, val, indx, bindx, rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)

SUBROUTINE

DVBRMM

INTEGER*8

transa, mb, n, kb, ldb, ldc, lwork

INTEGER*8

descra(*), indx(*), bindx(*), rpntr(*), cpntr(*),

 

bpntrb(*), bpntre(*)

REAL*8

alpha, beta

REAL*8

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

CALL DVBRMM (transa, mb, n, kb, alpha, descra, val, indx, bindx, rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)

SUBROUTINE

CVBRMM

INTEGER*8

transa, mb, n, kb, ldb, ldc, lwork

INTEGER*8

descra(*), indx(*), bindx(*), rpntr(*), cpntr(*),

 

bpntrb(*), bpntre(*)

COMPLEX*8

alpha, beta

COMPLEX*8

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

CALL CVBRMM (transa, mb, n, kb, alpha, descra, val, indx, bindx, rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)

SUBROUTINE

ZVBRMM

INTEGER*8

transa, mb, n, kb, ldb, ldc, lwork

INTEGER*8

descra(*), indx(*), bindx(*), rpntr(*), cpntr(*),

 

bpntrb(*), bpntre(*)

COMPLEX*16

alpha, beta

COMPLEX*16

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

CALL ZVBRMM (transa, mb, n, kb, alpha, descra, val, indx, bindx, rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)

530HP MLIB User’s Guide