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

534 HP MLIB User’s Guide
SVBRSM/DVBRSM/CVBRSM/ZVBRSM Variable block row format triangular solve
SUBROUTINE CVBRSM
INTEGER*4 transa, mb, n, unitd, blda, ldb, ldc, lwork
INTEGER*4 descra(*), indx(*), bindx(*), rpntr(*), cpntr(*),
bpntrb(*), bpntre(*)
COMPLEX*8 alpha, beta
COMPLEX*8 val(*), b(ldb,*), c(ldc,*), work(*)
CALL CVBRSM (transa, mb, n, unitd, dv, alpha, descra, val, indx, bindx,
rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)
SUBROUTINE ZVBRSM
INTEGER*4 transa, mb, n, unitd, blda, 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 ZVBRSM (transa, mb, n, unitd, dv, alpha, descra, val, indx, bindx,
rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)
VECLIB8:
SUBROUTINE SVBRSM
INTEGER*8 transa, mb, n, unitd, blda, 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 SVBRSM (transa, mb, n, unitd, dv, alpha, descra, val, indx, bindx,
rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)
SUBROUTINE DVBRSM
INTEGER*8 transa, mb, n, unitd, blda, 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 DVBRSM (transa, mb, n, unitd, dv, alpha, descra, val, indx, bindx,
rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)
SUBROUTINE CVBRSM
INTEGER*8 transa, mb, n, unitd, blda, 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 CVBRSM (transa, mb, n, unitd, dv, alpha, descra, val, indx, bindx,
rpntr, cpntr, bpntrb, bpntre, b, ldb, beta, c, ldc, work, lwork)