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